Ich kenne mich leider nicht mit Makros aus. Würde gern einen Button so haben das sich eine Zelle per Mausklick auf Ja, Nein, und " "(also keine beschriftung) einstellt.
Weiß aber nicht wie:( Könntet ihr mir vllt Helfen?
Liebe Grüße
Sandy
Option Explicit
Sub Sandy()
With Range("L1")
Select Case .Value
Case ""
.Value = "Ja"
Case "Ja"
.Value = "Nein"
Case "Nein"
.Value = ""
End Select
End With
End Sub
Gruß Matthias (ein Gruß am Ende macht Dich dann auch sympatischer)
Private Sub CommandButton1_Click()
Select Case Range("L1")
Case "": Range("L1") = "Ja"
Case "Ja": Range("L1") = "Nein"
Case "Nein": Range("L1") = ""
End Select
End Sub
CommandButton1.Caption = Range("L1")
Private Sub CommandButton1_Click()
With Range("L2")
Select Case .Value
Case ""
.Value = "Ja"
Case "Ja"
.Value = "Nein"
Case "Nein"
.Value = ""
End Select
End With
End Sub
Option Explicit
Private Sub CommandButton1_Click()
With Range("L1")
Select Case .Value
Case ""
.Value = "Ja"
Case "Ja"
.Value = "Nein"
Case "Nein"
.Value = ""
End Select
End With
CommandButton1.Caption = Range("L1")
End Sub
Gruß Matthias
Sub CommandButton1_Click()
With Range("L2")
Select Case .Value
Case ""
.Value = "Ja"
Case "Ja"
.Value = "Nein"
Case "Nein"
.Value = ""
End Select
End With
CommandButton1.Caption = Ranger("L2")
End Sub