|
Hallo zusammen,
ich habe folgendes Problem:
Der unten gezeigte Code soll aus dem Blatt "vba" die erste Zahl kopieren (immer in Spalte A) und bei der Seite "Fahrbericht" in Zelle D4 einfügen. Wenn in der Zelle B15 etwas drinne steht (ist relativ egal was hauptsache nicht leer) soll diese Seite gedruckt werden. Wenn die Zelle B15 leer ist soll wieder zurück zur Seite "vba" gewechselt werden und dort die Nächste Zahl, in dem Fall die 2 wieder kopiert werden und so weiter....
Das Problem bei dem Code unten ist das nicht mehr zurück zu "vba" gewechselt wird sondern in der Seite "Fahrberichte" kopiert wird und es dann zum kompletten durcheinander kommt.
__________________________________________________________________________________________________
Sub FuhrparkAutomatik()
Dim i As Integer
Worksheets("vba").Select
For i = 1 To 45
Cells(i, 1).Copy
Sheets("Fahrbericht").Select
Range("D6").Select
ActiveSheet.Paste
If Range("B15").Value = "" Then
Worksheets("vba").Select
i = i + 1
Else
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If
Next
End Sub</span>
__________________________________________________________________________________________________
Würde mich freuen wenn mir einer weiterhelfen könnte...
Danke Vorab :-)
|