Clever-Excel-Forum

Normale Version: VBA - Wert suchen und Spalte ausgeben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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...
Code:
Sub M_snb()
   msgbox Tabelle1.Rows(1).Find("Ergebnis 3").column
end sub