ich habe folgendes Problem:
Ich habe zwei Tabellen.
Tab1 und Tab2
-------------
In Tab1 habe ich einen Button. Dieses soll von Tab2 "H2" das aktuelle Datum kopieren und es in Tab2 "H5" ausgeben, so dass das aktuelle zum Feststehendem Datum wird.
Als Resultat hätte man das aktuelle Datum zum Feststehendem Datum gemacht, das ganze auf einem anderen Tabellenblatt.
Mein Code:
Worksheets("Tab2").Range("H2").Select
Selection.Copy
Worksheets("Tab2").Range("H5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Worksheets("Tab2").Range("H5").Select
Application.CutCopyMode = False
Worksheets("Tab2").Range("H2").Select
Selection.ClearContents
Worksheets("Tab2").Range("H5").Select
Selection.Copy
Worksheets("Tab2").Range("H2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Worksheets("Tab2").Range("H5").Select
Application.CutCopyMode = False
Selection.ClearContents