Hallo liebes Forum,
ich habe ein Problem mit meinem VBA-Code. Im Bereich "H:NN" soll eine MsgBox erscheinen, wenn der Buchstabe "b" nach einem Dropdown ausgewählt wurde.
Funktioniert soweit auch ganz gut - wenn ich aber alle Inhalte lösche, gibt er mir den Laufzeitfehler 13 (Typen unverträglich) an, was optisch nicht so ansprechend ist. Jemand eine Idee wie man das lösen kann?
Vielen Dank!
Anbei der Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RNG As Range, strIO As String
Set RNG = Range("H:NN")
strIO = "b"
If Not Intersect(RNG, Target) Is Nothing Then
If Target = strIO Then
MSGBOX "Please enter further details on your business trip below your name. Click on the + on the left and a table will open up.", vbInformation
End If
End If
End Sub
|