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
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
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
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ß
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
hab auch grad fertig geschrieben (bezogen auf A1), daher hier mein Vorschlag:
Gruß Boris
um noch : mitten im Wort auszuschließen:
Gruß Boris
Um Wörter, die mit einem Doppelpunkt enden, in Excel fett zu markieren, kannst Du folgendermaßen vorgehen:
Öffne den VBA-Editor:
ALT + F11
, um den Visual Basic for Applications (VBA) Editor zu öffnen.Füge ein neues Modul hinzu:
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
Führe das Makro aus:
ALT + F8
, wähle FettMarkieren
aus und klicke auf "Ausführen".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.
Eine einfache Möglichkeit, Wörter, die mit einem Doppelpunkt enden, fett zu markieren, ist die Verwendung der bedingten Formatierung:
=RECHTS(A4;1)=":"
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.
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.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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen