Sub
change()
While
ActiveCell.Value <>
""
Sheets(
"Quer"
).Range(
"B14"
).Value = ActiveCell.Offset(0, 7).Value
Sheets(
"Quer"
).Range(
"B15"
).Value = ActiveCell.Offset(0, 8).Value
Sheets(
"Quer"
).Range(
"B16"
).Value = ActiveCell.Offset(0, 9).Value
Sheets(
"Quer"
).Range(
"B9"
).Value = ActiveCell.Offset(0, 10).Value
Sheets(
"Quer"
).Range(
"B10"
).Value = ActiveCell.Offset(0, 11).Value
wend
End
Sub
Da kommt eine Tabelle bei raus die ich in eine Neue Datei exportieren möchte Nennen wir sie Sammlung.xlsx
Da möchte ich die Tabelle gerne unter 001 abspeichern
Dann startet das ganze von vorne und ich erhalte die Nächste Tabelle.
Diese hätte ich gerne wieder in der Datei Sammlung.xlsx
Mit dem Tabellen Namen 002
dies ganze wiederholt sich halt ca. 200 mal.
Damit ist das gewünschte ergebniss Eine Datei Namens Sammlung.xlsx mit ca 200 Tabellen fortlaufend Nummerirt zu erzeugen
Hoffe du kannst damit mehr anfangen.