von zeile zur zeile
16.10.2006 13:06:52
zeile
Diesen Code habe ich auf einer Befehlsschalfläche, die in der Zeile 4 liegt.
um nicht in jede Zeile einen Button zu legen, sollte immer die nächste Zeile automatisch genommen werden.
Also erst aus Zeile 4(g1,h1,i4,g4,f4),
dann Zeile 5 mit(g1,h1,i5,g5,f5),
dann Zeile 6 mit (g1,h1,i6,g6,f6)
und das alles bis zur Zeile 25un dann wieder von Zeile 4 anfangend!
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Range("G1").Copy Sheets("Druck").Range("B4:k8")
Sheets("Tabelle1").Range("H1").Copy Sheets("Druck").Range("b11:k15")
Sheets("Tabelle1").Range("i4").Copy Sheets("Druck").Range("B18:k22")
Sheets("Tabelle1").Range("G4").Copy Sheets("Druck").Range("B25:k29")
Sheets("Tabelle1").Range("F4").Copy Sheets("Druck").Range("A32:k73")
Sheets("Druck").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Druck").Range("B4:k8").ClearContents
Sheets("Druck").Range("B11:k15").ClearContents
Sheets("Druck").Range("B18:k22").ClearContents
Sheets("Druck").Range("B25:k29").ClearContents
Sheets("Druck").Range("A32:k73").ClearContents
Sheets("Tabelle1").Select
Range("C5").Select
End Sub
Private Sub CommandButton10_Click()
Sheets("Tabelle1").Range("G1").Copy Sheets("Druck").Range("B4:k8")
Sheets("Tabelle1").Range("H1").Copy Sheets("Druck").Range("b11:k15")
Sheets("Tabelle1").Range("i5").Copy Sheets("Druck").Range("B18:k22")
Sheets("Tabelle1").Range("G5").Copy Sheets("Druck").Range("B25:k29")
Sheets("Tabelle1").Range("F5").Copy Sheets("Druck").Range("A32:k73")
Sheets("Druck").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Druck").Range("B4:k8").ClearContents
Sheets("Druck").Range("B11:k15").ClearContents
Sheets("Druck").Range("B18:k22").ClearContents
Sheets("Druck").Range("B25:k29").ClearContents
Sheets("Druck").Range("A32:k73").ClearContents
Sheets("Tabelle1").Select
Range("C5").Select
End Sub
Kann mir hierbei auch noch einmal jemand helfen?
Ich hoffe ihr konntet mein Anliegen verstehen.
mfG Lisa