Hallo,
m. untenstehenden Codeschnipsel ermittle ich die Spaltenzahl (erste u. letzte Spalte der Markierung. Leider ist die letzte SpaltenNr. falsch
Dim LngColBegin As Long, LngColEnd As Long
LngColBegin = Selection(1).Column
LngColEnd = Selection(Columns.Count).Column
Ist z.B. H:P markiert
LngColBegin liefert die richtige Spaltenzahl (8)
LngColEnd hingegen die falsche Spaltenzahl (11) sollte 16 sein
Gruß Lorenz