VBA-Fehlermeldung abfangen...
01.03.2004 10:40:07
Ina
einen schönen Montagmorgen wünsche ich in die Runde!
Ich habe ein kleines Problem...
In Tabelle1 werden abhängig vom Inhalt der Zellen B9:B39 per rechtem Mausklick eine UserForm (AUSWAHL_1 oder AUSWAHL_2) mit ListBox zur Auswahl von Werten geöffnet.
Enthält die Zelle E4 in Tabelle3 für AUSWAHL_2 jedoch keinen Wert, wird eine VBA-Fehlermeldung ausgegeben.
Ist es möglich, diese Fehlermeldung per MsgBox z.B. mit Hinweis darauf, erst einen Wert in Tabelle3 Zelle E4 einzugeben, aufzufangen (gleiches gilt auch für die UserForm AUSWAHL_1, die auf Tabelle4 Zelle E4 zugreift).
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
AUSWAHL_2.Show
Else
AUSWAHL_1.Show
End If
End If
If Not Intersect(Target, Range("H9:H39")) Is Nothing Then
AUSWAHL_3.Show
End If
Cancel = True
End Sub
Kann jemand von euch einem VBA-Anfänger weiterhelfen und den Code entsprechend "umbasteln"??
Danke im Voraus!!!
Grüsse, Ina