Hallo Zusammen,
ich möchte gerne einen Bereich von Blatt 2 auf Blatt 1 kopieren in die erste freie Zeile.
leider klappen bei mir keine Suchfunktionen die diese freie Zeile findet.
Das Format von Blatt 2 soll übertragen werden, es handelt sich um Bilder und Text, die man zuvor eingefügt hat. Durch ein klicken auf einen Button soll der Übertrag stattfinden.
Das müsste passen, es fehlt dann nur die Suchfunktion
Sub Bilder_Übertrag()
Dim ButtonText As Variant
If (ButtonText = "ButtonS5") Then
'Wenn Button gedrückt wurde
End If
Sheets("Tabelle2").Select
Range("A2:Z35").Select
Selection.Copy
'Kopieren des Bereichs aus Tabelle 2
Sheets("Tabelle1").Activate
'Aktiviert F-Zeittool
Und dann klappen die suchfunktionen nicht
Bin um jede Hilfe dankbar!
Grüße