Excel - VBA
21.11.2014 14:52:11
tigub
Wiedermal brauch ich Eure geschätzte Hilfe..
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngGeltungsBereich As Range
Set rngGeltungsBereich = Union(Range("A22"), Range("A22"))
If Not Intersect(Target, rngGeltungsBereich) Is Nothing And Target.Count = 1 Then
Target.Value = "Name"
Cancel = True
End If
Set rngGeltungsBereich = Nothing
End Sub
Soweit läuft das mal richtig gut...Doch wenn ich nun, die gleiche VBA nehm aber bei '= Union(Range("A24"), 'Target.Value = "Vorname"
bei "A26" ; = "Adresse"
bei "A28" ; = "Mail" etc. läuft das nicht mehr.
Ich hab vieles versucht und komme doch nicht dahinter,
Könnte mir da jemand helfen?
Oder geht das so gar nicht?
Vielen Dank mal
tigub