Verständnisproblem bei sub lastcell
30.08.2006 15:44:16
Klaus
1. Set rng = Cells(Rows.Count, CInt(vcol)).End(xlUp)
wo kann ich mehr über den Befehl ---> .End(xlUp erfahren
2.Range("A1") = rng.Address(False, False)
wo finde ich eine Beschreibung obiger Syntax
Frage:
gibt es ein Lehrbuch wo alle möglichen Befehlsvorräte mit Erläuterung zusammengestellt sind ?
Beispielroutine letzte nicht leere Zelle ermitteln
Sub Lastcell()
Dim rng As Range
Dim vcol As Variant
vcol = Application.InputBox(prompt:=" Spalte als Zahl eingeben: ")
If vcol = "" Then Exit Sub
Set rng = Cells(Rows.Count, CInt(vcol)).End(xlUp)
If IsEmpty(rng) Then
MsgBox "keine Zelle mit inhalt in Spalte " & vcol & "!"
Else
Range("A1") = rng.Address(False, False)
End If
End Sub