Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text suchen und -1 Zelle anderen Text eintragen

Text suchen und -1 Zelle anderen Text eintragen
09.05.2017 00:54:26
albin
Hallo zusammen
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text suchen und -1 Zelle anderen Text eintragen
09.05.2017 02:58:07
Rainer
Hallo Albin,
Schau dir mal die Funktion "InStr" an. Ich denke die ist besser geeignet als "UCase".
Gruß,
Rainer
AW: Text suchen und -1 Zelle anderen Text eintragen
09.05.2017 08:37:53
EtoPHG
Hallo Albin,
Die Bedingung

UCase(raZelle.Value) = "Geburtstag"
kann nie wahr werden!
Wenn schon müsste es heissen
UCase(raZelle) = "GEBURTSTAG"
Gruess Hansueli
AW: Text suchen und -1 Zelle anderen Text eintragen
09.05.2017 14:42:14
albin63
Hallo
Super Tipp mit "UCase(raZelle) = "GEBURTSTAG"
Jetzt ist es Wahr und ändert den Text.
Vielen Dank
Albin
Dann is ja alles gut... (owT)
09.05.2017 15:10:48
EtoPHG

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige