brauche Hilfe bei Visual Basic

Dr. Seltsam · 4. Juni 2007

ehe ich mich jetzt in einem dieser Office-Foren anmelde, dachte ich mir, ich versuch es erstmal hier, wo ich zuhause bin ...

Ich habe derzeit ein Makro, das mit einer Vielzahl von Einträgen nacheinander die Zeilen aus dem Tabellenblatt "Verteilerplan" durchgeht und daraus 3 bestimmte Werte (Spalten A, B und D) in 3 immer gleiche Felder desTabellenblattes "Druckbeleg" schreibt und dieses dann druckt. Für lediglich drei Zeilen des Verteilerplanes habe ich schon so viel Code, da ich im wesentlichen nur Copy-and-paste mache:

Code

Sub Drucken()
    Sheets("Verteilerplan").Select
    Range("A3").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Verteilerplan").Select
    Range("B3").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Verteilerplan").Select
    Range("D3").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("D13").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    Sheets("Verteilerplan").Select
    Range("A4").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Verteilerplan").Select
    Range("B4").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Verteilerplan").Select
    Range("D4").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("D13").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


   Sheets("Verteilerplan").Select
    Range("A5").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Verteilerplan").Select
    Range("B5").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Verteilerplan").Select
    Range("D5").Select
    Selection.Copy
    Sheets("Druckbeleg").Select
    Range("D13").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


End Sub

Alles anzeigen

Wie kann ich das mit einer Schleife einfacher machen? Idealerweise soll auch nur dann gedruckt werden, wenn der Wert in Spalte D des Verteilerplanes ungleich 0 ist. Die Schleife soll solange durchlaufen, bis Spalte A des Verteilerplanes leer ist.

bma · 4. Juni 2007

so z.B. ?

Sub Drucken()

z = 1

Do While Sheets("Verteilerplan").Range("A" & z) <> ""

Sheets("Druckbeleg").Range("A3") = Sheets("Verteilerplan").Range("C" & z)
Sheets("Druckbeleg").Range("B3") = Sheets("Verteilerplan").Range("B" & z)
Sheets("Druckbeleg").Range("D3") = Sheets("Verteilerplan").Range("D" & z)

Sheets("Druckbeleg").Select
' ActiveWindow.SelectedSheets.PrintOut ..... (drucken nicht getestet)

z = z + 1
Loop

End Sub

heiwil · 4. Juni 2007

So würde ich es machen:

Code

Option Explicit


Sub Drucken()
Const last As Integer = 4
Dim i As Integer
    For i = 3 To last
        ' Verteilerplan.A3 --> "Druckbeleg".C3
        Sheets("Druckbeleg").Cells(3, 3).FormulaR1C1 = Sheets("Verteilerplan").Cells(i, 1).FormulaR1C1
        ' Verteilerplan.B3 --> "Druckbeleg".D3
        Sheets("Druckbeleg").Cells(2, 4).FormulaR1C1 = Sheets("Verteilerplan").Cells(i, 2).FormulaR1C1
        ' Verteilerplan.D3 --> "Druckbeleg".D13
        Sheets("Druckbeleg").Cells(4, 13).FormulaR1C1 = Sheets("Verteilerplan").Cells(i, 4).FormulaR1C1
        Sheets("Druckbeleg").PrintOut Copies:=1, Collate:=True
    Next i
End Sub

Alles anzeigen

Heiwil

Dr. Seltsam · 4. Juni 2007

wow, das ging ja fix. Danke Euch beiden
ich werd das gleich morgen im Büro ausprobieren

Dr. Seltsam · 5. Juni 2007

so habe ich es jetzt gemacht

Code

Sub Drucken()
    z = 3
    Do While Sheets("Verteilerplan Brinks Lübeck").Range("A" & z) <> ""
    Sheets("Druckbeleg").Range("C3") = Sheets("Verteilerplan").Range("A" & z)
    Sheets("Druckbeleg").Range("D3") = Sheets("Verteilerplan Brinks Lübeck").Range("B" & z)
    Sheets("Druckbeleg").Range("D13") = Sheets("Verteilerplan Brinks Lübeck").Range("D" & z)
    If Sheets("Druckbeleg").Range("D13") > 0 Then
    Sheets("Druckbeleg").PrintOut Copies:=1, Collate:=True
    End If
    z = z + 1
    Loop
End Sub

Alles anzeigen

Nochmals besten Dank an Euch

brauche Hilfe bei Visual Basic

Jetzt mitmachen!

Teilen