Fehler in Macro
01.03.2004 19:20:50
Benny
einen schönen guten Abend wünsche ich in die Runde.
Ich habe ein Problem mit unten stehenden Code.
Wenn ich mit der rechten Maustaste in eine der Zellen G9:G39 in Tabelle1 klicke und in der Tabelle2 Zelle B8 befindet sich kein Wert, bricht das Macro mit der VBA-Fehlermeldung "Laufzeitfehler Index ausserhalb des gültigen Bereichs" ab.
Das gleiche passiert, wenn in Tabelle B2 "PW" steht und ich mit der rechten Maustaste in eine der Zellen G9:G39 klicke und in der Tabelle3 Zelle B8 befindet sich kein Wert.
Kann man vor bzw. während der Ausführung des Macros prüfen, ob in der Tabelle2 Zelle B8, bzw. Tabelle3 Zelle B8 ein Wert steht und falls nicht, eine entsprechende Meldung z.B. per MessageBox ausgeben???
Dieser Code steht unter Tabelle1:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("G9:G39")) Is Nothing Then
If Cells(Target.Row, 2) = "PW" Then
PLAN_2.Show
On Error GoTo ErrorHandler
Else
PLAN_1.Show
On Error GoTo ErrorHandler
End If
End If
If Not Intersect(Target, Range("H9:H39")) Is Nothing Then
AUSFALL.Show
End If
Cancel = True
ErrorHandler: MsgBox "Kein Eintrag vorhanden.", 64, "Information"
End Sub
Wer kann mir helfen und den Code entsprechend "umbasteln" (bin leider VBA-Anfänger und damit noch hoffnungslos überfordert)??
Vielen Dank für eure Hilfe!
Grüsse, Benjamin