Office: Zellen färben mit VBA

Helfe beim Thema Zellen färben mit VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Mein Excel Arbeitsblatt hat einen dunklen Hintergrund und ich hole mir mit einem Spezialfilter Daten aus einer anderen Tabelle. Diese Tabelle... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von maria85, 6. August 2012.

  1. maria85 Erfahrener User

    Zellen färben mit VBA


    Hallo

    Mein Excel Arbeitsblatt hat einen dunklen Hintergrund und ich hole mir mit einem Spezialfilter Daten aus einer anderen Tabelle.
    Diese Tabelle hat einen hellen Hintergrund und je nachdem was aktualisiert werden muss, hinterlässt der Spezialfilter immer einen hellen Hintergrund.

    Wie kann ich nun die Zellen mit VBA von unten dunkel färben damit alles dunkel ist? Hier ein Beispiel:

    [TABLE]
    <colgroup><col style="width: 28ptpx"><col width="60pt"><col width="60pt"><col width="55.5pt"><col width="54pt"><col width="60pt"></colgroup><tbody>[TR="bgcolor: #FAFAFA"]
    [TD="colspan: 6, align: center"]Arbeitsblatt mit dem Namen 'Tabelle1'[/TD]
    [/TR]
    [TR="bgcolor: #cacaca"]
    [TD] [/TD]
    [TD="align: center"]A[/TD]
    [TD="align: center"]B[/TD]
    [TD="align: center"]C[/TD]
    [TD="align: center"]D[/TD]
    [TD="align: center"]E[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]19[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #262626, align: center"] [/TD]
    [TD="bgcolor: #262626, align: center"] [/TD]
    [TD="bgcolor: #262626, align: center"] [/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]20[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #C0504D, align: center"]Spalte A[/TD]
    [TD="bgcolor: #C0504D, align: center"]Spalte B[/TD]
    [TD="bgcolor: #C0504D, align: center"]Spalte C[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]21[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]10[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]22[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]11[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]23[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]12[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]24[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]13[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]25[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]14[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]26[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]15[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]27[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]16[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]28[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #F2DCDB, align: center"]Name[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]A[/TD]
    [TD="bgcolor: #F2DCDB, align: center"]17[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]29[/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [TD="bgcolor: #262626, align: center"] [/TD]
    [TD="bgcolor: #262626, align: center"] [/TD]
    [TD="bgcolor: #262626, align: center"] [/TD]
    [TD="bgcolor: #262626, align: right"] [/TD]
    [/TR]
    </tbody>[/TABLE]


    Danke für die Hilfe

    Maria
     
    maria85, 6. August 2012
    #1
  2. Hotte-Berlin Erfahrener User
    Hallo Maria,

    mal angenommen, die Hintergrundfarbe ist in Zelle A1 hinterlegt und weiter angenommen, die Zellen, die umgefärbt werden sollen, sind markiert, dann müsste folgender Code funktionieren:
    Option Explicit

    Dim Zelle As Range
    Dim Farbcode As Variant
    Sub Umfärben()

    Farbcode = Cells(1, 1).Interior.Color
    For Each Zelle In Selection

    Zelle.Interior.Color = Farbcode

    Next Zelle


    End Sub 'Umfärben
     
    Hotte-Berlin, 6. August 2012
    #2
  3. maria85 Erfahrener User
    Hallo Hotte

    Da der Spezialfilter mit VBA aktualisiert wird, kann ich die Zellen nicht markieren.
    Ich müsste also von "von unten" nach "oben" alles dunkel färben?
     
    maria85, 6. August 2012
    #3
  4. Exl121150 Erfahrener User

    Zellen färben mit VBA

    Hallo,

    falls auf dem Arbeitsblatt keine anderen Daten enthalten sind, müsste folgendes Makro funktionieren, das man am besten in ein allgem. Codemodul kopiert.

    Das Makro wird im aktiven Arbeitsblatt ausgeführt (Set Ws = ActiveSheet). Man kann hier natürlich ein anderes Blatt vorgeben.

    Die Hintergrundfarben der Bereiche sind: vbBlack für die Hintergrundfarbe des Blattes (Ws.Cells.Interior.Color = vbBlack), für die Kopfzeilenfarbe (KopfFarbe = ...) bzw. für die Datenfarbe (DatenFarbe = ...).
    Hier können natürlich auch andere Konstante vorgegeben werden.

    Code:
    Option Explicit
    Sub Umfaerben2()
      Dim Ws As Worksheet, Rg As Range
      Dim KopfFarbe As Long, DatenFarbe As Long
      
      Set Ws = ActiveSheet
      Set Rg = Ws.UsedRange
      
      KopfFarbe = RGB(192, 80, 77)
      DatenFarbe = RGB(242, 221, 220)
      
      Ws.Cells.Interior.Color = vbBlack
      With Rg
        .Interior.Color = DatenFarbe
        .Rows(1).Interior.Color = KopfFarbe
      End With
      
    End Sub
    
     
    Zuletzt bearbeitet: 6. August 2012
    Exl121150, 6. August 2012
    #4
  5. maria85 Erfahrener User
    Hallo Anton

    Danke für dein Vorschlag

    Nun, es hat schon noch Daten - oberhalb. Habe deinen Code versucht und er klappt nicht. :-(

    So sieht es aus:

    Gruss
    Maria





    [TABLE]
    <tbody>[TR="bgcolor: #cacaca"]
    [TD][/TD]
    [TD]B[/TD]
    [TD]C[/TD]
    [TD]D[/TD]
    [TD]E[/TD]
    [TD]F[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]4[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]5[/TD]
    [TD="bgcolor: #808000, colspan: 5, align: center"]Auftragsdaten[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]6[/TD]
    [TD="bgcolor: #808000, align: center"]LeistungsNr[/TD]
    [TD="bgcolor: #808000"]Abo Name[/TD]
    [TD="bgcolor: #808000"]Monate[/TD]
    [TD="bgcolor: #808000"]Preis[/TD]
    [TD="bgcolor: #808000"]o.MwSt[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]7[/TD]
    [TD="align: center"]30715[/TD]
    [TD]3 Monate, 1x im Mt.[/TD]
    [TD="align: center"]3[/TD]
    [TD="align: right"]Fr. 27.00[/TD]
    [TD="align: right"]Fr. 25.00[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]8[/TD]
    [TD="align: center"]30716[/TD]
    [TD]3 Monate, 2x im Mt.[/TD]
    [TD="align: center"]3[/TD]
    [TD="align: right"]Fr. 54.00[/TD]
    [TD="align: right"]Fr. 50.00[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]9[/TD]
    [TD="align: center"]30717[/TD]
    [TD]3 Monate, 4x im Mt.[/TD]
    [TD="align: center"]3[/TD]
    [TD="align: right"]Fr. 108.00[/TD]
    [TD="align: right"]Fr. 100.00[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]10[/TD]
    [TD="align: center"]30718[/TD]
    [TD]6 Monate, 1x im Mt.[/TD]
    [TD="align: center"]6[/TD]
    [TD="align: right"]Fr. 48.00[/TD]
    [TD="align: right"]Fr. 44.45[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]11[/TD]
    [TD="align: center"]30719[/TD]
    [TD]6 Monate, 2x im Mt.[/TD]
    [TD="align: center"]6[/TD]
    [TD="align: right"]Fr. 96.00[/TD]
    [TD="align: right"]Fr. 88.90[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]12[/TD]
    [TD="align: center"]30720[/TD]
    [TD]6 Monate, 4x im Mt.[/TD]
    [TD="align: center"]6[/TD]
    [TD="align: right"]Fr. 192.00[/TD]
    [TD="align: right"]Fr. 177.80[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]13[/TD]
    [TD="align: center"]30721[/TD]
    [TD]12 Monate, 1x im Mt.[/TD]
    [TD="align: center"]12[/TD]
    [TD="align: right"]Fr. 95.00[/TD]
    [TD="align: right"]Fr. 87.95[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]14[/TD]
    [TD="align: center"]30722[/TD]
    [TD]12 Monate, 2x im Mt.[/TD]
    [TD="align: center"]12[/TD]
    [TD="align: right"]Fr. 190.00[/TD]
    [TD="align: right"]Fr. 175.95[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]15[/TD]
    [TD="align: center"]30723[/TD]
    [TD]12 Monate, 4x im Mt.[/TD]
    [TD="align: center"]12[/TD]
    [TD="align: right"]Fr. 380.00[/TD]
    [TD="align: right"]Fr. 351.85[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]16[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]17[/TD]
    [TD="bgcolor: #808000, colspan: 5, align: center"]Zu Kontaktieren[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]20[/TD]
    [TD="bgcolor: #808000"]Abo läuft ab[/TD]
    [TD="bgcolor: #808000"]Kunde[/TD]
    [TD="bgcolor: #808000"]Ort[/TD]
    [TD="bgcolor: #808000, align: center"]Preis[/TD]
    [TD="bgcolor: #808000"]Abo Name[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]21[/TD]
    [TD="align: center"]20.08.2012[/TD]
    [TD]Maria[/TD]
    [TD]Burgdorf[/TD]
    [TD="align: right"]Fr. 108.00[/TD]
    [TD]3 Monate, 4x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]22[/TD]
    [TD="align: center"]17.09.2012[/TD]
    [TD]Fabienne[/TD]
    [TD]Bern[/TD]
    [TD="align: right"]Fr. 54.00[/TD]
    [TD]3 Monate, 2x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]23[/TD]
    [TD="align: center"]01.10.2012[/TD]
    [TD]Bettina[/TD]
    [TD]Thun[/TD]
    [TD="align: right"]Fr. 95.00[/TD]
    [TD]12 Monate, 1x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]24[/TD]
    [TD="align: center"]03.10.2012[/TD]
    [TD]Chris[/TD]
    [TD]Interlaken[/TD]
    [TD="align: right"]Fr. 96.00[/TD]
    [TD]6 Monate, 2x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]25[/TD]
    [TD="align: center"]08.10.2012[/TD]
    [TD]Dieter[/TD]
    [TD]Bern[/TD]
    [TD="align: right"]Fr. 54.00[/TD]
    [TD]3 Monate, 2x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]26[/TD]
    [TD="align: center"]17.10.2012[/TD]
    [TD]Sabrina[/TD]
    [TD]Luzern[/TD]
    [TD="align: right"]Fr. 95.00[/TD]
    [TD]12 Monate, 1x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]27[/TD]
    [TD="align: center"]24.10.2012[/TD]
    [TD]Simone[/TD]
    [TD]Zürich[/TD]
    [TD="align: right"]Fr. 96.00[/TD]
    [TD]6 Monate, 2x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]28[/TD]
    [TD="align: center"]31.10.2012[/TD]
    [TD]Peter[/TD]
    [TD]Meggen[/TD]
    [TD="align: right"]Fr. 95.00[/TD]
    [TD]12 Monate, 1x im Mt.[/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]29[/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]30[/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]31[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]32[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]33[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]34[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]35[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]36[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    [TR]
    [TD="bgcolor: #cacaca, align: center"]37[/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [TD="bgcolor: #333333"][/TD]
    [/TR]
    </tbody>[/TABLE]
     
    maria85, 6. August 2012
    #5
  6. Exl121150 Erfahrener User
    Hallo Maria,

    dann ersetze einfach die Codezeile
    Code:
      Set Rg = Ws.UsedRange
    
    durch folgende Codezeile:
    Code:
      Set Rg = Ws.Cells(20,2).CurrentRegion
    
    Dabei entspricht Ws.Cells(20,2) der Zelle B20 (=Zeile 20, Spalte 2). Durch Ws.Cells(20,2).CurrentRegion wird der kleinste rechteckige Zellbereich ermittelt, der die Zelle B20 enthält und dessen Zellen Daten enthalten. Begrenzt wird dieser Zellbereich von jeweils mindestens 1 Leerzeile und 1 Leerspalte.

    Die ganze Sub sieht dann folgendermaßen aus:
    Code:
    Sub Umfaerben2()
      Dim Ws As Worksheet, Rg As Range
      Dim KopfFarbe As Long, DatenFarbe As Long
      
      Set Ws = ActiveSheet
      Set Rg = Ws.Cells(20, 2).CurrentRegion
      
      KopfFarbe = RGB(192, 80, 77)
      DatenFarbe = RGB(242, 221, 220)
      
      Ws.Cells.Interior.Color = vbBlack
      With Rg
        .Interior.Color = DatenFarbe
        .Rows(1).Interior.Color = KopfFarbe
      End With
      
    End Sub
    
    Falls jedoch mehrere Bereiche eingefärbt werden sollen und der Rest des Blattes schwarz sein soll, dann kann das Ganze so programmiert werden:
    Code:
    Dim KopfFarbe As Long, DatenFarbe As Long
    
    Sub Umfaerben3()
      Dim Ws As Worksheet
      
      KopfFarbe = RGB(192, 80, 77)
      DatenFarbe = RGB(242, 221, 220)
      
      Set Ws = ActiveSheet
      
      Ws.Cells.Interior.Color = vbBlack
      
      Bereich_Umfaerben3 Ws.Cells(20, 2)
      Bereich_Umfaerben3 Ws.Cells(5, 2)
      
    End Sub
    Sub Bereich_Umfaerben3(Rg As Range)
      
      With Rg.CurrentRegion
        .Interior.Color = DatenFarbe
        .Rows(1).Interior.Color = KopfFarbe
      End With
      
    End Sub
    
    In diesem Codebeispiel werden die Bereiche mit Daten um die Zellen B20 und B5 mit KopfFarbe bzw. Datenfarbe eingefärbt und der Rest des Blattes wird schwarz.
     
    Zuletzt bearbeitet: 7. August 2012
    Exl121150, 7. August 2012
    #6
  7. maria85 Erfahrener User
    Hallo Anton

    Vielen Dank für den Code und die ausführliche Erklärung.
    Und wieder was gelernt! :D

    Liebe Grüsse

    Maria
     
    maria85, 7. August 2012
    #7
Thema:

Zellen färben mit VBA

Die Seite wird geladen...
  1. Zellen färben mit VBA - Similar Threads - Zellen färben VBA

  2. VBA | Zelle auslesen,vergleichen und Hintergrund Zelle färben

    in Microsoft Excel Hilfe
    VBA | Zelle auslesen,vergleichen und Hintergrund Zelle färben: Hallo, es klingt einfach aber ich komm einfach nicht zur Lösung. Ich bräuchte für folgendes ein makro. Es soll in Spalte A nach "geplant" suchen, wenn gefunden dann suche von in der Zeile wo...
  3. Per VBA Zellen mit Inhalt färben

    in Microsoft Excel Hilfe
    Per VBA Zellen mit Inhalt färben: Hi zusammen, ich hab ein Makro welches an für sich tut was es soll, bei bestimmten Zellinhalten soll es färben^^ Nun zu meinem Prob. Gibt es ne Möglichkeit, dass hier das Makro bei Klein- bzw....
  4. Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle

    in Microsoft Excel Hilfe
    Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle: Hi Zusammen man kann ja den CommentIndicator leider nicht auf normalem Weg ändern (Rote Dreieck rechts in Ecke was einem anzeigt hier ist ein Kommentar in Zelle) nun hab ich folgendes Makro was...
  5. VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text)

    in Microsoft Excel Hilfe
    VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text): Hallo zusammen, Nach mehreren Tagen Recherche und diversen Codes ausprobieren und anpassen bin ich echt am Ende und suche hier im Forum Hilfe. Zu meinem Problem: - Ich möchte eine Spalte...
  6. VBA/Makro: gefundene Zelle mit Farbe markieren

    in Microsoft Excel Hilfe
    VBA/Makro: gefundene Zelle mit Farbe markieren: Hallo zusammen Beiliegend eine Excel-Datei (Version 2010). Ich habe mithilfe von gefundenen Einträgen in VBA-Foren das darin enthaltene Makro erstellt und es funktioniert soweit einwandfrei....
  7. Zellen mit VBA färben

    in Microsoft Excel Hilfe
    Zellen mit VBA färben: Hallo zusammen, habe ein merkwürdiges Problem mit Visual Basic. Meine sub soll ein Datenblatt nach verschiedenen Suchkriterien durchleuchten und die Zellen, in denen was gefunden wurde...
  8. Excel VBA abhängig von Datum zellen färben

    in Microsoft Excel Hilfe
    Excel VBA abhängig von Datum zellen färben: Hallo zusammen, wie kann ich mit VBA in folgender Tabelle angeben dass jeder Monat in einer anderen Farbe ausgegeben wird. In A5 wird das aktuelle Jahr angegeben. Wenn ich dieses ändere, ändern...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden