Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot als letze Zelle definieren wenn Pivot reduziert wird
 20.08.2015 14:53:19 Shaket
NotSolved
24.08.2015 09:44:53 Holger
NotSolved

Ansicht des Beitrags:
Von:
Shaket		 Datum:
20.08.2015 14:53:19		 Views:
1002		 Rating:
     
Antwort:
  Ja
Thema:
Pivot als letze Zelle definieren wenn Pivot reduziert wird
Hallo zusammen Das hier ist meine erste Frage, die ich nicht durch recherchieren im Forum beantworten konnte. Bin ziemlicher VBA-Anfänger. Habe eine Pivot erstellt mit einer Hochrechnung über Lagerbestände in Spalte F. Es funktioniert ganz gut, dass die Reihe entsprechend Wert in Spalte F eingefärbt wird. Wenn ich allerdings die Pivot reduziere, erkennt sie mir nicht die letzte Zelle mit Inhalt als letzte Zelle, sondern nimmt dafür die letzte Zelle der davor erweiterten Pivot. Somit werden auch alle Zellen unterhalb der Pivot grün gefärbt. In meinem Code wird auch der Befehl für keine Farbe nicht ausgeführt, keine Ahnung weshalb. Wenn Ihr mir sagen könnt, wie ich das Makro automatisch beim erweitern oder reduzieren ausführen kann, wäre das auch noch genial. Für Eure Profi-Hilfe bin ich sehr dankbar!! Hier der Code: Sub einfaerben() letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Dim Start As Long Dim Ende As Long Start = 5 Ende = letztezeile Dim i As Long For i = Start To Ende If Range("F" & i).Value < 1 Then Range("A" & i & ":F" & i).Interior.ColorIndex = 4 End If If Range("F" & i).Value > 0 And Range("F" & i).Value < 3 Then Range("A" & i & ":F" & i).Interior.ColorIndex = 6 End If If Range("F" & i).Value > 2 Then Range("A" & i & ":F" & i).Interior.ColorIndex = 3 End If If IsEmpty("F" & i) Then Range("A" & i & ":F" & i).Interior.ColorIndex = xlNone End If Application.ScreenUpdating = True Next i End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Pivot als letze Zelle definieren wenn Pivot reduziert wird
 20.08.2015 14:53:19 Shaket
NotSolved
24.08.2015 09:44:53 Holger
NotSolved