Nr. der letzten Spalte

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Nr. der letzten Spalte
von: iven_s
Geschrieben am: 30.10.2003 14:27:08

Hallo,
Wie kann ich einer Variablen die Nr. der letzten in Zeile 1 gefüllten Spalte einer Tabelle zuweisen.


Sub letzteSpalteNr()
  dim lspnr as integer
  lspnr=' Was muß hier rein ????????
  msgbox lspnr
End Sub


iven_s
Bild


Betrifft: AW: Nr. der letzten Spalte
von: Hajo_Zi
Geschrieben am: 30.10.2003 14:29:31

Hallo iven_S

Letzte Spalte der Zeile 4
Cells(4, Columns.Count).End(xlToLeft).Column
Fehler falls letzte Spalte belegt wird diese nicht erkannt
[IV4] End(xlToLeft).Column
nach Hinweis von ManuelaM geändert
Dim LoLetzte As Long
LoLetzte =256
If [IV4] = "" ThenLoLetzte =[IV4].End(xlToLeft).Column


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.




Bild


Betrifft: AW: Nr. der letzten Spalte
von: Patrick
Geschrieben am: 30.10.2003 14:31:05

Hi iven_s

Versuche es mal mit den Befehlen


Sub letzteSpalteNr()
  dim lspnr as integer
  lspnr=' ActiveCell.Column
  msgbox lspnr
End Sub



Bild


Betrifft: Danke an alle. Hajo' s Lösung funktioniert
von: iven_s
Geschrieben am: 30.10.2003 14:39:37

...


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Nr. der letzten Spalte"