Herbers CD / 002697
04.04.2004 09:43:49
Erich M.
ich möchte ermitteln wieviele Zeilen in Spalte A gefüllt sind und das Ergebnis
in die Zelle B2 eintragen. Dabei muss ich immer "3 Zeilen" abziehen. Auf der CD habe ich nachstehenden Code gefunden, bereits leicht geändert, der mir die
letzte belegte Zelle ermittelt und in B2 einträgt (z.B. A35).
Nun müsste ich aus A35 als Ergebnis 32 eintragen lassen (= 35 - 3).
Wie muss man den Code ändern oder gibts eine andere Lösung:
Sub aaLastCell()
'Text-Index: 002697 - leicht geändert
Dim rng As Range
Set rng = Cells(Rows.Count, CInt(1)).End(xlUp)
If IsEmpty(rng) Then
MsgBox "Keine Zelle mit Inhalt in Spalte 1 "
Else
Range("B2") = rng.Address(False, False)
End If
End Sub
Besten Dank für eine Hilfe!
mfg
Erich