vba Code geht nicht 2000
07.11.2008 18:23:00
Franz
leider blick ich vba nicht so ganz.
Würde mich über eure HIlfe sehr freuen.
Sub Bereinigen()
If Range("E3").Value = 1 Then
Range("B7:B9,D7:D9).ClearContents
Else
If Range("E3").Value = 2 Then
ClearContents.Range("C7:B9,C7:D9)
Else
If Range("E3").Value = 2 Then
ClearContents.Range("D7:B9,D7:D9)
End If
End Sub
Wenn in der Zelle E3 die Zahl 1 steht sollte die Zelle B7 bin B9 leer sein.
Weiß aber nicht warum es nicht geht.
Grüßle
und Danke für die Hilfe