VBA

Bild

Betrifft: VBA
von: Nicolai
Geschrieben am: 22.05.2015 11:44:31

Hallo zusammen,
ich bin auf der Suche nach einem Makro.
Folgendes sollte es können:
Sobald in irgendeiner Zelle in dem aktuellen Tabellenblatt ein "!" geschrieben wird soll dieses Rot werden.
Könnt ihr mir hierbei helfen?
Leider habe ich noch kein aktuelles Makro gefunden was dieses kann.
Vielen Dank vorab und viele Grüße,
Nicolai

Bild

Betrifft: Warum nicht bedingte Formatierung? (owT)
von: Peter
Geschrieben am: 22.05.2015 12:13:17


Bild

Betrifft: Nachgefragt...
von: robert
Geschrieben am: 22.05.2015 12:20:15
Hi,
wird nur das ! eingetragen oder zB: mit Text !
Gruß
robert

Bild

Betrifft: AW: VBA
von: SF
Geschrieben am: 22.05.2015 12:17:05
Hola,
um Doppelarbeit zu vermeiden....
http://ms-office-forum.net/forum/showthread.php?t=322746
Gruß,
steve1da

Bild

Betrifft: AW: VBA
von: Torsten
Geschrieben am: 22.05.2015 12:26:58
Das geht über eine bedingte Formatierung.
"nur Zellen formatieren die enthalten"
hier dann die Auswahl
"Bestimmter Text"
"Mit Inhalt"
In das Eingabefeld schreibst du nun ein: !
Nun noch eine Auswahl wie es formatiert werden soll.
Wenn du nun z.B. !hhh, hhh! oder hh!hh schreibst, wird dies erkannt und nach deiner Auswahl formatiert.

Bild

Betrifft: Nee, nur das ! soll rot sein... owT-Gruß
von: robert
Geschrieben am: 22.05.2015 12:50:10


Bild

Betrifft: Antwort im MS-Office-Forum, siehe SF owT
von: robert
Geschrieben am: 22.05.2015 12:27:56


Bild

Betrifft: AW: Antwort im MS-Office-Forum, siehe SF owT
von: Nicolai
Geschrieben am: 22.05.2015 12:58:58
ich will nur das das Ausrufezeichen ! rot und Fett wird.
Vielen Dank für die Verlinkung

Bild

Betrifft: zur Info....
von: robert
Geschrieben am: 22.05.2015 13:15:48
Hi,
Du verstehst das falsch, der Hinweis auf den Link bedeutet, dass Du zwei Foren
mit Deiner Aufgabe beschäftigst.Das nennt man Crossposting und ist nicht gerne gesehen.
Wenn schon in mehreren Foren, dann Hinweis auf die Foren erwünscht.
zB: ich habe diese Frage auch bei Herber gepostet...
Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
  If InStr(c.Value, "!") Then
  c.Characters(Start:=InStr(c.Value, "!"), Length:=3).Font.Color = vbRed
  c.Characters(Start:=InStr(c.Value, "!"), Length:=3).Font.Bold = True
  End If
Next c
End Sub
Gruß

Bild

Betrifft: AW: zur Info....
von: Nicolai
Geschrieben am: 22.05.2015 13:25:38
Ja ich hatte mich ja bedankt, das "steve1da" den Link eingefügt hatte.
Ich hatte alles richtig verstanden, deshalb mich bedankt.

Bild

Betrifft: AW: zur Info....
von: Nicolai
Geschrieben am: 22.05.2015 13:29:13
Aber Vielen Dank für deinen Code

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Layoutänderung in Workbook_Open nicht ausgeführt"