title image


Smiley Re: Flexiblen Bereich drucken
Hallo Werner,



hat sich erledigt. Hab selber eine Lösung gefunden. Eigentlich ganz easy:



Private Sub CommandButton2_Click()

Dim i As Long, a As Long

For i = 1 To 15

For a = 1 To 15

If Cells(i, 1).Interior.ColorIndex = 3 Then

If Cells(a, 3).Interior.ColorIndex = 6 Then

With Sheets(1)

.Range(.Cells(i, 1), .Cells(a, 3)).PrintOut copies:=1

End With

End If

End If

Next a

Next i

End Sub



Danke nochmals u. Grüsse



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: