Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
404to408
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format nach zwei Leerzeichen ändern

Format nach zwei Leerzeichen ändern
Teoman
Hallo Ihr!!
Kann mann eigentlich einen Makro erstellen, der Automatisch in einer Zelle alle Zeichen die nach zwei Leerzeichen sind kursiv und in Größe 20 macht.
Wäre Dankbar für Antworten!!
Teoman

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Format nach zwei Leerzeichen ändern
Bertram
Hallo Teoman,
das geht so:


Sub FormatÄndern()
With [A1].Characters(start:=InStr(1, [A1], "  ")).Font
    .Size = 20
    .FontStyle = "Kursiv"
End With
End Sub
Gruß
Bertram
AW: Format nach zwei Leerzeichen ändern
Teoman
Danke Bertram genau dass hab ich gesucht.
Teoman
Doch ein Fehler
Teoman
Hi Bertram
Ich hab doch leider einen Fehler endeckt:
Wenn ich nur ein Wort in der Zelle stehen hab macht es das wort auch kursiv. Kann man das noch verändern oder geht das nicht
Bitte um antwort!
DAnke
Anzeige
Mist, erwischt:-)
Bertram
Hallo Teoman,
hab mir schon gedacht das du das noch merkst.
Hab was vergessen. So sollte es jetzt aber gehen:


Sub FormatÄndern()
If InStr(1, [A1], "  ") <> 0 Then
With [A1].Characters(start:=InStr(1, [A1], "  ")).Font
    .Size = 20
    .FontStyle = "Kursiv"
End With
End If
End Sub
Gruß
Bertram
Anzeige
AW: Mist, erwischt:-)
27.03.2004 13:54:27
Teoman
So wie es aussieht geht es jetzt einwandfrei
Vielen Dank
Teoman

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige