Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro jede 2. Zeile einfärben

Makro jede 2. Zeile einfärben
09.10.2013 14: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

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

Betreff
Datum
Anwender
Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 14: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

AW: Makro jede 2. Zeile einfärben
09.10.2013 15: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

Anzeige
AW: Makro jede 2. Zeile einfärben
09.10.2013 15: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

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

AW: Makro jede 2. Zeile einfärben
09.10.2013 14: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 14: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

311 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
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
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Anzeige
Zeilen in Zellen zählen
kai

Hallo
Ich habe eine Frage:
Wie kann ich mittles VBA in einer Zelle mit Zeilenumbruch die Anzahl der Zeilen zählen?
Grüße
Kai
29.08.2008 14:07:00
Thread-ID: 1005824
10 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge

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
8
3
5
3
4
9
5
2
4
3
9
2
1
4
2
4
3
2
4
13
5
10
5
3
4