|
Hallo zusammen,
ich habe unendlich das Internet durchforstet, komme aber leider zu keiner passenden Lösung.
Momentan möchte ich mir für zu Hause eine Sortierung für mein Konto basteln, der vorhandene Code sucht Momentan nach dem Wort "Aral" und soll dann den Wert der Spalte ausgeben und in eine freie Spalte kopieren.
Wenn ich "firstAddress" durch eine Zahl z.b 1 oder 2 ersetze, funktionert der Code einwandfrei.
Ich habe bemerkt, dass die Zellen die gefunden werden und an firstAddress übergeben werden immer "$E$6" sind. Daher vermute ich, dass die Funktion Cells mit dem "$" nicht zurecht kommt, hat jemand eine Lösung dafür ?
Hintergrund ist das es natürlich mehrere "Aral" Wörter in einem Monat geben kann und deshalb soll neu gesucht werden und der Wert übergeben werden.
Ich würde mich über Hilfe freuen,
VG
Christian
Sub test()
Dim firstAddress As String
With Worksheets("Tabelle1").Range("E1:E10")
Set c = .Find("Aral", LookIn:=xlValues)
If Not c Is Nothing Then
Do
firstAddress = c.Address
Set c = .FindNext(c)
Cells(firstAddress) = Cells(4, 4)
Loop While Not c Is Nothing
End If
End With
End Sub
|