Worksheet_Change / Komme nicht weiter.....

Hallo,
ich habe nach möglichkeiten gesucht bei einer Eingabe in die Zelle D1 ein Mahro auszulössen und bei einer Eintragung in Spalte F eine Formel in Spalte G einzutragen. Mir wurde mit folgendem Code geholfen.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D1,F:F]) Is Nothing Then
If Target.Column = 6 Then
Target.Offset(0, 1).Formula = "meineFormel"
Else
meinMakro
End If
End If
End Sub

Als erster Ansatz sehr gut der Code funktioniert einwandfrei.
Jedoch für meine Zwecke nur bedingt.
Als erstes habe ich auf das D1 Makro verzichtet und den Code wie folgt verändert


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F:F]) Is Nothing Then
If Target.Column = 6 And Target > 0 Then
Target.Offset(0, 1).Formula = "meineFormel"
End If
If Target.Column = 6 And Target = "" Then
Target.Offset(0, 1).Formula = ""
End If
End If
End Sub

Wenn ich nun mehr als eine Zelle in Spalte F markiere und den Inhalt lösche kommt die Fehlermeldung Laufzeitfehler 13.....
und die Zellen in Spalte G behalen "meineFormel" sollten dann jedoch auch auf "" gesetzt werden.
Hm? hoffe ich habe mein Problem gut genug beschrieben.
Vieleicht könnt Ihr mir helfen? Wäre toll wenn ich auch auf das D1 Makro nicht verzichten müsste.
Grüß / Sonnenpeter
PS: VBA GUT ist nicht ganz zutreffend.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 For Each zelle In Selection If zelle = "" Then zelle.Offset(0, 1).Formula = "" Else zelle.Offset(0, 1).Formula = "meine Formel" End If Next End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim zelle On Error GoTo ErrorHandler If Target.Address = "$D$1" Then MsgBox "Mein Makro" End If If Target.Column = 6 Then For Each zelle In Selection If zelle = "" Then zelle.Offset(0, 1).Formula = "" Else zelle.Offset(0, 1).Formula = "meine Formel" End If Next End If If Target.Column = 6 And Target > 0 Then Target.Offset(0, 1).Formula = "meineFormel" End If If Target.Column = 6 And Target = "" Then Target.Offset(0, 1).Formula = "" End If ErrorHandler: Exit Sub End Sub

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 If Selection.Count = 1 Then ' Wenn nur eine Zelle ( = 1) ausgewählt ist, dann... If Target > 0 Then Target.Offset(0, 1).Formula = "meine Formel" Else Target.Offset(0, 1).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

Beliebteste Forumthreads (12 Monate)

Worksheet_Change / Komme nicht weiter.....

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread