Re: Danach hast du ja auch nicht gefragt :-)
01.05.2003 14:53:20
Ron Wirz
RainerSorry, hier die Geschichte.
Ich lasse den Benutzer über....
Set i = Application.InputBox("Markieren Sie die gewünschte Zelle", , , , , , , 8)
in eine Zelle im aktiven Sheet klicken. Klickt er nun in eine Zelle wird mir der Wert z.b. $A$9 zurückgegeben.
Für meine Folgeverarbeitung brauche ich nun aus dem obigen Beispiel aber nur die 9 ($ und A entfallen).
Mit Deinen Angaben habe ich nun eine Lösung erstellt.
------------------------------------------------------
' Über eine Abfrage den User in die Gewünsche Zelle klicken lassen
Dim i As Range
On Error Resume Next 'Wegen Schaltfläche Abbrechen
Set i = Application.InputBox("Markieren Sie die gewünschte Zelle", , , , , , , 8)
Dim strVersuch As String
' Der Wert wird nun $x$x sein
strVersuch = i.Address
'Damit nur die Zahl weiterbenutzt werden kann, zuerst in diese Zelle springen
ActiveSheet.Range(strVersuch).Select
'um mit aktiveCell.Row die Zahl auslesen zu können
strZellZahl = ActiveCell.Row
-------------------
Weiterverarbeitung
-------------------
'Werte aus allen Zellen in Beispiel Zelle 1 und 2 in Zeile (strZellZahl) auslesen
strAnredeZwei = Cells(strZellZahl, 1).Value
strNameZwei = Cells(strZellZahl, 2).Value
Uff ich glaube dies ginge auch einfacher ;-))
Gruss Ron