MsgBox Code ausführung
25.08.2008 18:42:06
Hanses
ich versuche über eine MsgBox eine Auswahl zu treffen.
Leider funktioniert das ganze nur wenn ich ja anklicke.
Habe eine MsgBox mit Ja/Nein Schaltflächen.
Stehe auf dem Schlauch wo der Fehler liegt.
Der Code sieht so aus:
Private Sub CommandButton6_Click()
Dim i As Integer
Dim antwort As String
antwort = MsgBox("Hat die WA Dienst am 01.01 des Jahres ?", 4)
If antwort = vbYes Then
For i = 5 To 35
If i Mod 2 = 1 Then
Range(Cells(6, i), Cells(86, i)) = 1
Else
Range(Cells(6, i), Cells(86, i)) = "'--"
End If
Next
End If
End Sub
Besten Dank für Eure Hilfe
Anzeige