Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1328to1332
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
VBA Zelle formatieren
12.09.2013 07:44:05
Jürgen
Guten Morgen alle zusammen,
das folgende Makro funktioniert wunderbar,
ich würde es gerne um einen Arbeitschritt erweitern,
in dem das Makro in die letzte Zeile mit Text spring (das macht es schon) und dann in der ZELLE zwischen den Zeichen "[" und "]", alles was dazwischen steht in hellblau einfrärbt. Könnte mir dabei jemand behilflich sein.
Mit besten Grüßen
Jürgen
Dim iStart As Integer, iEnde As Integer 'Titel in erster Zeile rot färben
Dim rngC As Range
For Each rngC In Selection
iStart = InStr(rngC, ":") + 2
iEnde = InStr(rngC, "(") - 2
With rngC.Characters(iStart, iEnde - iStart + 1).Font
.Color = RGB(255, 0, 0)
Selection.End(xlDown).Select 'Spring in die letzte Zeile
End With
Next
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hellblau einfärben
12.09.2013 09:57:46
steffen
Set AC = ActiveCell
P1 = InStr(AC, "[") + 1 'Zeichen finden
P2 = InStr(AC, "]") - 1
For a = P1 To P2
AC.Characters(a, 1).Font.ColorIndex = 37 'alles zwischen den Zeichen einfärben
Next a

AW: Hellblau einfärben
12.09.2013 11:46:32
Jürgen
Hallo Steffen,
D A N K E, funktioniert wuuuuuuuunnnnnnnndddddeerbar
einfach super
Gruß Jürgen
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige