Vba zeilen kopieren
10.03.2014 22:29:21
Chris
Ich habe folgendes Problem und hoffe Ihr könnt mir helfen!
Möchte mit Excel einen Seriendruck erstellen: Habe 2 Tabellenblätter Sammelrechnungen und Druck. Im Tabellenblatt Sammelrechnungen stehen die benötigten Daten in Spalte a, b, c, g, h, i -> die werden in die TextBox1, 2 und 3 übergeben und ausgedruckt. Das Blatt Druck ist ein Zahlschein. Jetzt hat sich aber das Format des Zahlscheins geändert. Es sind jetzt 3 Zahlscheine auf einem A4 Blatt.
Jetzt brauche ich den code so geändert, dass er mir die ersten 3 Zeilen aus den Sammelrechnungen entnimmt und ausdruckt, dann die nächsteten 3 usw.
Folgender code funktioniert nur für eine Zeile:
Private Sub CommandButton4_Click() 'Drucken
Dim a As Integer
If Sheets("Sammelrechnungen").Range("B2") = "" Then Exit Sub
Unload Me
For a = 2 To Sheets("Sammelrechnungen").Cells(1, 1).End(xlDown).Row
Application.ScreenUpdating = False
Sheets("Sammelrechnungen").Activate
Sheets("Druck").TextBox1.Value = CStr(Sheets("Sammelrechnungen").Cells(a, 8))
Sheets("Druck").TextBox2.Value = CStr(Sheets("Sammelrechnungen").Range("J2") & " " & Cells( _
_
_
_
a, 7).Value & " " & Cells(a, 9).Value)
Sheets("Druck").TextBox3.Value = CStr(Sheets("Sammelrechnungen").Cells(a, 1).Value & " " & _
_
_
_
Cells(a, 2).Value & " " & Cells(a, 3).Value)
Application.ScreenUpdating = False
Sheets("Druck").Activate
Sheets("Druck").TextBox1 = Format(Sheets("Druck").TextBox1, "0.00")
Application.Dialogs(xlDialogPrint).Show
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next a
Sheets("Druck").TextBox1.Value = ""
Sheets("Druck").TextBox2.Value = ""
Sheets("Druck").TextBox3.Value = ""
Sheets("Sammelrechnungen").Activate
userform1.Show
End Sub
Für eure Hilfe oder Vorschläge wäre ich sehr dankbar.
mit freundlichen und nächtlichen Grüßen
Chris