Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wörter, die mit Doppelpunkt enden, fett markieren

Forumthread: Wörter, die mit Doppelpunkt enden, fett markieren

Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 08:42:36
Tim
Hallo,

wie könnte man es erreichen, dass in einer Zelle (z.B. "A4") jedes Wort, das mit einem Doppelpunkt endet (z.B. "Trainer:") fett markiert wird. Die Lösung müsste in VBA sein.

Danke schonmal

Tim



Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 08:54:49
MartinP

Ganz einfach: Menü Formatierung; Bedingte Formatierung; dann im Drop-Down-Feld auf "Formel ist" gehen und in das Textfeld:
=RECHTS(A4;1)=":"
reinschreiben.
Das ganze als Makro aufzeichnen - ergibt:


Range("A4").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,

Formula1:= _
"=RECHTS($A$4;1)="":"""
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With

Martin

Anzeige
Re: Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 09:04:23
Forum

Hallo Martin

hast Du da vielleicht was entscheidenes überlesen

"dass in einer Zelle (z.B. "A4") jedes Wort, das mit einem Doppelpunkt endet"

ich würde daraus lesen das in A4 mehrere Wörter stehen und einige mit ":" enden.

Gruß

Re: Wörter, die mit Doppelpunkt enden, fett markieren
03.04.2003 09:33:45
MartinP

zu meiner Schande muss ich eingestehen, dass ich das falsch verstanden habe hier eine noch nicht vollständig ausgetestete Lösung:

Dim start As Integer, ende As Integer, isBold As Boolean, str As String
Dim i As Integer
str = Cells(4, 1)

start = 1
For i = 1 To Len(str)
If Mid(str, i, 1) = ":" Then
ende = i
ActiveCell.Characters(start, ende + 1 - start).Font.FontStyle = "Fett"
start = i + 1
ElseIf Mid(str, i, 1) = " " Then
start = i + 1
End If
Next i

Anzeige
Und noch eine getestete Lösung;-))
03.04.2003 09:37:26
Boris

Tach zusammen,

hab auch grad fertig geschrieben (bezogen auf A1), daher hier mein Vorschlag:

Gruß Boris


Klappt beides...
03.04.2003 09:49:38
Tim

...vilen Dank!

: im Wort ausschließen:
03.04.2003 10:08:57
Boris

Hi Tim,

um noch : mitten im Wort auszuschließen:

Gruß Boris

Anzeige
danke...
03.04.2003 10:17:23
tim

...klappt!

;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Wörter, die mit Doppelpunkt enden, fett markieren


Schritt-für-Schritt-Anleitung

Um Wörter, die mit einem Doppelpunkt enden, in Excel fett zu markieren, kannst Du folgendermaßen vorgehen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".
  3. Kopiere den folgenden Code:

    Sub FettMarkieren()
       Dim start As Integer, ende As Integer
       Dim str As String
       Dim i As Integer
    
       str = Cells(4, 1).Value ' Zelle A4
       start = 1
    
       For i = 1 To Len(str)
           If Mid(str, i, 1) = ":" Then
               ende = i
               ActiveCell.Characters(start, ende + 1 - start).Font.Bold = True
               start = i + 1
           ElseIf Mid(str, i, 1) = " " Then
               start = i + 1
           End If
       Next i
    End Sub
  4. Führe das Makro aus:

    • Schließe den VBA-Editor und gehe zurück zu Excel.
    • Drücke ALT + F8, wähle FettMarkieren aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

Problem: Das Makro funktioniert nicht.
Lösung: Stelle sicher, dass Du die Makros aktiviert hast. Gehe zu "Datei" > "Optionen" > "Trust Center" > "Einstellungen für das Trust Center" und aktiviere die Makros.

Problem: Nur das erste Wort wird fett markiert.
Lösung: Überprüfe den Code auf mögliche Fehler. Achte darauf, dass Du die richtige Zelle (A4) angibst.


Alternative Methoden

Eine einfache Möglichkeit, Wörter, die mit einem Doppelpunkt enden, fett zu markieren, ist die Verwendung der bedingten Formatierung:

  1. Wähle die Zelle A4 aus.
  2. Gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel".
  3. Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden".
  4. Gib die folgende Formel ein:
    =RECHTS(A4;1)=":"
  5. Klicke auf "Formatieren" und wähle die Fettdruck-Option.

Praktische Beispiele

Angenommen, Du hast folgenden Text in Zelle A4:

Trainer: John, Spieler: Max, Coach: Anna

Nach dem Ausführen des Makros oder der bedingten Formatierung sollten die Wörter "Trainer:", "Spieler:" und "Coach:" fett dargestellt werden.


Tipps für Profis

  • Verwende die Funktion WENN in Kombination mit SVERWEIS oder INDEX für komplexere Bedingungen, um auch andere Wörter, die auf bestimmte Buchstaben enden (z.B. "Wörter die mit a enden"), zu erkennen und zu formatieren.
  • Überprüfe regelmäßig die Formatierungen, insbesondere wenn Du Daten importierst, um sicherzustellen, dass die Formatierungen nicht verloren gehen.

FAQ: Häufige Fragen

1. Kann ich das Makro für andere Zellen verwenden?
Ja, Du kannst die Zellenreferenz in Cells(4, 1) ändern, um andere Zellen anzusprechen.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst Excel auf deinem Computer verwenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige