Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle 12 Zeilen Zellen farbig unterlegen

alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 15:58:00
Christina
Ich suche ein Makro welches mir alle 12 Zeilen die Zellen mit einer anderen Farbe füllt.
Z.B. Tabelle mit ca. 3000 Zeilen: Zelle A1 bis A12 grau hinterlegt, A13 bis A24 ohne Füllung, A25 bis A36 grau hinterlegt etc. bis zur letzten Zeile mit Inhalt.
Ich habe mir schon das Hirn zermatert, aber ich komme auf keine Lösung. Bin für jede Hilfe dankbar!
Gruß,
Christina

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 16:05:39
ransi
hallo christina
fast 1 zu 1 aus dem recorder rauskopiert:
Option Explicit

Sub Makro2()
' Makro2 Makro
' Makro am 05.08.2005 von * aufgezeichnet
Rows("1:12").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Rows("1:24").Select
Selection.AutoFill Destination:=Rows("1:3000"), Type:=xlFillDefault
Rows("1:3000").Select
End Sub

ransi
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 16:17:25
Christina
Hi ransi,
danke schonmal für das Makro. Ich habe wohl manchmal ein kleines Problem mit meiner komplizierten Herangehensweise (ich wollte das mit einer Schleife programmieren) :-)
Habe dein Makro gerade angewendet, jetzt werden die Zellen toll markiert. Problem ist nur, dass es bei manchen Zellen den Inhalt bzw. die Werte ändert, woran kann das liegen?
Gruß,
Christina
Anzeige
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 16:25:46
Beni
Hallo Christina,
Gruss Beni

Sub Zeilen_farbig()
lz = ActiveSheet.UsedRange.Rows.Count
For z = 1 To lz Step 24
Rows(z & ":" & z + 11).Interior.ColorIndex = 15
Next z
End Sub

AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 16:39:14
Christina
Hi Beni,
das Makro funktioniert! Dankeschön!
Gruß,
Christina
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 16:47:44
PeterW
Hallo Christina,
muss das wirklich mit einem Makro erledigt werdern? Für solche Aufgabenstellungen gibt es doch die bedingte Formatierung. Gehe in Zelle A1, Format, bedingte Formatierung, Formel ist =REST(GANZZAHL((ZEILE()-1)/12);2)=0 und dein Format zuweisen, bestätigen. Dann das Format auf die gesamte Tabelle übertragen und fertig. Funktioniert auch dann richtig, wenn später ganze Zeilen gelöscht oder eingefügt werden.
Gruß
Peter
Anzeige
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 16:52:45
K.Rola
Hallo,
sehr schön gelöst. Bin ja nun nicht gerade der Formelfan, aber das ist richtig gut.
Gruß K.Rola
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 19:05:44
PeterW
Hallo K.Rola,
ein solcher Kommentar aus deiner Tastatur - das baut richtig auf; Formeln sind ja auch nicht meine Baustelle.
Danke und Gruß
Peter
AW: alle 12 Zeilen Zellen farbig unterlegen
05.08.2005 17:36:32
Christina
Hi Peter,
das ist natürlich eleganter. Wie gesagt, manchmal (besonders vor dem Wochenende) sehe ich die einfachsten Lösungen nicht.
Gruß,
Christina

302 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
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
jede zweite Zelle in Datenreihe
sarina

Hallo!
Ich habe ein Problem ;)
Und zwar würde ich gerne ein Diagramm erstellen, dass als Datenreihe aus meiner vorhandenen Tabelle jede zweite Zelle nimmt, z.B. aus der Spalte A von 1:250 also dann A1, A3, A5,....
Und das ohne eine neue Tabelle zu erstellen.
Geht das? Hat jema...
29.08.2008 09:48:58
Thread-ID: 1005687
5 Beiträge
Anzeige
Maxwert aus jeder zweiten Spalte
Stefan

Hallo,
kennt jemand eine möglichkeit, wie man ohne VBA das Maximum aus den Werten jeder 2. Spalte einer Zeile auslesen kann, ohne die Spalten einzeln aufzuzählen (=max(d2;d4;d6;d8...))?
Gruß Stefan
16.01.2009 14:24:00
Thread-ID: 1040577
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
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
alle befüllten Zeilen einer Mappe zählen
Steffen

Hallo Ex(cel)perten,
wie muss ich meinen Code ergänzen, um alle befüllten Zeilen einer kompletten Arbeitsmappe ausgezählt zu bekommen?
für ein einzelnes Blatt kriege ich es hin, da keine leeren Zeilen zwischendrin vorhanden sind
all = Cells(Rows.Count, 1).End(xlUp).Row
Gruß
...
06.05.2009 10:51:40
Thread-ID: 1073279
5 Beiträge
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
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
14
3
4
4
4
3
5
4
5
4
5
2
8
3
3
5
3
3
2
2
3
9
12
8