Office: Wert in allen Tabellen suchen

hilmar12 · 10. April 2012

Hallo an alle,

ich bin als VBA Anfänger neu hier und habe gleich eine Bitte um Hilfe:

In einem Excel2003 File suche ich einen Wert (kommt nur einmal in der Datei vor) der in einem von 19 Tabellenblättern in der Spalte A steht. Mit Hilfe des Tabellennamens (z.B. Wz1, Wz2....) und der zugehörigen Zeilen Nr. kann ich dann diese Zeile weiter verarbeiten.

Gruß Hilmar

:)

Beverly · 12. April 2012

Hi Hilmar,

versuche es mal mit diesem Code:
Code:

Sub zellinhalt_suchen_tabellenname_auslesen()
Dim raZelle As Range
Dim strSuchbegriff As Variant
Dim wsTabele As Worksheet
strSuchbegriff = InputBox("Suchbegriff:")
For loTabelle = 1 To Worksheets.Count
With Worksheets(loTabelle).Columns(1)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
MsgBox Worksheets(loTabelle).Name & "!" & raZelle.Address
End If
End With
Next loTabelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hilmar12 · 12. April 2012

Hallo Beverly,
vielen Dank für die superschnelle Antwort,

es funzt super, jetzt muß ich nur noch versuchen die Zeilen Nr. zu extrahieren,
das gefundene Blatt zu aktivieren um dann in der Zeile meinen text einzuordnen.

Vielleicht kannst Du mir hierbei noch helfen.
Gruß Hilmar

Bin gerade abkommandiert worden.
Kann erst morgen weiter machen.

Beverly · 12. April 2012

Hi Hilmar,

Code:

Sub zellinhalt_suchen_tabellenname_auslesen()
Dim raZelle As Range
Dim strSuchbegriff As Variant
Dim wsTabele As Worksheet
Dim loTabelle As Long
strSuchbegriff = InputBox("Suchbegriff:")
For loTabelle = 1 To Worksheets.Count
With Worksheets(loTabelle).Columns(1)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
Application.Goto _
reference:=Worksheets(Worksheets(loTabelle).Name).Range(raZelle.Address)
Exit For
End If
End With
Next loTabelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hilmar12 · 12. April 2012

Hallo Karin,
Du bist schneller als der Schall *Smilie
Es funzt alles prima.
Das Makro ist noch eingebettet in eine zusätzliche For Schleife, weshalb es toll wäre wenn Meldung käme wenn eine razelle nicht gefunden wird
Aber es funzt auch so

Vielen Dank

Beverly · 12. April 2012

Hi Hilmar,
Code:

Sub zellinhalt_suchen_tabellenname_auslesen()
Dim raZelle As Range
Dim strSuchbegriff As Variant
Dim wsTabele As Worksheet
Dim loTabelle As Long
Dim lngVorhanden As Long
strSuchbegriff = InputBox("Suchbegriff:")
For loTabelle = 1 To Worksheets.Count
With Worksheets(loTabelle).Columns(1)
Set raZelle = .Find(strSuchbegriff, lookat:=xlWhole, LookIn:=xlValues)
If Not raZelle Is Nothing Then
Application.Goto _
reference:=Worksheets(Worksheets(loTabelle).Name).Range(raZelle.Address)
Exit For
Else
lngVorhanden = lngVorhanden + 1
End If
End With
Next loTabelle
If lngVorhanden = Worksheets.Count Then MsgBox "Suchbegriff nicht gefunden"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hilmar12 · 12. April 2012

Hallo Karin,

bitte um Endschuldigung für die späte Reaktion,

tausend Dank für die Hilfe*top *top

Gruß Hilmar *winken

Office: Wert in allen Tabellen suchen

Wert in allen Tabellen suchen

Wert in allen Tabellen suchen

Wert in allen Tabellen suchen

Wert in allen Tabellen suchen - Similar Threads - Wert Tabellen

Negative Datenbalken - bedingte Formatierung

Werte aus einer Tabelle suchen, zusammenzählen und wiedergeben

Auslesen eines Wertes aus verschiedenen Tabelle

Werte auswählen wenn Tabelle mit teilergebnis

Werte in 2 Tabellen vergleichen und Zählen wenn Suchbegriff zutrifft

Formatierte Tabelle: Formel mit Wert überschreiben

Text auflisten wenn Wert in gleicher Spalte enthält X