Erstellung von Einzelaufstellung aus einer Liste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Martin,
hier mal ein Beispiel-Makro.
Für die Rechnungen legst du ein Muster an mit dem unveränderlichen Vorgabe-Text.
Das Makro kopiert dann für jede Rechnungsnummer das Muster und fügt die Daten aus der Liste ein.
Gruß
Franz

Sub RechnungenAnlegen()
Dim wbk As Workbook
Dim wksMuster As Worksheet, wksListe As Worksheet, wksRechnung As Worksheet
Dim Zeile_L As Long, Zeile_R As Long, Zeile_Letzte As Long
Dim strName As String, strRechnungNr As String
Const Zeile_1 = 6 'Zeile in der 1. Artikel in Rechnung eingetragen werdne soll
Set wbk = ActiveWorkbook
Set wksListe = wbk.Worksheets("Liste")
Set wksMuster = wbk.Worksheets("Muster") 'Musterblatt für Rechnung
With wksListe
Zeile_Letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile_L = 2 To Zeile_Letzte + 1
If .Cells(Zeile_L, 1).Text  strRechnungNr Then
If strRechnungNr  "" Or Zeile_L = Zeile_Letzte + 1 Then
'Summenzeile in Rechnung einfügen
wksRechnung.Cells(Zeile_R + 2, 1).Value = "Gesamtpreis"
wksRechnung.Cells(Zeile_R + 2, 2).FormulaR1C1 = "=SUM(R" & Zeile_1 & "C:R" & Zeile_R & _
"C)"
End If
If Zeile_L = Zeile_Letzte + 1 Then Exit For
'Nächstes Rechnungsblatt anlegen
wksMuster.Copy after:=wbk.Sheets(wbk.Sheets.Count)
Set wksRechnung = wbk.Sheets(wbk.Sheets.Count)
strRechnungNr = .Cells(Zeile_L, 1).Text
strName = .Cells(Zeile_L, 2).Text
wksRechnung.Name = "ReNr" & strRechnungNr
wksRechnung.Range("A2").Value = strName
wksRechnung.Range("D3").Value = "'" & strRechnungNr
Zeile_R = Zeile_1
wksRechnung.Cells(Zeile_R, 1).Value = .Cells(Zeile_L, 3).Value
wksRechnung.Cells(Zeile_R, 2).Value = .Cells(Zeile_L, 4).Value
Else
Zeile_R = Zeile_R + 1
wksRechnung.Cells(Zeile_R, 1).Value = .Cells(Zeile_L, 3).Value
wksRechnung.Cells(Zeile_R, 2).Value = .Cells(Zeile_L, 4).Value
End If
Next Zeile_L
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Erstellung von Einzelaufstellung aus einer Liste

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread