Fehlermeldung abfangen
07.04.2006 11:52:56
Pauker
ich hatte vorgestern schon einen ähnlichen Artikel im Forum und war auch sehr zufrieden mit der Lösung, aber nun ergibt sich ein Problem, bei dem mir hoffentlich jemand weiterhelfen kann:
Ich möchte in Spalte C beim Drücken der rechten Maustaste die beiden Worte (Vor- und Nachname) tauschen, was mit folgendem Code auch problemlos funktioniert:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Name As String
Dim Vorname As String
Dim Nachname As String
Dim Position As Long
Name = Target.Value
If Target.Column = 3 And InStr(Name, " ") > 0 Then
Cancel = True ' Kontextmenü deaktivieren
Position = InStr(Name, " ")
Vorname = Left(Name, Position - 1)
Nachname = Mid(Name, Position + 1)
Target.Value = Nachname + " " + Vorname
End If
End Sub
Wenn ich jedoch mehrere Zellen oder die ganze Zeile markiere, bekomme ich ständig die Fehlermeldung: Laufzeitfehler'13': Typen unverträglich.
Wenn ich den Code entferne bekomme ich die Fehlermeldung nicht, sondern wie gewünscht das Kontextmenü. Was mache ich falsch?
Gruss
der Pauker
Anzeige