Excel-Bericht aus Daten erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Private wksData As Worksheet, wksForm As Worksheet Private arrData() Sub Formular() Set wksData = Worksheets("Daten") Set wksForm = Worksheets("Formular") If DatenEinlesen > 0 Then Call Daten_ins_Formular MsgBox "Ffertig!" Else MsgBox "Keine Daten für den Zeitraum gefunden" End If End Sub Private Function DatenEinlesen() As Long Dim lZeile As Long, iArr As Long, dDatumVon As Date, dDatumBis As Date 'Datensätze einlesen, die innerhalb des Datumbereichs liegen dDatumVon = wksForm.Range("G1") dDatumBis = wksForm.Range("H1") iArr = 0 With wksData For lZeile = 3 To .Cells(.Rows.Count, 2).End(xlUp).Row If .Cells(lZeile, 2) >= dDatumVon And .Cells(lZeile, 2)

Hallo Franz,
das ist ja klasse, was Du da gezaubert hast. Meine Hochachtung!
Man lernt eben immer ein Stückchen mehr dazu. Es scheint auch zu funktionieren und ich habe einige Anpassungen vorgenommen. Nun habe ich noch ein paar Fragen:
Durch Anpassungen müssten die Daten aus anderen Spalten bzw. in andere Spalten eingefügt werden, in Deinem Makro finde ich jedoch nicht die herkömmlichen Bezugsadressen der Spalten, wie gehe ich hier vor?
Die Summe der Daten aus Spalte "X" müsste ich im Formular unter H41 eintragen, da es keine Spalte hierfür gibt, würde ich einfach eine weitere Spalte im Formular anhängen und ausblenden (müsste diese Spalte dann auch als Löschbereich definieren). Wäre diese Vorgehensweise Deiner Meinung nach korrekt?
Kann ich das Formular auch als separate Datei führen, so dass ich "nur" das Formular öffnen muss und die Daten-Datei nicht aktiv geöffnet werden muss?
Was bewirkt Dein Befehl "Next arrData(13, iArr2) = True 'Datensatz als gedruckt gekennzeichnen"? Ich konnte keine Kennzeichnung finden.
Vielen lieben Dank für Deine tolle Unterstützung!
Gruß
MARTIN
https://www.herber.de/bbs/user/69148.zip

Hallo Martin,
Durch Anpassungen müssten die Daten aus anderen Spalten bzw. in andere Spalten eingefügt werden, in Deinem Makro finde ich jedoch nicht die herkömmlichen Bezugsadressen der Spalten, wie gehe ich hier vor?
Da wesentlich einfacher zu programmieren, verwende ich unter VBA fast immer Cells(Zeile, Spalte) für das Lesen und Schreiben von Daten aus/in Tabellen. Zeile entspricht dabei der Nummer wie sie links in Excel angezeigt wird, Spalte der fortlaufende Nummer der Spalte, wobei A=1, B=2 .. Z=26, AA=27 usw.
Man kann in Excel auch die Darstellung in die Z1S1-Schreibweise umschalten unter Extras-Optionen-Allgemein. Das ist dann hilfreich, wenn man unter VBA die Spaltennummern benötigt und nicht das Alphabet durchzählen möchte
Die Summe der Daten aus Spalte "X" müsste ich im Formular unter H41 eintragen, da es keine Spalte hierfür gibt, würde ich einfach eine weitere Spalte im Formular anhängen und ausblenden (müsste diese Spalte dann auch als Löschbereich definieren). Wäre diese Vorgehensweise Deiner Meinung nach korrekt? Ausblenden ist nicht nötig, wenn du im Blatt Formular einen Druckbereich festlegst. Das Array zum Einlesen muss dann um eine Spalte erweitert werden.
Alternativ könnte man diese Summe auch vom Makro berechnen und eintragen lassen. (ist in der Datei ausser dem Eintragen schon so drin.)
Kann ich das Formular auch als separate Datei führen, so dass ich "nur" das Formular öffnen muss und die Daten-Datei nicht aktiv geöffnet werden muss?
Die Trennung von Daten-Datei und Formular-Datei ist möglich. Die Daten-Datei muss aber zum Einlesen der Daten kurzzeitig geöffnet werden. Ist in der Datei schon umgesetzt. Das Makro fragt nach dem Start nach dem Dateinamen, wenn die Datendatei immer die gleiche ist, dann kannst du den Namen auch fest im Makro verankern. Nach dem Einlesen der Daten wird die DatenDatei sofort wieder geschlossen, bevor der Ausdruck der Daten beginnt.
Was bewirkt Dein Befehl "Next arrData(13, iArr2) = True 'Datensatz als gedruckt gekennzeichnen"? Ich konnte keine Kennzeichnung finden.
arrData(13, iArr2) = True
arrData ist ein Daten-Array, das nur während der Makroausführung im Arbeitsspeicher von Excel existiert. Es werden keine Daten in Tabellen geschrieben. Das Array wird beim Einlesen angelegt und mit Daten gefüllt. Beim Drucken werden diese Daten ausgewertet (Nach PersNr) und ins Formular geschrieben.
Wird eine Datenspalte des Arrays ins Formular geschrieben, dann wird in Zeile 13 des Arrays als Merker der Wert False mit True überschrieben. In der äußeren For-Next-Schleife wird für jede Zeile immer erst geprüft, ob die Spalte schon in einem der vorherigen Formulare ausgedruckt wurde, bevor die Daten für die nächste PersNr. zusammengestellt werden.
Gruß
Franz
Hier die aktualisierte Formulardatei ohne Blatt Daten
https://www.herber.de/bbs/user/69156.xls

Beliebteste Forumthreads (12 Monate)

Excel-Bericht aus Daten erstellen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Bericht aus Daten erstellen

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread