habe folgendes Makro, mit dem kopiere ich Werte von einem Tabellenblatt zum nächsten.
Könnte man vorher noch eine Abfrage einfügen, zB. eine Msg-Box: "Wollen Sie die Daten wirklich speichern?"
Ich habe mich schon daran versucht, aber irgendwo stockt es.
Mit Dank im voraus!
Gruß Sven
Sub kopieren1()
Dim leerzeile As Long
kopierbereich = Range("Tabelle4!GB2:HM2").Address
leerzeile = Range("Tabelle5!A65536").End(xlUp).Row + 1
zielbereich = "Tabelle5!A" & leerzeile
Range(kopierbereich).Copy
Range(zielbereich).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub