mehrere tabellenblätter auswählen
16.02.2004 16:55:52
Eda
Achtung, dies ist genau so eine Frage, bei der man auf andere Threads verweist!
Ich versuche meherer Sheets zu seletieren und dann den Drucken-Dialog aufzurufen.
So geht es:
Sub BlaetterDrucken()
Sheets(Array("tab1", "tab2", "tab3")).Select
Application.Dialogs(xlDialogPrint).Show
End Sub
aber wenn ich die zu selektieren Sheets in ein Array pappe, dann klappt es nicht mehr.
Es folgt der Code:
Sub BlaetterDrucken()
Dim k, j
Dim df
Sheets("Sheet2").Select
k = Range("W13").Value - 1
j = 0
ReDim df(0 To k)
For i = 16 To 22 ' Anzahl der Zeilen
If Range("W" & i).Value = "x" Then
df(j) = Range("V" & i).Value
j = j + 1
End If
Next i
Sheets(df).Select 'HIER WIRD DER FEHLER ANGEZEIGT
Application.Dialogs(xlDialogPrint).Show
End Sub
Ich hoffe es ist nur noch ein klitzekleiner Schritt und wäre für einen Tip dankbar.
Vielen Dank, Eda