Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Wenn * vorhanden dann schreibe in..."
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist Warnung, wenn Wert bereits vorhanden
Prüfen, ob ein Menü vorhanden ist Datei kopieren, wenn noch nicht vorhanden
CommandBar in Abhängigkeit vorhandener Makros erstellen Als Text vorhandene Werte in Zahlen umwandeln
Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen Prüfung, welche Tabellenblätter aus einer Liste vorhanden sind
Prüfung, ob Daten schon vorhanden und Meldung Vorhandensein von Verzeichnissen prüfen und Ordner anlegen