unterschiedl. Pos aus Registern addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbDataForGraphic() Dim liMonth As Integer, lloRow As Long, lstrMonth As String, lloCol As Long Sheets.Add After:=Sheets(Sheets.Count) With ActiveSheet For liMonth = 1 To 12 lstrMonth = Format(CDate("01." & liMonth & "." & Year(Date)), "MMMM") If .Range("A1").Value = "" Then lloCol = 1 Else lloCol = .Cells(2, Columns.Count).End(xlToLeft).Column + 1 End If .Cells(1, lloCol).Value = lstrMonth For lloRow = 10 To 40 If Sheets(lstrMonth).Range("C" & lloRow).Value "" Then .Cells(.Cells(.Rows.Count, lloCol).End(xlUp).Row + 1, lloCol) = Sheets(lstrMonth).Range("B" & lloRow).Value .Cells(.Cells(.Rows.Count, lloCol).End(xlUp).Row, lloCol + 1) = Sheets(lstrMonth).Range("C" & lloRow).Value End If Next Next End With End Sub

Hallo Thorsten,
vielen Dank für Deinen zweiten, angepassten Vorschlag!
Wenn es beim ersten zu Missverständnissen gekommen ist, dann sicher auch, weil ich keine Beispieldatei hatte.
Hab ich dann aber auch gemerkt und eine fertig gemacht. Entschuldige bitte die Verwirrungen deshalb!
Vorab, ich finde es superklasse, dass Du Deine Vorschlag erläuterst, etwas erklärst und aufzeigst, was geschieht und warum.
Das ist wie für mich wie ein erstes Tasten in einem Nebel. Mit Sicherheit werde ich Deine Beschreibungen noch häufiger durchlesen, ich habe sie mir bereits abgespeichert, damit ich sie auch später mal wiederfinde. Ich bin gespannt, wann ich alles davon verstehen werde ;) DIe ersten Fragmente habe ich bereits wiedergefunden^^
Diagramme erstellen kann, vielen Dank - das ist nicht das Problem ;)
Was das Antworten angeht, also ich habe gestern von kurz vor acht bis nach 22 Uhr gearbeitet, heute ging es wieder früh los.
Ich nehme mir ebenfalls Zeit, alles ordentlich zu beantworten und zu erklären, nur ich muss dazu auch Zeit finden.
Probieren muss ich es ja auch, bei Deinem Vorschlag gehört sogar noch "etwas verstehen" dazu, also schlicht mich "damit befassen" ;)
Die neue Darstellung ist natürlich viel besser ;) Sie entspricht bereits jetzt sehr meinen Wünschen! Sollte es dabei bleiben, wäre mir schon sehr geholfen! Vielen Dank bis hierher!!
Mit etwas verbrachter Zeit nun meine Fragen:
1. dynamisch: also ich gebe etwas ein und es wird direkt ausgewertet klappt wohl nur mit einer Pivottabelle, wenn ich es recht verstehe? Ok. dann muss ich mir wohl irgendeinen Button bauen, um das Makro zu starten, das wird wohl gelingen, denke ich. Oder gibt es da noch eine andere Lösung?
2. Mir ist es aufgrund Deiner Beschreibung bereits "gelungen"(^^), die Auswertung ein paar Zeilen nach unten und nach rechts zu schieben :) Ich wolte eigentlich eine Überschrift einsetzen und es optisch etwas anpassen, aber dadurch dass der Code eh alles löscht, ist das wohl unnütz. Oder könnte der Code vielleicht erst ab Zeile ? 8 z.B. alles löschen? Dann könnte ich noch eine Überschrift rüberschreiben.
3. Ich habe ein Auswertungsarbeitsblatt. Unter den Grafiken sind meistens die Tabellen mit den Daten. Ein Traum wäre natürlich das Diagramm im Arbeitsblatt "Auswertungen" dann später auch direkt unter die Grafik zu schubsen. Dass muss aber nicht unbedingt sein, da ich Dir den Ort auch noch nicht genau bennen kann und der Code ja zunächst alle Zellen löscht. Ich denke, ich werde das Arbeitsblatt ausblenden lassen und das Diagramm die Daten dort herholen lassen.
4. *Wunschkonzert an* wäre es möglich noch aus Zeile 6 und oder Zeile 7 den entsprechenden Kategorie- oder Detailtitel mit ausgeben zu lassen? Also z.B.
"ParkNow" | "Fahrscheine, Parken" | "Kfz-Kosten" | "BETRAG"
*Wunschkonzert aus* - ich könnte dann das Diagramm vermutlich noch besser sortieren, zb: nach "Kfz-Kosten" absteigend. Aber dann müsste wohl eh alles in eine "Tabelle" gepackt werden? vermutlich?
Im Laufe der kommenden Tage (abzüglich Samstag Oma den ganzen Tag besuchen und Sonntag die Mama) fällt mir bestimmt mehr dazu ein, wie das dann immer so ist. Bitte nicht ungeduldig sein, wenn ich nicht sofort antworten kann oder meine Fragen "verspätet" nachrutschen.
Ich werde vorrangig versuchen, mit dem bisherigen Ergebnis schon mal etwas vorzuarbeiten, damit ich alles kompakt fragen kann.
Vielen Dank bis hierher.
Für die Arbeit. Deine Zeit. Deine Erläuterungen. Und Deinen guten WIllen!
Viele Grüße
Thomas

Also ich hoffe, der Beitrag geht noch durch, ist ja allerhand Zeit durchgerauscht nun leider.
Hallo Thorsten,
danke für Deine Geduld!
Es war schlicht zu viel los und ich pfeife auf dem fast letzten Loch.
Also von vorne: (Ich gehe danach alles durch)
1. "dynamisch": klappt super! Ich habe bereits eine Tabelle eingefügt, jetzt setzt er schon mal immer alles in eine Tabelle die dann sortiert werden kann
2. "ab Zeile 8": klappt auch prima, Überschrift ist auch schon gesetzt :)
3. "In Auswertungen verschieben": das habe ich auch schon mal kurz geschafft, allerdings mit einigen Crashes. Es wird alles darunter gelöscht und eine extra Spalte angelegt, warum weiß ich nicht. Ich habe jetzt deinen Code gelassen und mal das Auswertungen Register mit eingefügt, ohne Auswertungen aber mit Platzhalter.
Ab Zeile 252 kann es losgehen. Es steht noch nicht genau fest, da die restlichen Diagramme auch noch nicht alle fertig, sind. Es könnte sein, dass sich noch mal ein Teil (vielleicht auch Monate später erst) verschiebt. Deshalb wüsste ich gerne, wie ich Deine Tabelle verschieben kann ggf.
4. "Extra Spalten" für Kategorie und Details (zum schönen Wunschkonzert):
Ich hatte auch schon bemerkt, dass das mit den Kategorien nicht hinhaut und hatte die Zellen dann verbunden, da ging es aber auch nicht. Ich hatte schon den Vormittag an einer anderen Lösung getüftelt, wollte Dich aber damit nicht behelligen und ZACK kam Deine Vebesserung =) Toll!!
: Klappt super :)) (Vor allem in der Update Version von Dir :) ) Also, von wegen etwas schlecht gemacht, nein, Wunschkonzert war Klasse! Mit Zugabe 😉
Dynamisch und ab Zeile 8 sind erstmal erledigt. Prima
Nuun aber (zu 3. und 4.)
Ab Zeile 252 bei Auswertungen kann es (vorerst) losgehen:
1. Aus der nun angelegten Tabelle bei Registerauswertung soll das Diagramm die Daten für das Diagramm fischen.
Entweder mit einer Zusatztabelle (siehe Auswertungen linkes Diagramm nicht so schön, kann man hinter dem Diagramm verstecken, wird die aber zu lang, wegen zu vieler Einträge ist es vorbei mit schön)
DESHALB, soll das Diagramm die Daten am besten aus der Registerauswertung direkt beziehen. Macht er im rechten Diagramm.
Sobald man allerdings erneut auf Registerauswertung klickt, löscht er alle Bezüge, bis auf den ersten Wert. Merkwürdig. Es heißt dann plötzlich es gibt einen Zirkelbezug und dann löscht er die Bezüge, obwohl diese ja nach der Datenauffrischung wieder bestehen. Es könnte also mit dem Löschen zu tun haben.
Für das linke Diagramm einfach die Zusatztabelle festhalten erneut nach unten ziehen oder am besten die Datei neu laden 😉dann gehts wieder für beide.
Also: Die Tabelle kann bei Registerauswertung bleiben, wenn sie
- Das Diagramm nicht die Bezüge zu ihr verliert nach dem Auffrischen
- Die Tabelle sortiert werden kann (oder *hust* BESSER automatisch absteigend immer nach dem höchstem Wert nach jedem Update)
- Und ich weiß, wie ich die Tabelle etwas nach rechts einrücken kann auf dem Registerauswertungblatt. Ich würde versuchen, sie mir mittig zu buchsieren, wenn ich weiß, wie nach rechts rücken.
Im Diagramm muss man ja den Bereich der Daten eingeben. Ich weiß nur noch nicht, wie man dann die leeren Zellen ausblendet. Das ist dann wohl aber ein anderes Thema für das Forum hier 😉
Die Werte im Diagramm fehlen noch, war mir jetzt zu fummelig :P
So.
Ich hoffe der Beitrag wird noch gesendet (7 Tagesregel)
Datei dabei. https://www.herber.de/bbs/user/153061.xlsm
Ich gucke spätestens morgen wieder hier rein.
Danke für alles!
Und ich hoffe Du hast noch ein Bier im Kühlschrank.
Bitte nimm Dir eins 😊
LG
Thomas

Sub SUMMEN() Dim i As Integer, rngC As Range Dim objSUM As Object, oObj Dim vntOUT() Set objSUM = CreateObject("scripting.dictionary") For i = 1 To 12 With Worksheets(MonthName(i)) For Each rngC In .Range("B10:B40") objSUM(rngC.Value) = objSUM(rngC.Value) + rngC.Offset(, 1) * 1 Next rngC End With Next i ReDim vntOUT(1 To objSUM.Count, 1 To 2) i = 0 For Each oObj In objSUM i = i + 1 vntOUT(i, 1) = oObj vntOUT(i, 2) = objSUM(oObj) Next Worksheets("Summen").Cells(1, 1).Resize(UBound(vntOUT), 2) = vntOUT End Sub

Sub SUMMEN() Dim i As Integer, rngC As Range Dim objSUM As Object, oObj Dim vntOUT() Set objSUM = CreateObject("scripting.dictionary") For i = 1 To 12 With Worksheets(MonthName(i)) For Each rngC In .Range(.Cells(10, 2), .Cells(41, 2).End(xlUp)) objSUM(rngC.Value) = objSUM(rngC.Value) + rngC.Offset(, 1) * 1 Next rngC End With Next i ReDim vntOUT(1 To objSUM.Count, 1 To 2) i = 0 For Each oObj In objSUM i = i + 1 vntOUT(i, 1) = oObj vntOUT(i, 2) = objSUM(oObj) Next Worksheets("registerauswertung").Cells(1, 1).Resize(UBound(vntOUT), 2) = vntOUT End Sub

Beliebteste Forumthreads (12 Monate)

unterschiedl. Pos aus Registern addieren

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread