Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere tabellenblätter auswählen

mehrere tabellenblätter auswählen
16.02.2004 16:55:52
Eda
Hallo Leute
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere tabellenblätter auswählen
16.02.2004 17:15:05
Alex K.
Hallo Eda,
bist du sicher, dass auch alle DF-Element gefüllt sind, also keine Leer-Element existieren.
Probiere mal folgendes
erstes ReDim:
ReDim df(0 to 0)
j = 0
und in Schleife:
If Range("W" & i).Value = "x" Then
ReDim Preserve df(0 to j)
df(j) = Range("V" & i).Value
j = j + 1
End If
AW: mehrere tabellenblätter auswählen
16.02.2004 17:27:03
Nepumuk
Hallo Eda,
solte schon funktionieren. Wenn aber das Array nicht komplett gefüllt ist, kommt der Fehler 9. Das kannst du so umgehen:

Option Explicit
Sub BlaetterDrucken()
Dim k As Integer, j As Integer, i As Integer
Dim df As Variant
Sheets("Sheet2").Select
k = Range("W13").Value - 1
j = 0
ReDim df(0)
For i = 16 To 22    ' Anzahl der Zeilen
If Range("W" & i).Value = "x" Then
ReDim Preserve df(0 To j)
df(j) = Range("V" & i).Value
j = j + 1
End If
Next i
Sheets(df).Select
Application.Dialogs(xlDialogPrint).Show
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
Ich sollte ab und an auf F5 drücken
16.02.2004 17:29:16
Nepumuk
Dafür ist deine Lösung "schöner" und farbiger :-)
16.02.2004 17:34:16
Alex K.
Juppiii!
16.02.2004 18:00:46
Eda
Es hat geklappt! Vielen Dank!
War mir bei den Arrays einfach nicht sicher, ob ich nicht auf dem Holzdampfer bin...
Habe jetzt wieder etwas mehr Selbstvertrauen!
Eda

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige