Hallo zusammen
ich ahbe 5 Command Buttons für unterschiedliche Befehle würde aber gerne alles in 1 Button verpacken:
Könnt ihr mir helfen?
Private Sub CommandButton2_Click()
Selection.Cells(1).Value = Range("M2").Value
Selection.Cells(2).Value = Range("M3").Value
End Sub
Private Sub CommandButton3_Click()
Selection.Cells(1).Value = Date & Space(3) & "07:15"
Selection.Cells(2).Value = Date & Space(3) & "08:00"
End Sub
Private Sub CommandButton4_Click()
Selection.Cells(1).Value = Date & Space(3) & "08:00"
Selection.Cells(2).Value = Date & Space(3) & "08:25"
End Sub
Private Sub CommandButton5_Click()
Selection.Cells(1).Value = "Admin"
Selection.Cells(2).Value = "Meeting"
Selection.Cells(3).Value = "Admin"
Selection.Cells(4).Value = "Admin"
Selection.Cells(5).Value = "Admin"
End Sub
|