Herbers Excel-Forum - das Archiv
Nr. der letzten Spalte
- Nr. der letzten Spalte von iven_s vom 30.10.2003 14:27:08
- AW: Nr. der letzten Spalte - von Hajo_Zi am 30.10.2003 14:29:31
- AW: Nr. der letzten Spalte - von Patrick am 30.10.2003 14:31:05
- Danke an alle. Hajo' s Lösung funktioniert - von iven_s am 30.10.2003 14:39:37
- AW: Nr. der letzten Spalte - von Hajo_Zi am 30.10.2003 14:29:31
 |
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
 |
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.
|
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
|
Betrifft: Danke an alle. Hajo' s Lösung funktioniert
von: iven_s
Geschrieben am: 30.10.2003 14:39:37
...
| |