Guten Tag,

bin ein VBA-Dummchen! :-)

Irgendwie mag er mein Makro nicht:

    ' zum Tabellenblatt wechseln
   Sheets("Evaluationsbogen").Select
    
With Worksheets("Evaluationsbogen")
   If .Range("I3") <> "" Then
     Do
         If .Range("I3") <= .Range("I1") Then

  
'Wählt den Drucker  blanko aus
Dim strPrinter As String
Const cstrPrinter As String = "\\SBS-SERVER.mebino.local\RDS Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=Sheets("Evaluationsbogen").Range("I2").Value, Copies:=1, Preview:=False,
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter

               .Range("I3") = .Range("I3") + 1
           Else
               Exit Do
           End If
       Loop
  End If
End With

Hat jemand eine Idee?

Liebe Grüße

Matthias