Probleme bei Worksheet_Change
11.04.2006 17:57:51
Ronaldo
habe folgende VBA eingegeben:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("p3") = "" Then
Rows("20:27").Select
Selection.EntireRow.Hidden = True
Range("A6").Select
Else
Rows("20:27").Select
Selection.EntireRow.Hidden = False
Range("A6").Select
End If
End Sub
Es funktioniert eigentlich alles, bis auf die Tatsache, dass nach jeder Eingabe das Feld A6 aktiviert wird. Wie kann ich das verhindern ? Auch wenn ich Range("A6").Select lösche, funktioniert es nicht.
Vielen Dank für Eure Hilfe
Gruss
Ronaldo