Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

Meldung

Problem

Wie kann ich über InputBoxes die Zeilen- und Spaltennummer durch Klicken im Tabellenblatt festlegen und das Ergebnis in einer MsgBox anzeigen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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