Excel - VBA
22.11.2014 12:58:16
tigub
Es läuft gut, doch wollte ich jetzt die Zellen etwas umstellen, von untereinander, siehe unten, zu nebeneinander: A22,C22,E22,G22, und es läuft nichts mehr. . .
Was mache ich falsch, komme nicht dahinter?
tigub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngGeltungsBereich As Range
Set rngGeltungsBereich = Range("A22,A24,A26,A28")
If Not Intersect(Target, rngGeltungsBereich) Is Nothing Then
Select Case Target.Row
Case 22
Target.Value = "Name"
Case 24
Target.Value = "Vorname"
Case 26
Target.Value = "Adresse"
Case 28
Target.Value = "Mail"
End Select
End If
Cancel = True
Set rngGeltungsBereich = Nothing
End Sub
Anzeige