Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zellenposition übergeben

Betrifft: Zellenposition übergeben von: Steffen
Geschrieben am: 31.07.2014 11:44:20

Hallo zusammen,

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

  

Betrifft: AW: Zellenposition übergeben von: Hajo_Zi
Geschrieben am: 31.07.2014 11:48:59

Hallo Steffen
nicht rngHeader.Adress sondern rngHeader.Address
Was möchtest Du haben?

GrußformelHomepage


  

Betrifft: AW: Zellenposition übergeben von: Steffen
Geschrieben am: 31.07.2014 11:54:23

Hallo Hajo,

ich möchte im Anschluss den beiden Variablen a und b die Zellenposition des gesuchten Textes übergeben.
Einmal die Zeile an Variable a und
einmal die Spalte an die Variable b.


Gruß
Steffen


  

Betrifft: AW: Zellenposition übergeben von: Hajo_Zi
Geschrieben am: 31.07.2014 12:00:31

Hallo Stefen,

das Stand doch schon im ersten Beitrag von Dir.
mit a = rngHeader.row
und b = rngHeader.column

Gruß Hajo


  

Betrifft: AW: Zellenposition übergeben von: Steffen
Geschrieben am: 31.07.2014 12:26:47

Hallo Hajo,

hatte zunächst Bedenken da es mit .row/.column nicht wirklich funktioniert hat.
Jetzt ist mir aufgefallen dass die Variable B nicht als Long deklariert war im Code.
Nun klappt es :)

Vielen Dank für deine Hilfe!

Gruß
Steffen


 

Beiträge aus den Excel-Beispielen zum Thema "Zellenposition übergeben"