Datenausgabe per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Georg,
ok, ok, ok....auch ich hab was falsch gemacht - nämlich meine Formel-Idee nicht 100%ig getestet!
Ich hatte erst jetzt mal nur für Häuser eine Zeile für 09. Sep mit dem Wert 512 in Spalte C hinzugefügt.
Außerdem hab ich deine "versteckte" Spalte N um den Wert 09. Sep erweitert.
Wenn ich jetzt aber in Zelle J3 den neu verfügbaren Eintrag 09. Sep auswähle, erscheint in Zelle I9 (Anzahl Häuser für gewählten Monat) eine NULL, aber nicht 512 !!!
Wieso?
Weil - wie du mich ja schon irgdwie drauf hingewiesen hattest - meine Formel neu hinzugefügte Datenzeilen - nicht - mit berücksichtigt!
Ok, SO kann das wirklich nix werden!
Es gibt bestimmt Möglichkeiten, dass sich Formeln mit anpassen, wenn sich Datenzeilen ändern, z Bsp bei der Verwendung von sogenannten intelligenten Tabellen, aber wie genau das geht, weiß ich auf die Schnelle auch nicht.
Ok, aber ich hab nun verstanden, wieso du so sehr auf ne VBA-Idee hoffst :-)
Und...ich hab ne VBA-Lösung für dich :-)
https://www.herber.de/bbs/user/148012.xlsm
Wie du siehst, steht nun erstmal in Spalte I UND J eine 0.....weil die Zelle J3 auch noch leer ist.
(ich hab die Formeln in I erst mal gelassen, damit du gleich den Unterschied zur mit VBA gefüllten Spalte J erkennst)
Also...
...wähl erst mal in J3 den Eintrag 01. Jan aus
Du siehst, sowohl in Spalte I (Formeln) als auch in Spalte J (VBA) stehen die gleichen Werte
...wähl jetzt mal in J3 den Eintrag 09. Sep aus
In Spalte J (Formeln) stehen nur 0-Werte! Aber in Spalte J steht für Anzahl Häuser = 512....die anderen Werte in J auch 0, weil es für 09. Sep für die anderen Objekte keine Einträge gibt.
Jetzt solltest du aber zufrieden sein, oder?
Ach ja, wenn die VBA-Werte nur in I, aber nicht mehr in J gezeigt werden sollen, dann...


1. lösch die Werte in J einfach
2. änder diese Zeile...
Range("J9:J16").Value = 0
...um in...
Range("I9:I16").Value = 0
und änder diese Zeile...
Range("J" & lloObj).Value = Range("C" & lloRow).Value
...um in...
Range("I" & lloObj).Value = Range("C" & lloRow).Value

Hilfts?
Ciao
Thorsten

Hallo Georg,
die erste Schritt in VBA ist immer zu prüfen, ob VBA notwendig ist. Wenn nicht, dann lieber nicht.
In deinem Fall nicht: deine Daten sind nur nicht so aufgestellt, um einfach ausgewertet zu sein.
_ Eliminiere die Zellengruppierung von "Datenbasis" (Zelle A1)
_ in dem neuen A1 schreibt "Datum"
_ in B1 irgendwas (hauptsache nicht leer)
_ in C1 "Wert"
_ in D1 "Sachverhalt"
_ dann füge in D2 (Zellengruppierung auch weg) die Formel =WENN(ISTFEHLER(MONAT(A2));A2;D3)
_ erweitere diese Formel (kleine Quadrat am untere rechte Rand vom Zellenrahmen) bis Zelle D68
_ eventuell neuberechnen (Shift+F9)
_ irgendeine Zelle in dem gesamten Datenbereich markieren
_ im Menü "Einfügen", "Pivottabelle" auswählen. Der Datenbereich "Tabelle1!$A$1:$D$68" wird automatisch erkannt
_ im unteren Teil "Vorhandenes Arbeitsblatt" auswählen, im "Ziel" einklicken und Zelle F22 klicken. Dialog mit Ok verlassen.
_ in dem Pivottabellen-Gestalter rechts, Pivottabelle-Feld "Wert" im unteren Bereich "WERTE" verschieben (drag&drop)
_ auf diese "Anzahl von Wert" klicken und in "Wertfeldeinstellungen...", "Summe" auswählen (oder min, max, Durchschnitt, ...)
_ Feld "Sachverhalt" im Bereich "ZEILEN" verschieben. Jetzt hast Du schon einen Ergebnis.
_ Feld "Datum" im Bereich "FILTER" verschieben
_ Datum im Zelle G20 auswählen.
Fertig.
Keine Formel, kein VBA, kein Stress.
nächste Stufe wäre:
_ alle Werte in Spalte D kopieren (Strg +c) und durch Wert ersetzen (Alt, r, v, w)
_ Block A1:D68 nach Inhalt von Spalte A sortieren
_ ganz unten Zeilen 61:68 (Autos ... Tische) löschen (ganze Zeile!)
_ Pivottabelle aktualisieren: darauf rechtsklicken und "Aktualiseren"
_ Sachverhalt von "Zeilen" entfernen (im rechten Pivottabellen-Feldliste)
_ Datum als "Zeilen" verschieben
_ auf einem Datum gehen (z.B. F23) und mit Rechtsklick "gruppieren" klicken
_ Tage, Monate, Jahre auswählen
_ Dann Tage rausnehmen, Monat in "SPALTEN" verscheiben, Sachverhalt wieder in "ZEILEN" direkt unter "Jahre" verscheiben.
Und jetzt hast Du mehr BI-Wissen (=Business Intelligence) als jeden durchschnittlichen Excel-Anwender.
VG
Yal

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread