Hallo,
Hi,
hab dir was in VBA geschrieben:
Public Sub Suchen()
Dim Tabellen As String
Dim vTabellen As Variant
Dim i, a As Integer
Dim Zelle
Dim Suchwert As String
Dim Auswertungstabelle As String
Dim AuswertungSpalte, AuswertungZeile As Integer
Dim Volltext As Boolean
Dim GrossKleinSchreibungUnterscheiden As Boolean
Tabellen = "Tabelle1;Tabelle2" ';DeineTabelle"
Auswertungstabelle = "Tabelle3"
AuswertungSpalte = 2
AuswertungZeile = 4
Suchwert = "ABC"
vTabellen = Split(Tabellen, ";")
a = AuswertungZeile
Worksheets(Auswertungstabelle).Range(Worksheets(Auswertungstabelle).Cells(AuswertungZeile, AuswertungSpalte), Worksheets(Auswertungstabelle).Cells(65536, AuswertungSpalte)).Value = ""
For i = 0 To UBound(vTabellen)
For Each Zelle In Worksheets(vTabellen(i)).UsedRange
If Volltext = False Then
If GrossKleinSchreibungUnterscheiden = False Then
If InStr(1, LCase(CStr(Zelle.Value)), LCase(CStr(Suchwert))) \> 0 Then
Worksheets(Auswertungstabelle).Cells(a, AuswertungSpalte).Value = vTabellen(i) & "/" & Replace(Zelle.Address, "$", "")
a = a + 1
End If
Else
If InStr(1, CStr(Zelle.Value), CStr(Suchwert)) \> 0 Then
Worksheets(Auswertungstabelle).Cells(a, AuswertungSpalte).Value = vTabellen(i) & "/" & Replace(Zelle.Address, "$", "")
a = a + 1
End If
End If
Else
If GrossKleinSchreibungUnterscheiden = False Then
If LCase(CStr(Zelle.Value)) = LCase(CStr(Suchwert)) Then
Worksheets(Auswertungstabelle).Cells(a, AuswertungSpalte).Value = vTabellen(i) & "/" & Replace(Zelle.Address, "$", "")
a = a + 1
End If
Else
If CStr(Zelle.Value) = CStr(Suchwert) Then
Worksheets(Auswertungstabelle).Cells(a, AuswertungSpalte).Value = vTabellen(i) & "/" & Replace(Zelle.Address, "$", "")
a = a + 1
End If
End If
End If
Next Zelle
Next i
MsgBox "Fertig"
End Sub
Gruß.Timo
als Praktikant habe ich schon wieder eine für mich fast
unlösbare Aufgabe bekommen.
Ich soll in mehreren Tabellenblättern nach einem Wert X suchen
und die entsprechenden Zeilen auf einer Übersichtsseite
angeben.
Problem dabei ist, daß nicht jede Zeile den Wert X enthält.
Ich habe es mit dem Befehl SVERWEIS versucht, jedoch kann
dieser meines Wissens nur einezelne Werte übernehmen und nur
in einer Zelle anzeigen. Zudem glaube ich, daß SVERWEIS nicht
diejendigen Zeilen berücksichtigt, welche keinen X Wert
enthalten.
Über Eure Hilfe wäre ich sehr, sehr dankbar.
Gruß Caspar.
