Kontextmenü bei rechtem Mausklick abschalten
05.04.2006 13:29:40
pauker1203
ich möchte in Spalte C die beiden Worte (Vor- und Nachnamen) vertauschen. Da nicht immer etwas in der Zelle steht oder beides manchmal auch schon in der richtigen Reihenfolge eingetragen wurde, soll dies nur bei einem Klick mit der rechten Maustaste geschehen. Das funktioniert mit dem Code unten auch schon sehr gut, aber danach öffnet sich immer das Kontextmenü. Kann ich dies für diesen speziellen Fall ausschalten? (Bei den anderen Spalten soll es erscheinen!)
Hier ist mein Code zum Tauschen von Vor und Nachname:
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
Position = InStr(Name, " ")
Vorname = Left(Name, Position - 1)
Nachname = Mid(Name, Position + 1)
Target.Value = Nachname + " " + Vorname
end if
End Sub
Gruß
der Pauker
Anzeige