Hallo Rik, ich habe es nachgestellt sehr schön aber kannst du mir sagen, wie man es schafft, dass die Beträge im richtigen Format also #.## erscheinen?
Hallo Rik, danke für die super Anleitung. Ich habe das Listing abgetippt und es funktioniert sehr gut. Was mich sehr interessieren würde ist: wie kann das ausfüllen der Tabelle gesteuert werden wenn mehr Positionen gelistet werden müssen als Zeilen vorhanden sind. Versucht habe ich es mit: ActiveDocument.Tables(1).Rows(1).Select Selection.InsertRowsBelow Bis jetzt bin ich nicht dahinter gekommen wo ich das einsetzen muss oder ob die Anweisung in eine zusätzliche Function geschrieben werden muss. Gibt es dazu einen Lösungsansatz? Vielen Dank !
Hallo, ich habe Copilot gefragt: Dim tbl As Table Dim newRow As Row Set tbl = ActiveDocument.Tables(3) Set newRow = tbl.Rows.Add Ich könnte mir vorstellen dass das Funktioniert. UNd ich würde das hinter dem Tabelle leeren einfügen.
@@rikscc ich habe das noch nicht richtig umsetzen können. Es gibt ein kleines Problem. Wenn ich wApp.Visible = True auf wApp.Visible = false, setze bekomme ich eine Fehlermeldung. "Ungültiger Prozeduraufruf oder ungültiges Argument" Die Prozedur bleibt an der nächsten Zeile "AppActivate "Word" hängen. Kann mir jemand helfen ?
@@rikscc Hallo und erst mal vielen Dank für Deine schnelle Reaktion !! Die Ausgabe soll als PDF erfolgen (funktioniert auch bis dahin) und der Zwischenschrit(das Befüllen der Worddatei) soll im Hintergrund, nicht sichtbar erfolgen. Wenn wApp.visible = false und AppActivate "Word" deaktiviert wird, steigt die Routine an jeder Zeile in der ActiveDocument.Tables(4) angesprochen wird aus. Ich hatte das gestern probiert und weiß nun auch nicht so richtig wie ich zu einer Lösung komme. Wenn das Wordfenster minimiert geöffnet würde, wäre es auch eine Option. Wie aber müsste ich Word im minimierten Fenster , also nur in der TL sichtbar, starten ?
ich nochmal 😊 der Startparameter wApp.WindowState = wdWindowStateMinimize hat erst mal geholfen. Jetzt passt erst mal alles ! Falls es dennoch eine bessere Lösung gibt um das Wordokument im Hintergrund zu befüllen, setze ich sie sehr gerne ein. Deine Anleitung ist wirklich sehr hilfreich gewesen. Sonst arbeite ich mit Einzeldaten und Serienbriefen. Eine ganze Tabelle musste ich noch nie in einem Worddokument unterbringen. Die Steuerung der Tabellenzeilen musste ich allerdinge anpassen, weil in der Regel eine größere Zeilenzahl vorkommt, die allerdings jedes Mal anders ist. es können 2 sein, aber auch 100 Die ursprünglichen 10 Zeilen der Tabelle habe ich also zunächst auf lediglich eine Zeile minimiert. Da die Datensätze aus zwei unterschiedlichen Tabellen kommen (Materiallisten und Leistungsverzeichnis), werden die ausgesuchten und markierten Inhalte beider Tabellen in eine "Drucktabelle" kopiert. Die Datensätze dieses Recordsets werden mit einer Do While Schleife duchlaufen. Dabei wird bei jedem Sprung zum nächsten DS eine neue Zeile an die Tabelle im Worddokument angefügt. Im Anschluss wird diese wie von Dir vorgegeben ganz normal gefüllt. Die letzte Zeile bleibt leer, sie wird zum Schluss gelöscht. Hier hätte ich vielleicht eine andere Schleifenform wählen können, aber jetzt nicht mehr 😊 Dann erfolgt der Export in eine PDF, welche sogleich in ein DMS eingefügt und noch dazu alle Hinweisfelder ausgefüllt werden. Dazwischen wird die Worddatei geschlossen, aber nicht gespeichert. An dieser Stelle noch einmal vielen Dank für die löbliche Unterstützung Grüße aus Thüringen, Wolfgang
Hallo das Video ist eine Super Sache wie haben sie das Formular erstellt, wie muss man die VBA Code einfügen in welcher Reihenfolge es wäre schön wenn sie die VBA Code auch zur Verfügung stellen dann kann man das besser sehen und muss nicht soviel schreiben und kann die Codes einfügen oder rein kopieren, besser gesagt ein tolles Video vielen Dank
Hallo, ich habe alles nachgebaut. Es funktioniert gut. Vielleicht können Sie mir noch weiter helfen. Bei mir wird aus der Datenbank ein Vertrag mit den Kundendaten gefüllt und ich würde es dann auch gerne automatisch ausdrucken lassen. Also ein Butten drücken und der Vertrag wird ausgefüllt und dann sofort ausgedruckt. Noch besser wäre, er wird gleich zweimal ausgedruckt. Hätten Sie da eine Lösung? Viele Grüße Mario
Hallo Mario. Du kannst hinter dem von mir verwendeten Befehl 'wDoc.Fields.Update' ein 'wDoc.PrintOut Copies:=2' einfügen. Also vor der Stelle wo 'Set wApp = Nothing' kommt.
Hallo Rik, ich komme mit deiner Anleitung leider überhaupt nicht zurecht. Es fehlen die Schritte zwischen Video 1 und Video 2. Wie komme ich zu dem Button? Wenn ich deinen Code so abschreibe, bekomme ich Fehlermeldungen (Laufzeitfehler). Könntest du mir die Zwischenschritte noch erklären, oder noch ein Video machen, wo genau das gezeigt wird. Ansonsten wäre genau das, was ich brauchen würde. Danke
Hallo Thomas. Ich bin davon ausgegangen das wenn jemand ein Access Programm erstellt derjenige weiß wie man Formulare und Schaltflächen mit Ereignisprozeduren anlegt. Oder anders gesagt - das Video ist eher für fortgeschrittene Anwender gedacht. Wenn du mir eine E-Mail schickst, dann kann ich dir vielleicht eine konkrete Frage beantworten. Adresse steht in der Kanalinfo.