title image


Smiley Re: Blätter aus der ARRAY-Variablen markierne, dann per VBA drucken
Hallo NoNet,



herzlichen Dank fuer die schnelle Antwort. Mein Problem ist jetzt nur, dass ich die Angabe in einem Array habe. Vielelicht hilft mein bisheriger SourceCode weiter...



Sub print_pages()

Dim tmp() As Integer

Dim sht()

ReDim tmp(0 To sheets.Count)

For i = 1 To sheets.Count Step 1

sheets(i).Select

If Cells(1, 1).Value = "sheet 1" Then

For j = 0 To UBound(tmp) Step 1

If tmp(j) = 0 Then

tmp(j) = i

Exit For

End If

Next j

Else

MsgBox "Wrong"

End If

Next i

MsgBox UBound(tmp)

For j = 0 To UBound(tmp) Step 1

If tmp(j) 0 Then

sht = Array(tmp(j))

sheets(sht).Select

SelectedSheets.PrintOut

End If

Next j

End Sub





Gruss

Raphael
Gruß spiekermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: