Excel VBA Problem

[Wilthi]

Hallo Leutz


ich habe diesen code in meiner Tabelle drine aber nun möchte ich gerne diese Funktion um 1 spalte erweitern.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
                                       Cancel As Boolean)
  With Target
     If Intersect(Target, Range("R5:R370")) Is Nothing Or _
        .Count > 1 Then Exit Sub
        .Value = IIf(.Value = "ü", "", "ü")
     .Font.Name = "Wingdings"
     Cancel = True
     End With
End Sub

--> dieser code funktioniert super nun will ich es aber auf 2 voneinander getrennte spalten erweitern.
Es soll diese (Range("W5:W270")) erweitert werden! so das ich jetzt R und W kontrollieren kann!
Leider funktioniert es nicht das ich einfach nur Range("R5:R270;W5:W270") mache. Bei dieser schreibweise kommt immer ein fehler!!


danke
W.

 

[Mr. Snoot]

VBA nutzt englische Syntax, daher brauchst du dort , statt ; - also Range("R5:R270,W5:W270")

 

[Wilthi]

manchmal is es aber auch einfach ^^

thx