Office: Spalte durchsuchen und Zeilennummer ausgeben

msexcel · 6. Oktober 2016

Hallo zusammen,

ich benötige ein Makro, welches bestimmte Spalten einer aktiven Tabelle, beispielsweise Spalte Nr. 1 und Spalte Nr. 2 durchsucht und danach die Nummern aller Zeilen ausgibt, in denen das Suchwort vorkommt.

Leider bekomme ich das irgendwie nicht hin, da ich nicht weiss, wie ich eine bestimmte Spalte einer Tabelle durchsuchen kann.

Ich würde mich freuen, wenn mir jemand weiterhelfen könnte.

Vielen Dank für Eure Bemühungen bereits vorab.

:)

Hajo_Zi · 8. Oktober 2016

eine XLSX Datei kann kein Makro enthalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel, Fehler usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Scorefun · 8. Oktober 2016

Das geht auch per Formel (in A23)

=WENNFEHLER(AGGREGAT(15;6;ZEILE(Tabelle1[Nr.])/(FINDEN($B$19;Tabelle1[[1]:[3]])>0);ZEILE()-22);"")

und runterkopieren

@Hajo: Er hat nicht behauptet, daß in seiner Datei ein Makro ist; erhätte nur gerne eins...

msexcel · 8. Oktober 2016

Vielen Dank für den schnellen Hinweis.

Ich benötige jedoch ein Makro, da die Excel Version 2010 Aggregat nicht unterstützt.

Außerdem habe ich hier nur ein Teilproblem beschrieben um es einfach und übersichtlich zu halten. Es existiert bereits ein größeres Projekt, welches eine Reihe VBA Makros beinhaltet und dieses müsste integriert werden, da mit den Ergebnissen der Zeilen ein Array gefüllt werden soll.

Luschi · 8. Oktober 2016

Hallo msexcel

da bist du falsch informiert - die Aggregat-Funktion wurde mit Excel 2010 eingeführt!

Gruß von Luschi
aus klein-Paris

msexcel · 8. Oktober 2016

Vielen Dank für den Hinweis - hatte ich irgendwie falsch in Erinnerung.

Hat jemand für mich noch einen Hinweis, wie man es mit VBA lösen kann?

Luschi · 8. Oktober 2016

Hallo msexcel,

hier mal mein Versuch!

Gruß von Luschi
aus klein-Paris

msexcel · 8. Oktober 2016

Vielen Dank für Deine schnelle Antwort.

Ich glaube ich habe verstanden, wie Du es löst. Allerdings ist mir noch nicht ganz klar, wie man mit diesem System einzelne Spalten durchsucht.

So wie ich das verstehe, durchsuchst Du die ganze Tabelle. Für mich ist es jedoch wichtig, dass nur bestimmte Spalten (in meinem Beispiel 1 und 3) durchsucht werden.

Option Explicit

Sub SucheMal()
Dim ws As Worksheet, lstObj As ListObject, _
rg1 As Range, rg2 As Range, rg3 As Range
Dim adr As String

Set ws = ThisWorkbook.Worksheets("Tabelle1")

'vba-Bereich zum Schreiben der Zeilen-Nrn.
ws.Range("F21:F38").ClearContents
'als Tabelle formatiert
Set lstObj = ws.ListObjects("myLIst")
'1. Zelle zu schreiben der Zeilen-Nr.
Set rg1 = ws.Range("F21")

'Suchbereich für die Find-Funktion
Set rg2 = lstObj.DataBodyRange

With rg2
'Suchanweisung
Set rg3 = .Find(ws.Range("B19").Value, , xlValues, xlWhole, xlByRows, xlNext, False, False, False)
If Not rg3 Is Nothing Then
'wenn 1. Suchanweisung erfolgreich
'erste gefundene Zelladresse merken für die Abbruchbedingung
'ohne diese Ihfo dreht sich die Findfunktion im LKreis
adr = rg3.Address
'Suchschleife
Do
'gefundene Zeilen-Nr. schreiben
rg1.Value = rg3.Row
'Schreibzelle 1 Zeile tiefer setzen
Set rg1 = rg1.Offset(1, 0)
'erneut nach dem gleichen wert suchen
Set rg3 = .FindNext(rg3)
'Schleifen-Abbruchbedingung
Loop While Not rg3 Is Nothing And rg3.Address adr
End If
End With
'alle Objektvariablen über den Jordan werfen
Set rg1 = Nothing: Set rg2 = Nothing: Set rg3 = Nothing
Set ws = Nothing: Set lstObj = Nothing
End Sub

Private Sub CommandButton1_Click()
Call SucheMal
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Luschi · 8. Oktober 2016

Hallo msexcel,

tausche
Set rg2 = lstObj.DataBodyRange
gegen
Set rg2 = lstObj.DataBodyRange.Columns(2).Resize(, 3)

Dadurch wird der Bereich 'A1*biggrin.gif*17' geändert in 'B2*biggrin.gif*17'

Gruß von Luschi
aus klein-Paris

msexcel · 8. Oktober 2016

Vielen Dank,
das probiere ich aus.

Gruß msexcel

Office: Spalte durchsuchen und Zeilennummer ausgeben

Spalte durchsuchen und Zeilennummer ausgeben

Spalte durchsuchen und Zeilennummer ausgeben

Spalte durchsuchen und Zeilennummer ausgeben

Spalte durchsuchen und Zeilennummer ausgeben

Spalte durchsuchen und Zeilennummer ausgeben - Similar Threads - Spalte durchsuchen Zeilennummer

Spalte und Zeile durchsuchen

Mehrere Spalten durchsuchen und Wert von anderen Zelle ausgeben

Spalte mit Art. Nr. durchsuchen und bei Treffer diese Art. Nr. in die Nachbarspalte ausgeben

Spalte nach Namen durchsuchen und Ergebnisszeile nach Wert durchsuchen

Excel durchsuchen einer Spalte in Bezug eines Wertes

Mehrere Spalten durchsuchen und Wert aus bestimmter Spalte ausgeben

Produkt-Finder basteln. Spalte nach mehreren Werten durchsuchen, alles anzeigen.