Spalte des gefundenen Wertes ausgeben
15.01.2026 22:54:07
CptTuttle
ich möchte mit diesem Makro im Sheet "SP" die jeweiligen Datumsangaben in Zeile 1 in einem Array suchen.
Wenn de jeweiligen Datumsangaben aus dem Sheet SP im Array gefunden wurden, möchte ich die jeweiligen Spalte des im Array gefundenen Suchbegriffes im Sheet SP ausgeben. Leider weiß ich nicht wie man das dies umsetzt.
Bestimmt hat jmd. eine Lösung.
Viele Dank
Chris
Dim ws As Worksheet
Dim rng As Range
Dim arrDaten As Variant
Dim gesuchterWert As Variant
Dim zeilen, ii As Long
Dim ausgabetext As String
For ii = 5 To 22 Step 4
gesuchterWert = Sheets("SP").Cells(1, ii).Value
Set ws = ThisWorkbook.Sheets("HD")
Set rng = ws.Range("A8:C50")
arrDaten = rng.Value
For zeilen = LBound(arrDaten, 1) To UBound(arrDaten, 1)
If arrDaten(zeilen, 2) = gesuchterWert Then
'gebe mir die Spaltennummer von gesuchter wert im Sheet SP aus...
End If
Next zeilen
Next ii
Anzeige