Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einen Buchstaben in einem String farbig markieren

Einen Buchstaben in einem String farbig markieren
11.07.2006 12:45:43
Björn
Hallo zusammen,
ich ermittle über die Funktion "CharQuestionmark = InStr(TextBufferImported, "?")" die Position eines Fragezeichens in einem String. Dieses Fragezeichen möchte ich dann farblich gerne anders markieren, z.B. rot. Ich weiß also die Position des Zeichens in dem String. Mit welcher Funktion kann ich jetzt auf dieses einzelne Zeichen zugreifen und die Farbe und vielleicht sogar die Formatierung der Schrift ändern?
Danke schon mal für eure Hilfe.
Björn

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

Betreff
Datum
Anwender
Anzeige
AW: Einen Buchstaben in einem String farbig markieren
11.07.2006 12:55:53
Bertram
Hallo Björn,
als Bsp. steht dein Text in E1:
Range("E1").Characters(InStr(1, Range("E1").Value, "?"), 1).Font.ColorIndex = 3
Funktioniert so wenn nur 1 Fragezeichen vorkommt.
Gruß
Bertram
AW: Einen Buchstaben in einem String farbig markieren
11.07.2006 12:58:51
Björn
Hallo,
danke erst mal für den Tip. Funktioniert gut. Gibt es auch eine einfache Methode wenn mehrere Fragezeichen vorkommen?
Danke und Gruß,
Björn
AW: Einen Buchstaben in einem String farbig markieren
11.07.2006 13:16:44
Bertram
Hallo,
das sollte so funktionieren:

Sub FragezeichenEinfärben()
Dim i As Integer
i = 0
Do
i = InStr(i + 1, Range("E1").Value, "?")
If i = 0 Then Exit Sub
Range("E1").Characters(i, 1).Font.ColorIndex = 3
Loop
End Sub

Gruß
Bertram
Anzeige
AW: Einen Buchstaben in einem String farbig markieren
11.07.2006 13:05:06
UweD
Hallo
so...

Sub Fragezeichen()
Dim Wort$, Pos%
Wort = ActiveSheet.Cells(1, 1) 'Beispiel steht in A1
Pos = InStr(Wort, "?")
With ActiveSheet.Cells(1, 1).Characters(Start:=Pos, Length:=1).Font
.Name = "Arial"
.Size = 18
.ColorIndex = 3 'rot
End With
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Einen Buchstaben in einem String farbig markieren
11.07.2006 13:17:57
fcs
Hallo Björn,
du muß den Textstring per Makro zunächst in eine Tabellen-Zelle eintragen, anschließend kann das Fragezeichen als einzelnes Zeichen anders formatiert werden. Beispiel:

Sub BuchstabenMarkieren()
Dim TextBufferImported As String, CharQuestionmark As Integer, Zelle As Range
'Testdaten
TextBufferImported = "Test? Teste weiter"
Zeile = 1
Spalte = 1
CharQuestionmark = InStr(TextBufferImported, "?")
Set Zelle = ActiveSheet.Cells(Zeile, Spalte)
With Zelle
.Value = TextBufferImported
If CharQuestionmark > 0 Then
With .Characters(CharQuestionmark, 1).Font
.Size = 14
.ColorIndex = 3 'Rot
.Bold = True 'Fett
.Italic = False 'Nicht kursiv
.Name = "CourierNew"
End With
End If
End With
End Sub

Anzeige

108 Forumthreads zu ähnlichen Themen

Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Anzeige
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Anzeige
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge
alle Sonderzeichen in String ignorieren
Frank

Guten Abend liebes Forum,
ich erstelle mir derzeit aus einer csv Datei, die ich in Excel importiert habe neue Verzeichnisse. Das heißt ich möchte mein Musikarchiv sortiren auf Grundlage der ID3 Tag Infos. Nur leider ist nicht immer der ID3 Tag sinnvoll und/oder beim Import 4 " - Zeichen vor...
23.09.2009 23:31:36
Thread-ID: 1105092
8 Beiträge
Wenn Null nach Buchstaben, dann weglassen
mehmet

Guten Tag Forum,
in Spalte Q stehen folgende Werte:
ABX009
THG08
HJG0509
KLU00080
Nun möchte ich gern die Nullen weglassen, die hinter den Buchstaben stehen (incl. Buchstaben).
Das ganze sollte dann so aussehen:
9
8
509
80
Leider finde ich keine g...
13.10.2009 09:26:14
Thread-ID: 1109241
5 Beiträge
Wie lösche ich ein Zeichen in einem String?
hans-Jörg

Hallo,
strTest = "A "
wie kann ich das leerzeichen löschen?
Oder besser:
If Mid(TBTeilStr,2,1) = " " Then ??????Wie geht es wenn ich die letzten 2 Zeichen löschen möchte?
Hans-Jörg
11.04.2002 14:55:49
Thread-ID: 112482
4 Beiträge
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
13
2
14
12
2
7
4
3
3
2
11
3
1
14
7
7
10
5
1
6
7
4
11
4