Excel eintag mitschreiben
Kai
Sub In_Editor()
Dim lRow As Long 'Zähler für letzte gefüllte Zeile
Dim Zeile As Long, Spalte As Long
Dim strDat As String, strPath As String
Dim Var As String 'Var ist die Variable
strPath = "C:\" 'strPath anpassen (da wo Deine Tab abgespeichert ist)
lRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
strDat = strPath & "\Test.txt"
Close #1 'strDat schließen falls schon offen
Open strDat For Output As #1
For Zeile = 1 To lRow 'Schleife für die Zeile
For Spalte = 1 To 4 'Schleife für die Spalte (hier 4 spalten, ggf.anpassen)
Var = Var & Cells(Zeile, Spalte) & ";" 'Trennzeichen für die einzelnen Spalten, kann auch ein anderes sein
Next Spalte
Print #1, Var 'Var in die strDat schreiben
Var = "" 'Variable leeren
Next Zeile
Close #1 'strDat schließen und speichern
End Sub