aus Tabelle Angebotsformular erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Anne
Sorry, Flüchtigkeitsfehler. Ich habe schlicht die "" für den Text vergessen, es musste "Zwischensumme" heissen!
Ich habe den Code noch mal überarbeitet, dir Formeln in jedes Blatt eingebaut, und eine End-Summen Formel.
Die Zwischensumme kannst du nicht in "Auftrag 2" festlegen, weil man nicht weiss wieviele Zeilen pro Druckblatt kopiert werden.
Wenn du keine Leerzeilen im Druckblatt haben willst probiere es bitte mit dem lzDa über End(xlUp) aus. Dann lzDa = lzDa + 1 löschen!
Vergüten sage ich nicht Nein, aber lass uns bitte zuerst das Makro richtig ans laufen bekommen.
mfg Piet

Option Explicit
Dim AC As Range, lz1 As Long
Dim j As Integer, lzDa As Long


Sub Daten_inDruckAngebot_übertragen()
Dim DAG As Worksheet, i As Long
Set DAG = Worksheets("DruckAngebot")
With Worksheets("Angebot 2")
lz1 = .Cells(1000, 1).End(xlUp).Row + 3
lzDa = 18  '1.Zeile DauerAuftrag (19-1)
'Löschen für 3 Auftrags Blätter
DAG.Range("A19:J52").ClearContents
DAG.Range("A56:J108").ClearContents
DAG.Range("A113:J146").ClearContents
Application.ScreenUpdating = False
'Schleife in Tabelle "Angebot 2"
For Each AC In .Range("A20:A" & lz1)
If AC.Value  "" Or AC.Cells(1, 4)  "" Then
If AC.Value  "" Then lzDa = lzDa + 1
If AC.Value  "" Then
'Umschaltung auf nächstes Blatt
For i = 1 To 3   'drei Zeilen prüfen
If AC.Cells(i, 4) = "" Then Exit For
Next i
'** für weitere Blätter bitte selbst erweitern!!
If lzDa  51 Then
lzDa = 56
DAG.Range("J53").Formula = "=SUM(J19:J52)"
DAG.Range("J54").Formula = "=SUM(J19:J52)"
ElseIf lzDa  108 Then
lzDa = 113
DAG.Range("J108").Formula = "=SUM(J56:J107)"
DAG.Range("J109").Formula = "=SUM(J56:J107)"
DAG.Range("H109").Value = "Zwischensumme:"
DAG.Range("H110").Value = "Übertrag:"
ElseIf lzDa  165 Then
lzDa = 171
DAG.Range("J166").Formula = "=SUM(J113:J165)"
DAG.Range("J167").Formula = "=SUM(J113:J165)"
DAG.Range("H166").Value = "Zwischensumme:"
DAG.Range("H167").Value = "Übertrag:"
'mit ElseIf  '** beliebig lang selbst erweitern
End If
End If
'Auftragszeile in DruckAuftrag kopieren
AC.Resize(1, 10).Copy
DAG.Cells(lzDa, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'nächste Zeile setzen
lzDa = lzDa + 1    'oder diese Version testen
'lzDa = DAG.Cells(2000, 1).End(xlUp).Row + 1
End If
Next AC
'End-Summe als Formel zu Angebot2
lzDa = lzDa + 1
DAG.Cells(lzDa, "H").Font.Bold = True
DAG.Cells(lzDa, "H").Value = "End Summe:"
DAG.Cells(lzDa, "J").Formula = "=SUM('Angebot 2'!J20:J" & lz1 & ")"
'End-Summe formatieren mit 1000 Zeichen
DAG.Cells(lzDa, "J").NumberFormat = "#,##0.00"
DAG.Cells(lzDa, "J").Font.Bold = True
End With
End Sub

Hallo Piet,
jetzt läuft´s - super, ich sehe Licht am Horizont :-)


Die Zwischensumme kannst du nicht in "Angebot 2" festlegen, weil man nicht weiss wieviele Zeilen pro Druckblatt kopiert werden.

Ich meinte die END-SUMMEN, aber da gibt´s wohl dasselbe Problem.


Wenn du keine Leerzeilen im Druckblatt haben willst probiere es bitte mit dem lzDa über End(xlUp) aus. Dann lzDa = lzDa + 1 löschen!

Das funktioniert leider nicht: dann werden zwar die Zwischen-Leerzeilen rausgelassen, aber auch bei den Pos.-Zeilen max. 2 (statt 3) übernommen?
Das mit den Zwischensummen und Überträgen bekomme ich in Griff - bei den Zw-Summen brauche ich kumulierte Werte, aber das konnte ich einstellen :-) und die restlichen Seiten - das wird halt Fleißarbeit.
Beim Endsummen-Block erhalte ich nur die Netto-Summe? MWSt + Summe Brutto würden da noch fehlen.
Ich hab jetzt festgestellt, dass - je nach dem welchen Drucker / pdf-Drucker ich nehme - die Zeilenanzahl pro Blatt unterschiedlich ist :-( - das schmeißt dann natürlich die ganze Einstellerei mit den Zw-Summen und Überträgen in vorbelegten Zeilen-Nrn. durcheinander. Ist das irgendwie lösbar oder muß man sich hier auf einen Drucker vorab festlegen und dann die Zeilen-Nrn. danach ausrichten? Wahrscheinlich, oder ? Wenn ja, kann man diesen Drucker fest in das Makro integrieren, so dass der Anwender nur diesen (pdf-)Drucker verwenden kann?
Eins noch: Nach dem Summen-Block sollen noch die Lieferbedingungen angefügt werden.
Dazu hab ich in jeweils einem separaten Tabellenblatt (LB_deutsch/LB_engl/LB_franz) den Text als Objekt eingebettet aus der jeweiligen word-Datei. Ich hoffe, das macht so Sinn?
Die Sprache wird ausgewählt in Tabelle "Eingabe"B1.
Könntest Du mir das bitte noch in´s Makro einfügen? Kann gern nochmal eine Bsp-Datei hochladen oder Dir auf einem anderen Weg? zusenden, wenn erforderlich.
Ich muß noch ein paar Punkte abklären, das geht aber erst Montag - dann sollten wir das Projekt beenden können.
Ganz vielen Dank nochmal und Schönes Wochenende!

okay, bin ein bisschen überrascht das es so viele Seiten sein können, aber für ein Makro kein Problem. Dann berechnen wir die Umschaltung über das Offset Verfahren. Immer eine konstante Zeilen Zahl hinzu addieren. Das hatte ich schon geahnt! Deshalb die Rückfrage.

Beliebteste Forumthreads (12 Monate)

aus Tabelle Angebotsformular erstellen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

177 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

aus Tabelle Angebotsformular erstellen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

177 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread