VBA Eingabeereignis / klappt nicht so wie es soll.
27.12.2004 11:57:05
Sonnenpeter
habe mir mit Hilfe von Josef und Klaus ein Eingabeereignis gebastelt(siehe unten).
Nun das Problem:
Sofern ich nur in Spalte F arbeite funktioniert alles.
Wenn ich jedoch auch A bis E komplett makiere und lösche bleiben die Formeln in in Spalte G und H erhalten. Diese sollten jedoch auch gelöscht werden wenn in Spalte F keine Zahl mehr ist.
Wie kann ich das angehen.
Gruß / Sonnenpeter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle
If Target.Address = "$D$1" Then
MsgBox "Mein Makro"
End If
If Target.Column = 6 Then 'Spalte F
If Selection.Count = 1 Then
' Wenn nur eine Zelle ( = 1) ausgewählt ist, dann...
If Target > 0 Then
Target.Offset(0, 1).Formula = "Formel_1"
Target.Offset(0, 2).Formula = "Formel_2"
Else
Target.Offset(0, 1).Formula = ""
Target.Offset(0, 2).Formula = ""
End If
Else
' Wenn mehrere Zellen ausgewählt sind, dann...
For Each zelle In Selection
If zelle > 0 Then
zelle.Offset(0, 1).Formula = "meine Formel"
Else
zelle.Offset(0, 1).Formula = ""
End If
Next
End If
End If
End Sub