ich will für Aufgaben die Start- und Stoppzeiten dokumentieren, dafür habe ich in Excel Namen vergeben. Wie ich diese Zellen in VBA aufrufe, habe ich inzwischen raus: Zelle D51 heißt START01, also in VBA [START01]. Einzelne Zellen weiterspringen klappt auch. Problem ist, wie kann ich Zelle D51:H51 selektieren? Hierfür auch einen Namen vergeben will ich nicht und mit range oder cells bin ich nicht weitergekommen.
Lieben Gruß,
Lakritze
Private Sub CmdStart01_Click()
Dim x As Range
Set x = [start01]
If CmdStart01.Caption = "START 1" Then
x = Now 'Start
x.Offset(0, 1) = "" 'Stopp
x.Offset(0, 2) = "" 'Datum
x.Offset(0, 3) = "" 'Dauer
CmdStart01.Caption = "STOPP"
Else
x.Offset(0, 1) = Now 'Stopp
x.Offset(0, 2) = Date 'Datum
x.Offset(0, 3).FormulaR1C1 = "=RC[-2]-RC[-3]" 'Dauer
Range("D51", "H51").Copy 'kopieren
[outputstoppuhr].Offset(1, 0).Insert
Application.CutCopyMode = False
CmdStart01.Caption = "START 1"
End If
End Sub