Text suchen und -1 Zelle anderen Text eintragen
09.05.2017 00:54:26
albin
Komme mal wieder nicht weiter.
Ich suchen den Text "Geburtstag" in Spalte D, ab Zeile 3. Wenn dieser gefunden wurde, dann schreibe eine Zelle Tiefer, einen anderen Text rein. Der Suchebegriff kann mehrmals vorkommen in D vorkommen.
Wenn ich nur ein Such-Zeichen benütze, zum Beispiel ein X, dann geht es! Aber sobald ich mehrere Zeichen , Wort usw suche, läuft es nicht mehr.
Da mal der Code und die Datei.
Bitte wenn Möglich in VBA.
Danke und Gruss
Albin
Public Sub Text_in_Zelle()
Dim raBereich As Range
Dim raZelle As Range
Dim loLetzte As Long
Dim strText As String
strText = "geheim"
With Sheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 4).End(xlUp).Row
Set raBereich = .Range(.Cells(2, 4), .Cells(loLetzte, 4))
For Each raZelle In raBereich
If UCase(raZelle.Value) = "Geburtstag" Then
raZelle.Offset(1, 0) = strText
End If
Next raZelle
End With
Set raBereich = Nothing
End Sub
https://www.herber.de/bbs/user/113423.xlsm
Anzeige