If - Then
11.10.2002 18:10:39
Andy
Aber die "Elself - Zeile gibt einen Syntaxfehler wieder, den ich einfach nicht entdecken kann. Wer kann helfen?
Danke
Private Sub CommandButton1_Click()
Range("B17").Select
If ("B18") = "K" Then Range("B17").Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlLightDown
.PatternColorIndex = xlAutomatic
End With
Elself ("B18") = "0" Then Range("B17").Activate
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End Sub
Anzeige