Spaltenbezeichnung Zahl / Buchstabe (Herbers CD)
14.02.2004 19:41:43
Erich M.
habe von Herbers CD: Text-Index: 002697 den Code leicht geändert, mit dem eine
Spalte mit der Zahl ermittelt wird.
Nun suche ich eine Möglichkeit, die Spalte mit dem Buchstaben abzufragen, statt
mit der Zahl, ebenso das per MsgBox angezeigte Ergebnis:
Sub letztezellexy()
Dim rng As Range
Dim vCol As Variant
vCol = Application.InputBox( _
prompt:="Bitte Spalte als Zahl angeben:", _
Default:=2, _
Type:=1)
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
MsgBox ("Die letzte Zeile der Spalte " & vCol & " ist: ") & rng.Address
' Range("A1") = rng.Address(False, False)
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige