Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe vor einigen Tagen hier im Forum einen super Tipp bekommen, wie man mit VBA ein Datum fixiert. Die Tabelle hat nun weitere Formeln (ohne VBA) bekommen, um ein Controlling durchzuführen, bsp. wenn ein Datum älter als 3 Monate ist, dann soll in einer Anderen Zelle "Fällig" erscheinen, das klappt auch ganz gut so weit. Nun habe ich aber das Problem, dass sobald ich eine neue Zeile einfüge mir der Lauffehler 13 angezeigt wird und ich die Möglichkeit habe zu debuggen oder abrechen zu drücken. Meine Frage lautet nun, kann man eine Zeile einfügen und die Fehlermeldung einfach mit Hilfe von VBA unterdrücken?Es ist ziemlich nervig eine Zeile einzufügen und dann immer die Fehlermeldung zu erhalten. Ist es vielleicht auch möglich mit Hilfe von VBA Formeln eine Zeile einzufügen, sobald darunter kein Platz mehr ist? Vielen Dank im Voraus.

Ich meinte Laufzeitfehler 13!!!

Hallo Philip,

ohne Deinen VBA-Code zu kennen wird es schwer, Dir zu helfen. Kopiere Deinen VBA-Code mal hier in Deinen Beitrag. Schreibe bitte auch dazu, an welcher Stelle, nachdem Du den Debuggen-Button betätigt hast, der Code gelb markiert wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo,
hier ist der VBA-Code; die if targes.value = "X" wird gelb...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("C:C")) Is Nothing Then
Else
If Target.Value = "x" Then
Cells(Target.Row, 4) = Date
End If
End If

End Sub

Hallo Philipp,

so sollte es gehen:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("C:C")) Is Nothing Then
Else
On Error Resume Next
If Target.Value = "x" Then
Cells(Target.Row, 4) = Date
End If
End If
End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}
MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke, funktioniert!!!

• Fehlermeldungen und Rausschmiss bei AOL