Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In bestimmten Bereich jede 2. Zeile einfärben

Forumthread: In bestimmten Bereich jede 2. Zeile einfärben

In bestimmten Bereich jede 2. Zeile einfärben
29.08.2005 14:46:15
mazzi
hallo,
ich habe ein problem mit einem makro...
ich möchte jede zweite Zeile grau hinterlegen und habe dafür auch schon ein makro gefunden, hier der code:
Sub ZeilenEinfaerben() Dim ZeilenAnzahl% 'sucht die letzte Zeile Dim x% 'einfach ein ZählerZeilen ZeilenAnzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row SpaltenAnzahl = ActiveSheet.Cells(Columns.Count, 1).End(xlUp).Row For x = 8 To ZeilenAnzahl Step 2 'von Zeile 8 an jede 2. Zeile einfaerben Range("E" & x & ":H" & x).Interior.ColorIndex = "15" Next x End Sub
Soweit funktioniert auch alles wunderbar, allerdings ändert sich die Spaltenanzahl ständig, d.h. einmal soll der Bereich E5:F100 eingefärbt werden, einmal der Bereich E5:X100 etc...
Wie kann ich dieses Problem lösen?
Vielen Dank für eure Hilfe,
LG,
mazzi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In bestimmten Bereich jede 2. Zeile einfärben
29.08.2005 15:01:54
Matthias
Hallo Mazzi,
wie wäre es mit bedingter Formatierung:
 
  
 A
14 
15 
16 
17 
18 
19 
20 
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A141. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
A151. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
A161. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
A171. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
A181. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
A191. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
A201. / Formel ist =(ZEILE()/2)=GANZZAHL(ZEILE()/2)Abc
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Gruß Matthias

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: In bestimmten Bereich jede 2. Zeile einfärben
                                            

                    

                                                    30.08.2005 15:03:00
                                            

                                

                                            mazzi
                                    

            

        

        

                            
Hi Matthias,

danke für deine Hilfe, dein Vorschlag hilft mir aber leider nicht weiter, die Formatierung ist ja kein Problem, das Problem ist, dass ich einmal nur 10 Spalten einfärben muss und einmal 25 spalten...

thx 4 help,

mazzi

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: In bestimmten Bereich jede 2. Zeile einfärben
                                            

                    

                                                    30.08.2005 16:47:51
                                            

                                

                                            Reinhard
                                    

            

        

        

                            
HI Mazzi,
Option Explicit
Sub ZeilenEinfaerben()
Dim Zei  As Long, Spa As Integer, x As Long
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
Zei = .Cells(Rows.Count, 1).End(xlUp).Row
Spa = .Cells(1, Columns.Count).End(xlToLeft).Column
For x = 8 To Zei Step 2    'von Zeile 8 an jede 2. Zeile einfaerben
Range(Cells(x, 5), Cells(x, Spa)).Interior.ColorIndex = "15"
Next x
End With
End Sub
Gruß 

Reinhard

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: In bestimmten Bereich jede 2. Zeile einfärben
                                            

                    

                                                    31.08.2005 10:34:06
                                            

                                

                                            mazzi
                                    

            

        

        

                            
Danke Reinhard,

jetzt funktionierts.

LG, mazzi

                    

            



                
    ;

    
            


    

        
        Forumthreads zu verwandten Themen
    

    
    

        

                
                
                

            
                

                    

                        

                            
                            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

    

        
                    
            
                
    



            

                            

            
                

                    

                        

                            
                            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
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            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
                        

                    

                

            
        

                
                
                    

                


    
Anzeige

    

        
                    
            
                
    



            

                            

            
                

                    

                        

                            
                            Makro zum löschen jeder 2. Zeile
                        

                                                    

                                philG
                            

                                            

                    

                                                

Hallo liebe Herber-Gemeinde,

ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.

Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht? 

Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)

                    

                    

                        

                                                            05.01.2010 10:26:46
                                                    

                        

                            Thread-ID:
                            1127199
                        

                        

                            4
                            Beiträge
                        

                    

                

            
        

                
                
                    

                


    
Anzeige

    

        
                    
            
                
    



            

                            

            
                

                    

                        

                            
                            Makro: jede zweite Zeile andersfarbig
                        

                                                    

                                Holger
                            

                                            

                    

                                                

Hallo,

aus diesem Forum habe ich unten stehendes Makro gefischt. 

Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,

gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern

lösen, mir ist eine reine VBA Lösung li...
                    

                    

                        

                                                            07.05.2010 16:37:55
                                                    

                        

                            Thread-ID:
                            1156123
                        

                        

                            4
                            Beiträge
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            Innerhalb Markierung jede 2. Zeile löschen
                        

                                                    

                                Henning
                            

                                            

                    

                                                

Hallo zusammen,

ich habe schon gesucht, aber irgendwie keine Lösung gefunden. 

Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
                    

                    

                        

                                                            10.06.2010 16:54:13
                                                    

                        

                            Thread-ID:
                            1161292
                        

                        

                            3
                            Beiträge
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            Summe aus jeder 2. Zeile
                        

                                                    

                                Sören
                            

                                            

                    

                                                

Hallöchen.

Ich bräuchte mal einen Makro Befehl, der mir in die Felder J6:BJ6 folgende Formel einfügt.

Undzwar soll aus jeder 2. Zeile unter dem jeweiligen Feld die Sume gebildet werden. Die Länge der Tabelle kann aber variieren. 

Vielen Dank schonmal

SG

                    

                    

                        

                                                            07.06.2012 17:42:46
                                                    

                        

                            Thread-ID:
                            1266562
                        

                        

                            4
                            Beiträge
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            Im Bereich jede zweite Zeile grau färben...
                        

                                                    

                                Ina
                            

                                            

                    

                                                

Hallo und guten Morgen zusammen im Forum,

ich möchte per VBA in Tabelle1 jede zweite Zeile im Bereich C12:M12 bis C56:M56 hellgrau färben.

Geht das nur so, oder auch einfacher? 

Range("C12:M12,C14:M14 usw.").Select

With Selection.Interior

.ColorIndex = 15 

.Pattern = xlS...
                    

                    

                        

                                                            10.10.2012 11:35:06
                                                    

                        

                            Thread-ID:
                            1281300
                        

                        

                            7
                            Beiträge
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            Zeilenformatierungen für x-Zeilen in Abhängigkeit
                        

                                                    

                                Markus
                            

                                            

                    

                                                

Guten Tag zusammen.

ich bin gerade dabei eine Druckvorlage für Zertifikate zu erstellen.

Für das erste Zertifikat habe ich schon die Spalten und Zeilenabmessungen festgelegt.

Nun möchte ich allerdings in Abhängigkei von Einträgen in einem anderem Tabellenblatt, dass dann jeweils ein...
                    

                    

                        

                                                            05.01.2013 13:04:00
                                                    

                        

                            Thread-ID:
                            1293016
                        

                        

                            4
                            Beiträge
                        

                    

                

            
        

                
                
                

            
                

                    

                        

                            
                            VBA - jede zweite Zeile farbig - im best. Bereich!
                        

                                                    

                                Dominic
                            

                                            

                    

                                                

Hi,

ich würde gerne im Tabellenblatt "Export" innerhalb eines bestimmten und variablen Zellbereiches, jede zweite Zeile den Hintergrund ( Füllung ) farbig erstellen und Rahmenlinien setzen. 

Der Bereich geht im Tabellenblatt "Export" von B14:O67, oder B14:O80 oder B14:O95 je nachdem ob...
                    

                    

                        

                                                            15.01.2013 11:03:18
                                                    

                        

                            Thread-ID:
                            1294337
                        

                        

                            8
                            Beiträge
                        

                    

                

            
        

                

    


                

            

                

                    
                    Entdecke relevante Threads
                

                
Schau dir verwandte Threads basierend auf dem aktuellen Thema an

                 
                    Alle relevanten Threads mit Inhaltsvorschau entdecken
                
            

            




 

    
    
                        


    
Anzeige

    

        
                    
            
                
    



                


    
    
    

    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    

    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                
                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                

                
                
                

                    

        
Entdecke mehr

    

                    
            

                

                    

                        

                            
                            Finde genau, was du suchst
                        

                        
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten
                            zu finden

                        
                            
                            Suche nach den besten Antworten
                        
                    

                

            

                            
            

                

                    

                        

                            
                            Unsere beliebtesten Threads
                        

                        
Entdecke unsere meistgeklickten Beiträge in der Google Suche

                        
                            
                            Top 100 Threads jetzt ansehen
                        
                    

                

            

                
    



                

                

                


    
Anzeige