ich möchte eine oder mehrere markierte Zeilen in die erste freie Zeile des
Tabellenblattes "Ausgabeliste" kopieren.
Das funktioniert mit den unten gezeigten Code super.
Nun soll aber nach dem kopieren wieder das zu vor geöffnete Tabellenblatt angezeigt werden.
Besser noch die zu vor markierte Zeile.
(Also nicht wie hier die "Tabelle1")
Wie muss dann dieser Code umgeschrieben werden ?
Gruß
Fred
Sub Kopieren()
Selection.Copy
Sheets("Ausgabeliste").Select 'Name deines Tabellenblatts für Werte einfügen
Range("A1").Select
For i = 1 To 5700
If ActiveCell.Value "" Then ActiveCell.Offset(1, 0).Select Else Exit For 'falls Zelle voll -> _
nächste Zelle
Next i
ActiveSheet.Paste 'fügt die Werte ein
Sheets("Tabelle1").Select 'geht zurück zum Blatt 1
Application.CutCopyMode = False 'nimmt das kopieren zurück
MsgBox "Die Werte wurden erfolgreich kopiert." 'Info
End Sub