Zellenposition übergeben
31.07.2014 11:44:20
Steffen
da mir hier gestern so toll geholfen wurde hätte ich heute nochmals eine kurze Frage :)
Ich habe hier einen kleines Makro, dass einen Text entgegennimmt und mir daraufhin den Wert in der Tabelle sucht und mir dessen Zellenposition ausgibt.
Ich möchte nun die Zellenposition an eine andere Variable übergeben.
Hättet ihr einen Tipp für mich wie ich das umsetzen kann?
Hier mal der Code
*********************
Dim a As Long
Dim b As Long
Dim rngHeader As Excel.Range
Dim strHeader As String
strHeader = inputBox("Geben Sie hier den zu suchenden Text ein:")
Set rngHeader = ActiveSheet.UsedRange.Find(strHeader, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If Not rngHeader Is Nothing Then
MsgBox "'" & strHeader & "' wurde in Zelle " & rngHeader.Address(False, False) & " gefunden.", vbInformation
Else
MsgBox "'" & strHeader & "' wurde nicht gefunden.", vbExclamation
End If
"hier fehlt die Übergabe der Position"
********************
mit a = rngHeader.row
und b = rngHeader.column
hab ich es versucht aber das scheint nicht der richtige Befehl dafür zu sein.
und rngHeader.Adress gibt mir immer die komplette Position mit an.
Bin für eure Hilfe sehr dankbar!
Liebe Grüße
Steffen