mit Hilfe der Makroaufzeichnung kopieren ich Daten und Ihre Formatierung in eine andere Tabelle.
Kann mit jemand sagen wie ich das Makro anpassen kann, damit die Selection bis zur letzten gefüllten Zeile in Spalte B bis G ab Zeile 16 geht.
Sub Makro1()
Range("B18:G50").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B18").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
mfg Blue Bird