Hallo atikar,
z.B. so:
Dim laC As Integer On Error Resume Next laC = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column On Error GoTo 0 If laC = 0 Then MsgBox "Das Blatt ist leer!"
Wenn das Blatt garantiert einen Inhalt hat, kannst Du auch auf die Fehlerbehandlung (On Error ...) verzichten. Viel Erfolg wünscht WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Letzte beschriebene Spalte finden
03.11.2005 08:31:01
atikar
hallo werner,
funktionier super, gibt es die möglichkeit statt einer spaltenzahl der buchstabe zu bekommen?
ciao
atikar
Anzeige
AW: Letzte beschriebene Spalte finden
03.11.2005 08:36:06
WernerB.
Hallo atikar,
z.B. so:
MsgBox Application.Substitute(Cells(1, laC).Address(0, 0), 1, "") Gruß WernerB.