Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Makro jede 2. Zeile einfärben

Forumthread: Makro jede 2. Zeile einfärben

Makro jede 2. Zeile einfärben
09.10.2013 16:19:07
Christian
Hallo,
ich bräuchte ein Makro das jede 2. Zeile grau einfärbt. Allerdings nur bis Spalte O und erst ab Zeile 3 und dann immer bis zur letzten Zeile mit Werten.
Wäre sehr Dankbar für einen Code.
Danke

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 16:28:41
Bastian
Hallo Christian,
z. B. so:
Option Explicit
Sub ZeilenFaerben()
Dim lngLZeile As Long
Dim i As Integer
lngLZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lngLZeile Step 2
Range(Cells(i, 1), Cells(i, 21)).Interior.ColorIndex = 15
Next i
End Sub

Gruß, Bastian

Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 17:02:56
Christian
Hallo Bastian,
das ist schon super. Allerdings habe ich das Problem das meine Tabelle immer mal anders sortiert wird. Kannst Du noch was einbauen damit vorher der gleiche Bereich weiß gefärbt wird (bzw. Farblos).
Vielen Dank

AW: Makro jede 2. Zeile einfärben
09.10.2013 17:06:57
Bastian
Hallo Christian,
dann noch eine Zeile dazu:
Option Explicit
Sub ZeilenFaerben()
Dim lngLZeile As Long
Dim i As Integer
lngLZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(3, 1), Cells(lngLZeile, 21)).Interior.ColorIndex = -4142
For i = 3 To lngLZeile Step 2
Range(Cells(i, 1), Cells(i, 21)).Interior.ColorIndex = 15
Next i
End Sub

Gruß, Bastian

Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 17:30:04
Christian
Danke Dir !

AW: Makro jede 2. Zeile einfärben
09.10.2013 16:46:50
Doris
Hallo Cristian,
so klappt es
Dim i As Integer
Dim j As Integer
Dim Zeilen As Integer
Zeilen = Cells(Rows.Count, "A").End(xlUp).Row    ' letzte Zeile in Spalte A mit Wert
For i = 1 To Zeilen
j = 2 * i + 1
Range("A" & j & ":O" & j).Interior.Color = 8421504
Next i

Gruß Doris

Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 16:53:07
Bastian
Hallo Doris,
damit markierst Du zu viele Zeilen (nicht nur bis zur letzten beschriebenen).
i ist bei Dir die letzte Zeile.
Du markierst dann aber bis j = 2 * i + 1
Gruß, Bastian

Forumthreads zu verwandten Themen

Makro, dass Inhalte kopiert und andere löscht
Chris

Hallo,
ich bitte euch um Hilfe, mir durch ein Makro viel Arbeitszeit und Mühe zu ersparen.
Habe mir auch lange Gedanken gemacht, welche Schritte von Nöten sind, damit alles funktioniert wie es soll, mir fehlen halt die VBA Kenntnisse um das dann auch in etwas umzusetzen, was Excel verst...
31.08.2018 20:15:57
Thread-ID: 1642668
3 Beiträge
Kopieren von Bereichen mit vorgegebener Liste
Bereichen

Hallo Zusammen,
zuerst möchte ich mich dafür entschuldigen, dass ich manchmal nicht sofort auf eure Vorschläge reagiere, da ich öfters unterwegs bin und dann kein Internetanschluss habe. Ich bemühe mich jedoch, jedem der einen Beitrag schreibt, einer Antwort zu schreiben, ob dass Ganze funk...
23.03.2007 14:17:00
Thread-ID: 857129
8 Beiträge
Anzeige
Nur Werte aus Tabelle kopieren zum zweiten
Werner
Hallo Excel Freunde,
erst mal Dank an Stefan W. für seine schnelle Antwort.
Leider geht das Makro nicht so ganz. Auch die Zeilen mit dem Wert 0 müssen entfernt werden.
Hier das Makro von Stephan:
Sub MalTesten() 'Daten in eine Hilfstabelle kopieren Range("A2:F50").Copy Sheets("Tabel...
13.02.2004 19:06:27
Thread-ID: 382194
2 Beiträge
Formatierung kopieren
DanielMa

Hallo liebes Forum,
mein VBA ist leider etwas eingerostet und ich stehe momentan etwas auf dem Schlauch.
Folgendes Problem:
Ich habe zwei Tabellenblätter. Das eine dient zur Dateneintragung. Hier habe ich eine Matrix, in welcher Jahre als Spalten und Nummern als Zeilen stehen.
I...
09.11.2015 12:34:34
Thread-ID: 1457077
14 Beiträge
Anzeige
Formelausgabe in Nachbarzelle überlaufen lassen
Manuel Roth
Hallo zusammen

Wir haben bei uns im Verein einen Jahreskalender im Excel. Dieser soll nun mit einem digitalen Kalender verknüpft werden. Die Verknüpfung wird so laufen, dass wir die Termine online in den Kalender eingeben, als ICS exportieren, den Text daraus kopieren, im Excel einfügen und...
13.11.2024 14:28:44
Thread-ID: 1996511
2 Beiträge
Anzeige
Formel bei neu hinzugekommenen einfügen
Julia

Hallo,
ich brauche ganz dringend mal eure Hilfe.
Um meine Tabelle vom Datenvolumen nur so gering wie nötig zu halten , möchte ich immer nur dort Formeln in den Zellen einfügen müssen, in denen es auch nötig ist.
Vereinfacht lässt sich dies mit meinem Bild erklären:

Bei jede...
07.12.2016 07:03:58
Thread-ID: 1528911
3 Beiträge
Anzeige
Daten / Gültigkeit bei Auswahl Formel kopieren
Stefan

Guten Tag
Ich habe in einem File einige Daten - Gültigkeits dropdown Felder eingefügt. Nun möchte ich diese "überwachen". Wenn ein Wert in einem dropdown Fled ausgewält wird, möchte ich gerne in dieser Zeile die Formeln (Matrix) aus der oberen Zellen kopieren und Einfügen. Ich habe einige i...
01.07.2011 15:19:31
Thread-ID: 1220478
2 Beiträge
verschachtelte Schleife???
EasyD

und wieder Hallo, ich komme derzeit wieder öfters vorbei
jetzt habe ich gerade überlegt, ob ich wirklich "Excel gut - VBA gut" angeben sollte...
Ich habe versucht eine Schleife in eine Schleife einzubauen, vielleicht ist das auch gar nicht der richtige Ausatz.
Ausgangslage:
Auf...
21.06.2018 18:22:07
Thread-ID: 1629910
5 Beiträge
Leerzeilen einfügen innerhalb einer Schleife
Marc
Hi,
ich versuche mich gerade an meinen ersten VBA-Schritten und möchte einen Banken-CSV-Export ein wenig "aufhübschen".
Vor diesem Hintergrund habe ich eine Range definiert - beginnenend mit der ersten Konto-Bewegung bis zum Zeilenende.
Nun will ich die Monatsscheiben gruppieren, bzw....
30.12.2016 12:50:24
Thread-ID: 1532387
5 Beiträge
Benötige VBA-Hilfe für eine automatische Leerzeile
bruchpilot1982

Hallo zusammen!
Ich bräuchte eure professionelle Hilfe bzgl. einer Excel-Tabelle. Bin da gerade ein bisschen am Basteln und leider VBA-technisch noch sehr unerfahren!
Kurze Erklärung zu meiner Idee, von der ich hoffe, dass sie irgendwie realisierbar ist.
Ich kopiere jede Woche eine...
12.09.2014 00:21:40
Thread-ID: 1381211
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum