habe folgende Frage:
Wenn in Spalte B der Text "Verhältnis" steht, soll die Zelle, die drei Spalten neben B steht, ausgewählt werden.
Schlussendlich sollen alle Zellen auswählbar sein. Ich weiß leider nicht, wie ich den Bereich jeweils erweitern kann.
Hier mein Ansatz
Sub Hallo()
Dim Bereich As Range
Dim zel As Range
With ThisWorkbook.Worksheets("Hallo")
For Each zel In .Range("B1:B900")
If zel = "Verhältnis" Then
Bereich = Bereich & Range(zel.Offset(0, 3)) ' Hier bräuchte ich eure Hilfe
End If
Next zel
End With
Bereich.Select
End Sub
Vielen Dank für Eure Hilfe
Gruß Jonatan