Adresse eines bestimmten Inhaltes finden

[Dimen]

Hallo!



Ich habe ein kleines Problem mit dem Befehlt address. Und zwar geht es darum, dass ich mir eine Zelle mit einem bestimmten Inhalt suchen lassen möchte und die Adresse der Zelle da drunter kopieren möchte.
Bisher bin ich so vorgegangen, dass ich zuerst mal die Zelle mit dem bestimmten Inhalt (z.B. Alter) suchen möchte und die Adresse zur Kontrolle über die Msg Box ausgeben lassen möchte. Es wird mitlerweile immerhin kein Fehler angezeigt, allerdings wird mir auch die Adresse nicht ausgegeben. Kann mir jemand einen Tipp, auch keiner mit Hintergrundlesematerial geben ?

Beste Grüße
Dimen

[Officer]

Hi Dimen,

mit folgendem Code wird die Adresse per MsgBox ausgegeben, wenn der in der Input-Box angegebenen Suchbegriff auf dem Sheet gefunden wurde.

Code: Visual Basic

1. Sub suchen_adresse()
2.  
3. Dim zelle As Range
4.  
5. suche = InputBox("Suchbegriff eingeben")
6.  
7. For Each zelle In ActiveSheet.UsedRange
8.   If zelle.Value = suche Then
9.     MsgBox zelle.Address
10.   End If
11. Next zelle
12.  
13. End Sub
14.  

In der beigefügten Beispieldatei kannst du das Ganze auch nachvollziehen.

Gruß Alois
[Officer]

[Dimen]

Ok der Ansatz ist deutlich besser und einfachher zu verstehen als ich das bisher verfolgt habe.
Meine Interpretation bisher ohne Eingabebox sieht so aus:

Code: [Auswählen]

Sub bla()


Dim zelle As Range
Dim suche As Range

Workbooks.Open Filename:=ThisWorkbook.Path & "\Adresse.htm"

suche = Cells.Find(What:="Name")
'Worksheets("Adresse").Activate
For Each zelle In ActiveSheet.UsedRange
If zelle.Value = suche Then
    MsgBox zelle.Address
End If
Next zelle


End Sub

Leider ein Fehler. Kannst du mir sagen was ich falsch mache ?

Beste Grüße

[Officer]

Was willst du mit diesem Befehl bezwecken?

suche = Cells.Find(What:="Name")

Warum übernimmst du nicht einfach meine Lösung oder gibst der Variable "suche" den gesuchten Text vor?

Gruß Alois

[Dimen]

Den Befehl suchte ich;)

Es wird ja nicht nur simpel suche = Name sein?! Die Makro Aufzeichnung ergab mir meinen Befehl.

[Officer]

Warum nimmst du nicht die Lösung mit der Importbox? Dort kann der Suchbegriff doch eingegeben werden.
Gruß Alois

[Dimen]

Würde das gerne ohne versuchen. Das müsste doch auch per Einzeiler gehen ?
Also irgendwie so:

Code: [Auswählen]

Dim zelle As Range
MsgBox zelle.Address(Cells.Find(What:="Name"))
?