Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub LastCell()
   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
      Range("A1") = rng.Address(False, False)
   End If
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zelle