|
Hallo Werner,
vielen Dank für deine Zeit und deine Antwort.
Ich glaube, wir haben uns missverstanden. Ich möchte in der Spalte B untereinander jeweils nur das Stichwort stehen haben, folgender Aufbau ist gemeint:
A B
Kostenart Stichwort
MasterCard, Adobe Adobe
Klipfolio 30€ Klipfolio
Juni Klipfolio VisaCard Klipfolio
Insgesamt handelt es sich um ca. 1.000 Datensätze und rund 50 verschiedene Stichwörter. Das "Problem" ist zur Zeit über eine lange verschachtelete Wenn-Funktion gelöst. Ich dachte aber, es gäbe über VBA vllt eine schnellere und unkompliziertere Lösung. Zur Zeit bin ich so weit, dass ich nach einem bestimmten Stichwort (egal wo im Text es steht) suchen lassen kann.
Sub a()
Dim Rng As Range
Dim wks As Worksheet
Set wks = Worksheets("data")
Set Rng = wks.Range(wks.Cells(1, 1), wks.Cells(1000, 1)).Find(what:="Adobe", lookat:=xlPart, LookIn:=xlValues, MatchCase:=True)
If Not Rng Is Nothing Then Rng.Select
End Sub
Ich komme allerdings jetzt nicht mehr weiter bzw. bin mir auch nicht sicher, ob das überhaupt ein guter Ansatz ist.
Ich freue mich über weiteres Feedback.
|