ich hänge schon seit langem an diesem Problem fest und ich hoffe hier die passende Antwort zu finden :-)
Ich habe eine Arbeitsmappe mit 10 verschiedenen Tabellenblättern.
In jedem Tabellenblatt soll die Zeile 3 (und dann 4, 5, 6...) kopiert werden und in einer .txt abgespeichert werden. Jede Zelle soll mit einem Semikolon getrennt sein.
Ich habe zum testen mal folgendes probiert:
Dim Bereich As Range
Dim Zeile As Range
Dim zelle As Range
Dim s As String
Sheets(Array("KR Änderdialog", "Matchcode-Suche")).Select
Set Bereich = Range("A3:D24")
Open "c:\Temp\VNR_anlegen_output.txt" For Output As #1
For Each Zeile In Bereich.rows
For Each zelle In Zeile.Cells
s = s & zelle.Text & ";"
Next zelle
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
Next Zeile
Close #1
Das Ganze funktioniert auch soweit, jedoch soll das in einer Schleife erfolgen, bis die letzte Zeile leer ist. Zusätzlich soll der Bereich jedes Arbeitsblattes von mir vorgegeben werden.
Hat hier jemand einen Ansatz?