Microsoft Excel

Herbers Excel/VBA-Archiv

Excel - VBA

Betrifft: Excel - VBA von: tigub
Geschrieben am: 22.11.2014 12:58:16

Hallo zusammen

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

  

Betrifft: AW: Excel - VBA von: Crazy Tom
Geschrieben am: 22.11.2014 13:01:17

Hallo

ungetestet

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     Dim rngGeltungsBereich As Range
     Set rngGeltungsBereich = Range("A22,C22,E22,G22")
     If Not Intersect(Target, rngGeltungsBereich) Is Nothing Then
     Select Case Target.Column
        Case 1
         Target.Value = "Name"
        Case 3
         Target.Value = "Vorname"
        Case 5
         Target.Value = "Adresse"
        Case 7
         Target.Value = "Mail"
     End Select
     End If
     Cancel = True
     Set rngGeltungsBereich = Nothing
End Sub

MfG Tom


  

Betrifft: AW: Excel - VBA von: tigub
Geschrieben am: 22.11.2014 13:19:42

Sorry,

ne, Deine Idee wären demnach die Zellen 1 ; 3 ; 5 ; 7

Das haut nicht hin...

Vielen Dank trotzdem..

tigub


  

Betrifft: AW: Bitte erst testen, dann antworten! von: Gerd L
Geschrieben am: 22.11.2014 13:25:24

Columns <> Cells

Gruß Gerd


  

Betrifft: AW: Bitte erst testen, dann antworten! von: tigub
Geschrieben am: 22.11.2014 14:13:02

Hallo Gerd

Anstelle von was, muss ich das eingeben

tigub


  

Betrifft: Nichts ändern, du hast Toms Code missinter-... von: Luc:-?
Geschrieben am: 22.11.2014 14:59:35

…pretiert, tigub,
worauf dich Gerd hinweisen wollte!
Gruß, Luc :-?


  

Betrifft: OK, war ja schon erledigt! owT von: Luc:-?
Geschrieben am: 22.11.2014 15:00:45

:-?


  

Betrifft: AW: Excel - VBA von: Gerd L
Geschrieben am: 22.11.2014 14:19:09

Hallo,

du musst den Code von Tom unverändert ins Modul deiner bisherigen Prozedur kopieren u. deine alte Prozedur dort löschen.

Gruß Gerd


  

Betrifft: AW: Excel - VBA von: tigub
Geschrieben am: 22.11.2014 14:27:08

Supi

Jetzt läufts 1A, ich hatte die Falsche Zeile und Spalte drin, darum ist es nicht gelaufen...

Vielen Dank und hoffentlich auf ein nächstes mal...

tigub


  

Betrifft: AW: Excel - VBA von: Crazy Tom
Geschrieben am: 22.11.2014 13:22:33

Hallo

Zitat:
von untereinander, siehe unten, zu nebeneinander: A22,C22,E22,G22
1 = A
3 = C
5 = E
7 = G
und der Bereich der Wirksamkeit in Zeile 22
genau das Macht mein Vorschlag

MfG Tom