Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Dimen am September 12, 2014, 11:08:56 Vormittag

Titel: Adresse eines bestimmten Inhaltes finden
Beitrag von: Dimen am September 12, 2014, 11:08:56 Vormittag
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
Titel: Antw: Adresse eines bestimmten Inhaltes finden
Beitrag von: Officer am September 12, 2014, 11:22:57 Vormittag
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]
Titel: Antw: Adresse eines bestimmten Inhaltes finden
Beitrag von: Dimen am September 12, 2014, 11:55:53 Vormittag
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
Titel: Antw: Adresse eines bestimmten Inhaltes finden
Beitrag von: Officer am September 12, 2014, 12:01:45 Nachmittag
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
Titel: Antw: Adresse eines bestimmten Inhaltes finden
Beitrag von: Dimen am September 12, 2014, 12:07:19 Nachmittag
Den Befehl suchte ich;)

Es wird ja nicht nur simpel suche = Name sein?! Die Makro Aufzeichnung ergab mir meinen Befehl.
Titel: Antw: Adresse eines bestimmten Inhaltes finden
Beitrag von: Officer am September 12, 2014, 12:09:08 Nachmittag
Warum nimmst du nicht die Lösung mit der Importbox? Dort kann der Suchbegriff doch eingegeben werden.
Gruß Alois
Titel: Antw: Adresse eines bestimmten Inhaltes finden
Beitrag von: Dimen am September 12, 2014, 12:19:33 Nachmittag
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"))
?