AW: Stichwörter-Suche und festen Begriff zuweisen
08.01.2026 20:27:57
Piet
Hallo Benno
das ist das passende Makro, zwei Dinge musst du ggf. noch selbst ändern! (Anpassen)
Als Suchbereich für Öl, Miete usw. habe ich die Spalte A gewählt. Wo stehen diese Daten bei dir?
Bei lz1 musst du deine Spalte angeben und bei Range("A2:A" & lz1) musst du das noch ändern.
Dann sollte das Makro einwandfrei laufen.
mfg Piet
Sub Suchlauf()
Dim AC As Range, lz1 As Long
Dim rFind As Range, Adr1 As String
lz1 = Cells(Rows.Count, "A").End(xlUp).Row
'Spalte AC löschen (ab Zeile 2)
Range("AC2:AC" & Rows.Count).ClearContents
'Suchbereich festlegen (Hier Spalte A)
For Each AC In Range("A2:A" & lz1)
'Suchlauf in Spalte D-O (Part)
Set rFind = Columns("D:O").Find(What:=AC, After:=[d1], LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
'Wenn gefunden weitersuchen bis Ende
If Not rFind Is Nothing Then
Adr1 = rFind.Address '1.Adr. merken!
Do
Cells(rFind.Row, "AC") = "Gebäude"
Set rFind = Columns("D:O").FindNext(rFind)
Loop Until Adr1 = rFind.Address
End If
Next AC
End Sub