Microsoft Excel

Herbers Excel/VBA-Archiv

falsche Spaltenzahl


Betrifft: falsche Spaltenzahl von: Lorenz
Geschrieben am: 26.09.2017 09:54:22

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

  

Betrifft: AW: falsche Spaltenzahl von: {Boris}
Geschrieben am: 26.09.2017 09:59:33

Hi Lorenz,

LngColEnd = Selection.Columns.Count + LngColBegin - 1

VG, Boris


  

Betrifft: AW: falsche Spaltenzahl von: Lorenz
Geschrieben am: 26.09.2017 10:17:14

Hi Boris


vielen lieben Dank

Jetzt is es so wie ich es wollte(brauche).

Grüße
Lorenz


Beiträge aus den Excel-Beispielen zum Thema "falsche Spaltenzahl"