Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einzelne Buchstaben formatieren

Forumthread: einzelne Buchstaben formatieren

einzelne Buchstaben formatieren
Lena
Hallo...
in A2 steht z.B. "Weihnachtsmann". Wenn in A1 der Zellinhalt "Nacht" steht, sollte in A2 die Wortstelle "nacht" z.B. blau eingefärbt werden. Wenn in A1 der Zellinhalt "mann" steht, sollte in A2 die Wortstelle "mann" blau erscheinen. Läßt sich für so etwas ein Makrobefehl entwickeln?
Besten Dank für eure Hilfe.
MfG
Lena
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: einzelne Buchstaben formatieren
06.11.2009 21:34:27
Peter
Hallo Lena,
das geht z. B. so:
Option Explicit
Public Sub Einfaerben()
Dim iLaenge  As Integer
Dim iPosit   As Integer
With ThisWorkbook.Worksheets("Tabelle4") ' den Tabellenblattnamen ggf. anpassen!
iLaenge = Len(.Range("A2").Value)
.Range("A2").Characters(Start:=1, Length:=iLaenge).Font.ColorIndex = xlAutomatic
If .Range("A1").Value  "" Then
iPosit = InStr(LCase(.Range("A2").Value), LCase(.Range("A1").Value))
If iPosit > 0 Then
iLaenge = Len(.Range("A1").Value)
.Range("A2").Characters(Start:=iPosit, Length:=iLaenge).Font.ColorIndex = 5
End If
End If
End With
End Sub
Gruß Peter
Anzeige
AW: einzelne Buchstaben formatieren
06.11.2009 21:46:04
Lena
Hallo Peter,
Oh, das geht ja wirklich. Könntest du bitte statt A2 aktive Zelle machen? Ist mir erst jetzt eingefallen.
Danke.
MfG
Lena
AW: einzelne Buchstaben formatieren
06.11.2009 21:56:58
Peter
Hallo Lena,
mit der aktiven Zelle so: 
Public Sub Einfaerben()
Dim iLaenge  As Integer
Dim iPosit   As Integer
With ThisWorkbook.Worksheets("Tabelle2") ' den Tabellenblattnamen ggf. anpassen!
iLaenge = Len(ActiveCell)
ActiveCell.Characters(Start:=1, Length:=iLaenge).Font.ColorIndex = xlAutomatic
If .Range("A1").Value  "" Then
iPosit = InStr(LCase(ActiveCell), LCase(.Range("A1").Value))
If iPosit > 0 Then
iLaenge = Len(.Range("A1").Value)
ActiveCell.Characters(Start:=iPosit, Length:=iLaenge).Font.ColorIndex = 5
End If
End If
End With
End Sub

Gruß Peter
Anzeige
AW: einzelne Buchstaben formatieren
06.11.2009 22:38:44
Lena
Hallo Peter,
danke, esfunktioniert. Ich muß es noch für meine Suchfunktion anpassen.
MfG
Lena
;

Forumthreads zu verwandten Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Listenbox - Einträge bedingt farblich formatieren
Frank

Hallo Excelfreunde!!!
Ich hoffe dass jemand für meine Frage eine Antwort parat hat, besser gesagt für 2 Fragen!!!
In einem Listenfeld auf einer UserForm lasse ich mir alle Suchtreffer anzeigen. In der Listenbox befinden sich zwei Spalten! Nun möchte ich gern für die Optik, wenn der Name...
23.08.2008 08:21:47
Thread-ID: 1004070
4 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Formelsuche Zelleninhalt trennen
Christian

Hallo,
ich bräuchte 3 Formel die mir einen Zelleninhalt trennen
...habs nie so mit der Finden-formel :-)
Zelleneintrag in A1 : 6 / 0  (6)
soll getrennt werden
B1:6
C1:0
D1:6
Es gibt nie Leereinträge!
Danke für Hilfe
06.10.2008 10:21:22
Thread-ID: 1014349
3 Beiträge
Before print Ereignis nach Seitenvorschau verhinde
Ingo

Hallo zusammen,
wie kann ich verhindern, dass das Before print Ereignis , schon nach Klick auf den Button Seitenansicht ausgelöst wird. Es soll es dann kommen, wenn der Anwender tatsächlich einenechten Druckbefehl abgesetzt hat.
mfG
Ingo Christiansen
08.10.2008 10:10:08
Thread-ID: 1014916
2 Beiträge
Anzeige
Wahrscheinlichkeitsformel
MikeS

Hallo Leute,
mit der Funktion WAHRSCHBEREICH zur Berechnung der Wahrscheinlichkeit komme ich nicht wirklich weiter. Ich möchte berechnen, wie groß die Wahrscheinlichkeit ist, daß ich mein Ziel erreiche.
Vergangenheit = 5
Aktuell = 8
Ziel = 12
Bitte um Hilfe. Vielen Dank.
...
14.10.2008 15:32:59
Thread-ID: 1016373
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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