mein Makro soll eine Zeile nach einem bestimmten Wert ("aktiv", kommt mehrfach vor) durchsuchen und den Wert aus der obersten Zeile der gleichen Spalte in ein anderes Tabellenblatt (SFCGFE) kopieren. Wie kann ich auf die Spalte der jeweils gefundenen Werte zurückgreifen? Zu Testzwecken (ob die Schleife funktioniert) kopiere ich momentan lediglich das Wort aktiv in das zweite Tabellenblatt.
i = 0
For Each cell In Rohdaten.Range("B2:AB2")
If cell.Value = "aktiv" Then
SFCGFE.Cells(3, 2 + i).Value = "aktiv"
i = i + 1
End If
Next