Ich habe hier einen Code der mir die Spalten in 3 Blöcke zusammenfasst um zu verhindern, dass wenn ich eine Zelle ansteuere, die Spalte nicht irgendwo wirr auf dem Bildschirm herumsteht. In diesem Fall Spalte A-F. Klappt mit diesem Code auch einwandfrei. Nun wollte ich ein paar Spalten überspringen und etwas weiter hinten im Alphabet dasselbe machen. Ich habe dafür folgende Änderung eingebracht, über die das Programm aber nicht besonders begeistert war. Frage: Was habe ich falsch gemacht?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Tabellenblatt wird nur bis zu einer gewissen Anzahl in Blöcke von 3 Spalten gruppiert
Dim lngBlockbreite As Long
If Target.Column 10 And .Column
Kann mir da mal jemand auf die Sprünge helfen.
Mfg
Claude