Code verbessern
08.10.2006 16:37:50
tina
ich habe mir einen code für meine UF zusammengebastelt.
Private Sub CommandButton2_Click()
Sheets("tabelle1").Select
If [D1] = 6 Then
[G1] = 1
ElseIf [D2] = 6 Then
[G1] = 1
ElseIf [D3] = 6 Then
[G1] = 1
End If
If [G1] = 1 Then
Label6.Visible = True
End If
End Sub
geht das auch eleganter?
vielen Dank
LG Tin@