Thema: Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen

StandardModule: basMain

Sub Auswaehlen()
   Dim iRow As Integer, iCol As Integer
   Dim rng As Range
   Set rng = Application.InputBox _
      ("Zeile auswählen:", Type:=8)
   iRow = rng.Row
   Set rng = Application.InputBox _
      ("Spalte auswählen:", Type:=8)
   iCol = rng.Column
   MsgBox Cells(iRow, iCol).Address(False, False)
End Sub

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