VBA - Wert suchen und Spalte ausgeben

[Korain]

Hallo zusammen,

ich möchte aus einer Zeile einen bestimmten Wert suchen (immer Zahlenwerte).
Die Zeile die durchsucht werden soll besteht aus Überschriften, die zb. so aussehen können:

Ergebnis: x - Datum Date Time

Ergebnis: 2 - Datum 31.01.2022 12:12:00
Ergebnis: 3 - Datum 31.01.2022 12:13:00

Und ich suche immer den Wert nach Ergebnis und möchte mir entsprechend davon die Spalte ausgeben lassen.

Liebe Grüße
Korain

[Ralf A]

Bsp.:

Code:

Dim rng As Range, spalte As Integer
spalte = 0
Set rng = Tabelle1.Rows(1).Find("Ergebnis 3")
    If Not rng Is Nothing Then spalte = rng.Column

Für alle anderen möglichen Parameter zu Find sieh Dir die Hilfe an...

[snb]

Code:

Sub M_snb()
   msgbox Tabelle1.Rows(1).Find("Ergebnis 3").column
end sub