vorhandene Werte nicht überschreiben
janesch
den folgenden Sub wollte ich für Aktualisierung meiner Tabelle benutzten. Dabei habe ich leider nicht bedacht, dass ich durch diesen Sub alle Werte die ich manuel in dem aktiven Tabellenblatt geändert habe, lösche bzw. ersetze.
Private Sub CommandButton1_Click()
Worksheets("Basis").Range("A28:HH500").Copy
ActiveSheet.Range("A28:HH500").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("A1").Select
End SubGibt es eine Funktion, durch die ich die bestehenden Werte / Daten nicht überschreibe?
Wäre toll, wenn mir da jemand helfen würde.
Danke !!!
Gruß Janesch
Anzeige