letzte Zelle als Variable
30.05.2006 13:22:10
Hansi
habe da mal eine kurze Frage.
mit folgendem Code ermittle ich die letzte Zelle der Spalte G und lass mir den Inhalt in einer MsgBox ausgeben:
Sub lbenZelle()
Dim lZelle As Range
Set lZelle = Range("G65536").End(xlUp)
MsgBox "Inhalt der letzten benutzten Zelle lautet: " & lZelle.Value
End Sub
Nun die Frage, kann man die Spalte in der gesucht wird irgendwie als variable angeben, z.Bsp. über eine Eingabe in A1 oder eine Inputbox?
Hatte es so probiert, funktioniert aber nicht:
Sub lbenZelle()
Dim lZelle As Range
Dim Spalte As Integer
Spalte = InputBox("Bitte Spalte angeben :")
Set lZelle = Range(Spalte).End(xlUp)
MsgBox "Inhalt der letzten benutzten Zelle lautet: " & lZelle.Value
End Sub
Kann mir jemand helfen?
Grüße
Hansi