Guten Tag,
ich habe eine Excel Formel in Spalte E:
=WENN(A1="";"";$B$1&A1&$C$1&1&$D$1)
diese ruft mir meine verknüpften Felder auf, wenn das Feld in Spalte A in der selben Zeile belegt ist. Klappt auch alles wunderbar, allerdings wird Spalte E in ein Textdokument Exportiert und dabei werden alle Felder die in Spalte E sind mit einer Leerzeile belegt, weil ich alle Felder in Spalte E mit der oben genannten Formel belegt habe. Kann ich irgendwie per VBA Code oder anders die Spalte E nur mit der Formel belegen lassen, wenn etwas in Spalte A steht? Oder das Ergebnis der Formel irgendwie in das Feld übergeben, wenn etwas in Spalte A steht? Oder hat jemand eine bessere Lösung?
Mein Code zum Exportieren:
Option Explicit
Sub XLStoTXT()
Dim Zelle As Range, strSave As String, lngRow As Long, Bereich As Range
Set Bereich = Intersect(ActiveSheet.UsedRange, ActiveSheet.Range(„E:E“))
Const DateiName = „D:\Ddatei.txt“
Open DateiName For Output As #1
lngRow = 1
For Each Zelle In Bereich
If Zelle.Row lngRow Then
Print #1, Left(strSave, Len(strSave) - 1)
strSave = „“
lngRow = Zelle.Row
End If
strSave = strSave & Zelle & Chr(9)
Next
Print #1, Left(strSave, Len(strSave) - 1)
Close 1
End Sub
Hoffe ihr könnt mir helfen!
Gruß enny … mehr auf http://www.wer-weiss-was.de/app/query/send?queryid=1…