Office: [VBA] ListObjects in Spalte suchen und zeilennummer ausgeben

Hallo miteinander.

ich habe eine Tabelle (STRG+T) in VBA ist das ein ListObjects darin möchte ich in einer Spalte einen wert suchen und möchte die Zeilennummer ausgegeben haben so das ich aus der ziele etwas anderes ausgeben lassen kann.
Ähnlich der Index mit Vergleich Formel.


Dazu habe ich mir jetzt eine kleine Muster Datei gebaut da die eigentliche Datei schon etwas groß und umfangreich geworden ist.

In Zelle G4 soll eine ID eingetragen werden, die zellen G5 und 6 sind Kontroll ausgaben mit Formeln.

Wenn man auf VBA Start drückt soll in Zelle G8 und G9 die entsprechenden Werte ausgegeben werden.

Ich habe mir das jetzt mal so zusammen gebaut:
Code:

Ich wies nicht wie ich in einer Spalte ein Wert suchen kann und als Rückgabe wert dann die Zeilennummer bekomme, denn in der ziele
Code:

muss ich anstelle der 3 ja irgend wie den Vergleich noch machen welche ID aufgerufen wurde das ich die richtige ziele bekomme.


Hat jemand eine Idee wie so was geht?

Gruß Mücke

ps. Musterdatei ist angehängt.

:)

 

Hi,

setze in deinem Code anstelle der 3 dieses: Range("G4").Value

 

Hey,

das klappt nicht ganz denn die ID muss nicht zwingend die Zeilennummer sein.

z.B. wenn die Tabelle verschiedene Filter Aktivist hat, dann stimmt die Reihenfolge nicht mehr, oder es wurden ID`s gelöscht dann rutscht der Rest um eine ziele nach oben. etc.


Daher würde ich gerne einen Vergleich dort einbauen

Suche: G4
Matrix ListObjects Spalte: ID
Ausgabe wert: Zeilennummer

doch wie macht man das?

 

Das ging aber aus deiner hochgeladenen Mappe nicht hervor...

Code:

 

du bist spitze, danke.

genau das habe ich gesucht.

habe die Zeile
Code:

noch etwas angepasst.
Warum arbeitet Ihr immer mit Spaltennummern und nicht mit den Überschriften? (wenn in der Tabelle eine Spalte dazu kommt oder gelöscht wird dann stimmt der gesamte Code nicht mehr :-( wenn man die Überschriften nimmt dann ist es egal wo sie Spalte steht solange sie noch im der Tabelle ist)
Bei mir sieht die nun so aus.

Code:

Danke dir. hast mir sehr geholfen.

Gruß Mücke

 

Das stimmt schon, aber die Chance, dass die Spalte mit der ID verschoben wird, ist genau so groß wie die, dass die Spaltenüberschrift geändert wird - und dann löst der Code einen Laufzeitfehler aus.

 

Leider habe ich beim testen bemerkt da sich einen
Laufzeitfehler '13' bekomme wenn der Gesuchte begriff nicht vorhanden ist.

Wie kann ich eine Fehlerabfrage vornehmen?


ich mag GoTo Anweisungen nicht.

daher widerstrebt es mir so was zu machen.
Code:

wie würde das denn eleganter gehen?

Gruß Mücke

 

Naja, mein Code sieht auch anders aus - schau ihn dir genau an und vor allem, wie bei mir die Variable varZelle deklariert ist...

 

Beverly du bist die beste, danke.

jetzt habe ich das so gelöst.

Code:

Danke.


Gruß Mücke