Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nur für gefilterte und eingeblendete Zeilen

Makro nur für gefilterte und eingeblendete Zeilen
19.03.2015 12:41:30
flotschuk
Hey,
ich sitz momentan leider gerade etwas aufm Schlauch.
Ich habe eine Tabelle mit deren Werte ich ein Säulen-Diagramm befülle. Die Färbung der Säulen ist dabei abhängig von bestimmten Tabellenwerten. Für diese Färbung habe ich ein Makro geschrieben, dass soweit auch funktioniert. Allerding möchte ich nun in der Tabelle ein paar Werte rausfiltern und ein paar ausblenden. Dadurch funktioniert meine Färbung allerdings nicht mehr, da das Makro weiterhin die ausgeblendeten bzw rausgefilterten Wert miteinbezieht. Wie bekomme ich es hin, dass nur die aktuell eingeblendeten Zeilen für die Färbung übernehme. Unten mal mein Code den ich bisher verwende. Habs schon mit ActiveSheet.Cells.SpecialCells(12).Activate und mit ner if schleife mit row.hidden, aber hat beides nicht wirklch funktioniert.
Kann mir jemand weiterhelfen?
Sub OIFärbenProjectBridge()
Dim i As Long
With Worksheets("project bridge").ChartObjects("Diagramm 1").Activate
With ActiveChart.SeriesCollection(2)
For i = 1 To .Points.Count
Select Case Worksheets("AE_Analysedaten").Cells(i + 4, 3)
Case Is = "91_Abgeschlossen"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "9_Var.teile zurück"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "8_C&M"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "7_Geliefert"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "6_Verkauft"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "5_Hot"
.Points(i).Interior.Color = RGB(255, 0, 0)
Case Is = "4_Projected"
.Points(i).Interior.Color = RGB(0, 176, 240)
Case Is = "Open"
.Points(i).Interior.Color = RGB(255, 192, 0)
Case Is = "Target"
.Points(i).Interior.Color = RGB(45, 96, 145)
End Select
Next
End With
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Makro nur für gefilterte und eingeblendete Zeilen
19.03.2015 13:01:59
fcs
Hallo flotschuk,
folgende Anpassung (ungetestet) könnte funktionieren.
Gruß
Franz 
Sub OIFärbenProjectBridge()
Dim i As Long, lOffSet As Long, ZelleStart As Range
i = 0
Set ZelleStart = Worksheets("AE_Analysedaten").Cells(4, 3)
With Worksheets("project bridge").ChartObjects("Diagramm 1").Activate
With ActiveChart.SeriesCollection(2)
For lOffSet = 1 To .Points.Count
If ZelleStart.Offset(lOffSet, 0).EntireRow.Hidden = False Then
i = i + 1
Select Case ZelleStart.Offset(lOffSet, 0)
Case Is = "91_Abgeschlossen"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "9_Var.teile zurück"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "8_C&M"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "7_Geliefert"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "6_Verkauft"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "5_Hot"
.Points(i).Interior.Color = RGB(255, 0, 0)
Case Is = "4_Projected"
.Points(i).Interior.Color = RGB(0, 176, 240)
Case Is = "Open"
.Points(i).Interior.Color = RGB(255, 192, 0)
Case Is = "Target"
.Points(i).Interior.Color = RGB(45, 96, 145)
End Select
End If
Next
End With
End With
End Sub

Anzeige
AW: Makro nur für gefilterte und eingeblendete Zeilen
19.03.2015 14:01:07
flotschuk
Hallo Franz,
danke schon mal für den Lösungsvorschlag. Funktioniert allerdings noch nicht 100%tig. Speziell im unteren Bereich der Tabelle übernimmt es nicht die richtige Färbung, wenn ich Zeilen ausblende oder einen Filter setze. "Open" und "Target" steht ganz unten in der Tabelle und da funktioniert die Färbung dann nicht mehr, woran kann das liegen?
Vielen Dank schon mal

AW: Makro nur für gefilterte und eingeblendete Zeilen
19.03.2015 14:35:15
fcs
Hallo,
wahrscheinlich gibt es Zeilen die nie im Diagramm dargestellt werden - unabhäng davon, ob die Zeilen eingeblendet sind oder nicht.
Neues Spiel neues Glück. Ich hab das Makro jetzt so angepasst, dass in den Analysedaten jede Zelle in Spalte C ab Zeile 5 (Unterhalb der Startzelle) bis zur letzten Zeile mit Daten in Spalte C ab gearbeitet wird.
Gruß
Franz 
Sub OIFärbenProjectBridge()
Dim i As Long, ZelleStart As Range
Dim lZeile As Long, lZeile_1 As Long, lZeile_L As Long
Dim wksData As Worksheet
Dim objChart As Chart
i = 0
Set wksData = Worksheets("AE_Analysedaten")
With wksData
Set ZelleStart = .Cells(4, 3) 'Zelle C4
'Zeile nach der Startzelle (= 1. Zeile, die im Diagramm  dargestellt sein könnte)
lZeile_1 = ZelleStart.Row + 1
'letzte sichtbare Zelle mit Inhalt in Spalte C
lZeile_L = .Cells(.Rows.Count, ZelleStart.Column).End(xlUp).Row
End With
'zu bearbeitendes Diagramm setzen - günstiger als über Activate zu arbeiten
Set objChart = Worksheets("project bridge").ChartObjects("Diagramm 1").Chart
'Datenpunkte in 2. Diagrammreihe formatieren
With objChart.SeriesCollection(2)
'Zellen in Spalte C abarbeiten
For lZeile = lZeile_1 To lZeile_L
'prüfen, ob Zeile ausgeblendet
If wksData.Rows(lZeile).Hidden = False Then
'Zeile sichtbar, Zähler für Datenpunkt erhöhen
i = i + 1
'Zellwert in Spalte C vergleichen und Farbe des Datenpunktes setzen
Select Case wksData.Cells(lZeile, ZelleStart.Column).Value
Case Is = "91_Abgeschlossen"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "9_Var.teile zurück"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "8_C&M"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "7_Geliefert"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "6_Verkauft"
.Points(i).Interior.Color = RGB(0, 176, 80)
Case Is = "5_Hot"
.Points(i).Interior.Color = RGB(255, 0, 0)
Case Is = "4_Projected"
.Points(i).Interior.Color = RGB(0, 176, 240)
Case Is = "Open"
.Points(i).Interior.Color = RGB(255, 192, 0)
Case Is = "Target"
.Points(i).Interior.Color = RGB(45, 96, 145)
End Select
End If
Next
End With
End Sub

Anzeige
AW: Makro nur für gefilterte und eingeblendete Zeilen
19.03.2015 14:46:00
flotschuk
Hi Franz,
jetzt scheints zu funktionieren. Du bist der wahnsinn! Danke für die schnelle Hilfe.
Werde noch ein bisschen weiter an dem Makro basteln, da ich noch ein paar Anpassungen brauche, ich hoffe mal, dass ich das auch so hin bekomme.
Gruß
Flo

329 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum
Ewald Sadowski
Hallo
habe ein Makro um Zeilen über Inputboxen einfügen zu können.
Zuerst wird abgefragt, ab wo eingefügt werden soll, und dann wieviel Zeilen eingefügt werden sollen.
Das Makro läuft durch, es kommt keine Fehlermeldung aber es passiert auch nichts.
Was ist da falsch??
Makro:...
24.01.2010 14:47:22
Thread-ID: 1132453
32 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 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
6
6
31
1
1
6
6
2
3
6
2
1
3
3
2
7
3
1
2
24
5
7
8
15