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