Re: Nur Nichtleere Zellen auswählen
11.06.2003 15:52:43
hennerich
Hallo Marcus,da gibt es noch ein Problem,
ich muss die Werte jeder Zeile, in der ein Wert in Spalte Q steht, extra in einen String packen (hoffentlich hab ich's richtig erklärt).
Das unten ist der momentane Code. Dieser nimmt aber alles, bis zum letzten wert in Spalte A. Wenn dazwischen Leerzellen sind, wird das ignoriert.
Sub text()
Dim rng As Range
Dim iFile%, sFile$
Dim i As Long
Set rng = Range("A1").CurrentRegion
For i = 2 To Range("A65536").End(xlUp).Row
iFile = FreeFile
sFile = "C:\File" & Format(i, "0##") & ".TXT"
Open sFile For Output As iFile
Print #iFile, privSub3(Cells(i, 1), Cells(i, 14), i))
Close iFile
Next
End Sub
hennerich