Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 09:02:18
Dateiordner auslesen
28.04.2024 01:34:12
Userform aus ListBox Zeile in Tabelle farbig markieren
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede vierte Zeile in Bereich färben

Jede vierte Zeile in Bereich färben
09.12.2022 12:46:15
Dark
Hallo zusammen,
ich habe einen definierten Bereich (E21:E3013), bei dem per VBA jede vierte Zeile, beginnend ab E21:E22 (die Zellen sind verbunden), die Schriftfarbe geändert werden soll.
Da die Range ziehmlich groß ist, will ich nicht jede Zelle die gefärbt werden soll einzeln eingeben, sondern das ganze über einen Loop laufen lassen. Genau da sind die Schwierigkeiten.
Hat jemand einen Codeschnipsel mit Erklärung bereit, wie man das lösen könnte?

Sub MonZeilFaerb()
Range("E21:E22,E25:E26,E29:E30,E33:E34,E37:E38,E41:E42,E45:E46").Select
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jede vierte Zeile in Bereich färben
09.12.2022 12:54:59
Daniel
Hi

dim Z as long
for Z = 21 to 3013 step 4
with Cells(z, 5).MergeArea.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
end with
Next
zu erkären gibts da nicht viel.
MergeArea ist eine wichtige Funktion, wenn du Verbundzellen hast, weil MergeArea dir diese Funktion bei Verbundzellen ausgehend von einer Zelle den ganzen Zellverbund liefert. Da es in Excel bei Zellverbünden oft notwendig ist, den gesamten Zellverbund zu bearbeiten und nicht nur eine einzelne Zelle daraus, ist das eine nützliche Funktion.
Gruß Daniel
AW: Jede vierte Zeile in Bereich färben
09.12.2022 13:09:06
onur
Geht auch ganz ohne VBA:
Auf Z1S1-Format umstellen - Bereich anwählen und bedingte Formatierung mit der Formel
=REST(ZEILE(ZS);4)=1
mit der gewünschten Schriftfarbe setzen.
Anzeige
AW: Jede vierte Zeile in Bereich färben
09.12.2022 13:26:20
Dark
Danke @Daniel, genau was ich wollte.
Per bedingte Formatierung ist das nicht möglich. Das kommt in einen VBA Code rein, der die Funktion bei bestimmten Benutzereingaben ausführt und wieder rückgängig macht.
Danke trotzdem.
PS: mit dem .MergeArea.Font habe ich so meine Probleme. Wie muss ich das einbauen, wenn ich nach einem bestimmten Kriterium filtern möchte?

Application.ScreenUpdating = False
Sheets("Planning").Select
Range("$N18:$N$3013").Select
Selection.AutoFilter
ActiveSheet.Range("$N18:$N$3013").AutoFilter Field:=1, Criteria1:="HansdieWurst"
Range("A1").Select
False, AllowUsingPivotTables:=True
Application.ScreenUpdating = True

Anzeige
AW: Jede vierte Zeile in Bereich färben
09.12.2022 13:45:57
Daniel
Hi
schwer zu sagen, ohne die Datei und ihren Aufbau zu kennen und zu wissen, was du konkret machen willst.
wenn du sowieso schon mit der Schleife bearbeitest, würde ich den Autofilter weglassen und dann in der Schleife die Zellwerte abfragen um zu entscheiden, ob die Zelle bearbeitet werden muss oder nicht.
Gruß Daniel
AW: Jede vierte Zeile in Bereich färben
09.12.2022 13:33:49
snb 

Sub M_snb()
For Each it In Range("E21:E22,E25:E26,E29:E30,E33:E34,E37:E38,E41:E42,E45:E46").Areas
it.Font.ThemeColor = 2
Next
End Sub

AW: Jede vierte Zeile in Bereich färben
09.12.2022 14:13:09
Jowe
oder so?

Sub M_jowe()
Dim it As Range
For Each it In Range("E21:E3103")
If it.Row Mod 4 = 2 Then
With Cells(it.Row, 5)
With .Font
.ThemeColor = xlThemeColorLight1
.ColorIndex = 6
.TintAndShade = 0
End With
.Interior.ColorIndex = 14
End With
End If
Next
End Sub
Gruß
Jochen
Anzeige

305 Forumthreads zu ähnlichen Themen

Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
jede zweite Zeile bearbeiten/löschen
Martin

Hallo zusammen,
ich muss bei einer recht umfangreichen Datei je zwei Zeilen zusammenfassen.
Dafür bei zweiter Zeile:
Kopieren der Werte von Spalte A bis Spalte J, die Werte in der vorigen Zeile ab Spalte K einfügen, so dass nachher die Zellen A-T belegt sind. Nicht jede Zelle ist hi...
15.11.2008 14:35:07
Thread-ID: 1024767
5 Beiträge
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Anzeige
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Jede 3.Zeile addieren
Erich

Hallo,
ich bitte mal wieder um Hilfe.
In Zeile 248 stehen von D248 bis O248 die Summen aus D10 bis O244. D= Jan, E=Feb, F=März u.s.w. Bei den zu addierenden Spalten stehen nicht nur Zahlen, sondern auch Buchstabenwerte.
Dazu verwende ich für Jan die Formel =SUMMENPRODUKT((REST(ZEIL...
13.07.2009 19:27:48
Thread-ID: 1088319
7 Beiträge
Wert aus jeder zweiten Zeile übernehmen
oli.p

Hallo zusammen!
Ich sitze den halben Tag an einer für mich schier unlösbaren Aufgabe.
Zur weiteren Bearbeitung wollte ich eigentlich jeweils "nur" jeden zweiten Wert einer Zeile anzeigen.
Hier zur Veranschaulichung: https://www.herber.de/bbs/user/63952.xls
Vielen Dank für Eure H...
20.08.2009 14:20:09
Thread-ID: 1097390
5 Beiträge
Formelbezug zu jeder dritten Zeile
F

Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern.
Im Arbeitsblatt: Tabelle3 steht in einer Zelle: =Tabelle1!D1
drei Zellen tiefer steht: =Tabelle1!D2
und noch einmal drei Zellen tiefer: =Tabelle1!D3
Jetzt möchte ich...
18.09.2009 13:13:21
Thread-ID: 1103894
6 Beiträge
Jede zweite Zeile ausblenden
kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vo...
27.10.2009 08:18:15
Thread-ID: 1112393
3 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
5
3
4
3
4
5
6
4
5
2
8
3
4
3
2
2
3
8
3
10
3
3
3
6
4