Wenn * vorhanden dann schreibe in...

Bild

Betrifft: Wenn * vorhanden dann schreibe in...
von: TomTom
Geschrieben am: 24.09.2003 09:47:50

HILFE!, ich (absoluter VBA Anfänger)hoffe Ihr könnt mir helfen.ich suche eine Funktion oder ein Makro welches in Spalte B neben anderem Text ein Zeichen (in diesem Fall *) sucht. Wenn dieses Zeichen in der Zelle vorhanden ist, soll in der Zelle daneben ein Wort ausgetauscht werden. ich verwende Excel XP.
Vielen Dank vorab...Gruss, TomTom

Bild


Betrifft: AW: Wenn * vorhanden dann schreibe in...
von: BerndE
Geschrieben am: 24.09.2003 10:10:46

Hallo TomTom,

versuch' mal folgendes Makro:

For Zeile = 1 To ActiveSheet.UsedRange.Rows.Count
If InStr(Cells(Zeile, 2), "*") > 0 Then
Cells(Zeile, 3) = "* gefunden"
End If
Next

Gruß
Bernd

www.bernds.page.de.vu


Bild


Betrifft: AW: Wenn * vorhanden dann schreibe in...
von: TomTom
Geschrieben am: 24.09.2003 12:23:06

Super!
Hat geklappt.
Vielen Dank Bernd


Bild


Betrifft: Gern geschehen !!! oT
von: BerndE
Geschrieben am: 24.09.2003 13:19:37

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Wenn * vorhanden dann schreibe in..."