AW: Letzte gef?llte Zeile der Spalte A
Michael
Hallo Heinz,
habe ich nur mache ich da wohl was falsch da meine Exportdatei leer bleibt. Habe den Text so eingef?gt:
Sub lz2()
Dim zeile As Long
Dim spalte As Integer
Dim text As String
Dim trenner As String
Dim sFile As String
trenner = "|" 'Trennzeichen = |
Close #1
'Name und Speicherort festlegen
sFile = Application.GetSaveAsFilename(InitialFileName:="Export.txt", _
fileFilter:="Text Files (*.txt), *.txt")
If sFile = "" Then Exit Sub
'?ffnen der Textdatei
Open sFile For Output As 1
'Schleife f?r Zeilen
For zeile = 3 To ActiveSheet.UsedRange.Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
text = ""
'Schleife f?r Spalten
For spalte = 1 To 40
text = text & CVar(Cells(zeile, spalte))
If spalte < 41 Then text = text & trenner
Next
Print #1, text
Next
'Schlie?en der Textdatei
Close #1
End Sub
was wohl falsch ist. Ich habe auch noch was in den ersten 3 Zeilen stehen was ich aber nicht exportieren will.
Mit freundlichen Gr??en
Michael