array ausdrucken funzt nicht
20.06.2006 15:50:41
ray
folgende Code funzt nicht. Was mach ich falsch?
Gruß aus HH, der Regen kommt
ray
Sub diviListenDruck()
'############# Sheets der darstellung drucken ################
Application.ScreenUpdating = False
Dim Liste, i As Integer
Liste = Array("diviAus0", "diviAus1", "diviBerechtigt", "eG155", "eG310", "eG465", "eGmax")
For i = 0 To UBound(Liste)
Worksheets(Liste(i)).Range(2 & ":" & Rows.Count).PrintOut '.ClearContents löscht nur Inhalte Delete auch stricjhe
was = was & vbLf & " - " & Liste(i)
Next i
MsgBox "Sheets wurden gedruckt:" & was
End Sub