Office: (Office 365) Werte in Spalten Kopieren und drucken

Also meine Lösung sieht nun so aus.

Was soll ich sagen es funktioniert.

Code:

Sub neuer_Test_1()
Dim rngSuche As Range


Do
    If Worksheets("Label").Range("A3").Value > 0 Then
   
        If Worksheets("Label").Range("A3").Value > 0 Then
            'MsgBox (Worksheets("Label").Range("A3"))
            Worksheets("Label").PrintOut Copies:=1
            Set rngSuche = Worksheets("Liste").Columns(2).Find(Worksheets("Label").Range("A3").Value, lookat:=xlWhole)
            If Not rngSuche Is Nothing Then
                rngSuche.Offset(0, 11) = "gedruckt" '
            End If
        End If
    Else
        Exit Sub
    End If
Loop
End Sub

In TB(Label) A3 habe ich folgende Formel eingebaut.

Code:

=WENNFEHLER(WENN(ZEILE(Liste!AZ3)>ANZAHL2(Liste!$AZ$3:Liste!$AZ$25000);"";INDEX(Liste!$AZ:$AZ;KKLEINSTE(WENN(Liste!AZ$3:Liste!AZ$25000<>"";ZEILE(Liste!$3:$25000));ZEILE(Liste!AZ1))));)

Ich denke es geht bestimmt schöner, besser und einfacher aber hey was soll ich sagen es funktioniert.

Danke an alle die mir versucht haben zu helfen.
Gruß Michael

 

Moin Michael,

um Deine Kabelsalat-Druckgelüste vielleicht noch ein wenig zu steigern, schau mal hier

Schöne Grüße