Drucken via Userform Änderung

Hallo,
ich habe in mein Projekt die Exceldatei 42525.xls aus Herbers Archiv eingebaut. Diese
funktioniert bis auf ein Problem einwandfrei.
Wenn ich die Userform aufrufe, öffnet sich eine weiter UserForm "Tabellenauswahl für Drucken". Wenn ich nun die darin aufgeführten Seiten wähle und über Seitenvorschau auswähle, öffnet sich die Vorschau. Beim Beenden der Vorschau, schliesst sich diese Userform "Tabellenauswahl für Drucken".
Nun das Problem: Ich hätte gerne, dass nach Schliessen der Vorschau automatisch wieder zurück geht in Userform Tabellenauswahl für Drucken, damit ich alle aufgeführten Tabellen durchsehen kann.
Vielleich könnt ihr mir helfen.
Gruss Peter
Datei anbei:https://www.herber.de/bbs/user/94259.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

meinst Du so ?

07.12.2014 14:32:55

robert

AW: meinst Du so ?

07.12.2014 15:47:14

Peter

siehe 'eingefügt... Gruß

07.12.2014 15:58:54

robert

AW: noch eine Frage

07.12.2014 16:10:58

Peter

Korrektur.....

07.12.2014 16:21:26

robert

AW: Korrektur.....

07.12.2014 19:33:28

Peter

AW: Korrektur.....

07.12.2014 19:38:39

robert

AW: Korrektur.....

07.12.2014 19:45:32

Peter

nachgefragt....

07.12.2014 20:36:15

robert

AW: nachgefragt....

07.12.2014 22:00:56

Peter

AW: neues Problem

08.12.2014 08:29:24

Peter

AW: alle Fehler beseitigt Lösung gefunden

08.12.2014 11:44:58

Peter

Sub Drucken(Optional Vorschau As Boolean = False) Dim Blaetter(), j%, i%, wks j% = 0 Set wks = ActiveSheet For i = 0 To Me.ListBox_Tabellen.ListCount - 1 If Me.ListBox_Tabellen.Selected(i) = True Then j = j + 1 ReDim Preserve Blaetter(1 To j) Blaetter(j) = Me.ListBox_Tabellen.List(i, 0) End If Next Me.Hide If Me.OB_Druck_gruppiert = True Then If Vorschau = True Then ActiveWorkbook.Sheets(Blaetter).PrintPreview Else ActiveWorkbook.Sheets(Blaetter).PrintOut End If Else For i = LBound(Blaetter) To UBound(Blaetter) If Vorschau = True Then ActiveWorkbook.Sheets(Blaetter(i)).PrintPreview Else ActiveWorkbook.Sheets(Blaetter(i)).PrintOut End If Next End If wks.Select UF_Druckauswahl.sh 'eingefügt End Sub

Sub Tabellen_auswählen_Ausblenden() Dim wksWS As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each wksWS In ActiveWorkbook.Worksheets If wksWS.Name Like "*Kto.-VereinEhem. 2*" Then wksWS.Select Application.Run "Ausblenden" 'Application.Run "Einblenden" End If Next wksWS Application.DisplayAlerts = True UF_ListeJahrKonten.Show Application.ScreenUpdating = True End Sub

Sub Tabellen_auswählen_Einblenden() Dim wksWS As Worksheet Application.DisplayAlerts = False For Each wksWS In ActiveWorkbook.Worksheets If wksWS.Name Like "*Kto.-VereinEhem. 2*" Then wksWS.Select 'Application.Run "Ausblenden" Application.Run "Einblenden" End If Next wksWS Application.DisplayAlerts = True 'UF_ListeJahrKonten.Show End Sub

Sub Ausblenden() Dim Zelle As Range Dim ws As Worksheet Set ws = Application.ThisWorkbook.ActiveSheet For Each Zelle In ws.Range("a1:a1000").Cells If Zelle = "" Then ws.Rows(Zelle.Row).Hidden = True End If Next End Sub

Sub Einblenden() Dim Zelle As Range Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet For Each Zelle In ws.Range("a1:a1000").Cells If Zelle = "" Then Rows(Zelle.Row).Hidden = False End If Next End Sub

Hallo Robert,
ich habe noch eine andere Prozedur in welcher die Tabellen ausgewählt werden, die mit dem
ersten Namensbegriff der Tabellen zuzüglich der zwei aus den Jahreszahlen filtert. Beispiel:
für Konto 2014, Konto 2015 usw. "Konto 2". Damit werden alle Tabellen Konto 2 ausgewählt und
dann der Filter gemäss


Sub Ausblenden () verwendet. Anbei die Sub:

Sub Tabellen_auswählen_Ausblenden()
Dim wksWS As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each wksWS In ActiveWorkbook.Worksheets
If wksWS.Name Like "*Kto 2*" Then
wksWS.Select
Application.Run "Ausblenden"
'Application.Run "Einblenden"
End If
Next wksWS
Application.DisplayAlerts = True
UF_ListeJahrKonten.Show
Application.ScreenUpdating = True
End Sub


Ich hoffe Du verstehst jetzt den Ablauf. Jetzt wäre es für mich wichtig, wo ich dieses Makro beginne und wo mit gleichem Makro jedoch mit Application.Run "Einblenden" einsetze. Vorallem, wie das ganze beschleunigt werden kann.

Im übrigen stehen nacheinander von Zeile 4 bis max. 1000 Werte wie bereits schon ausgeführt in den Zeilen 1001-1002 die hierzu errechneten Summen. Es sollen also sowohl in der Voransicht als auch beim Ausdruck die Buchungen zusammen mit den Summen erscheinen, wenn jedoch gebucht wird werden die Summen wieder nach unten gelegt und über die erste freie Zeile von oben gesehen wird weitergebucht.

Ich hoffe die Angaben sind jetzt präzise genug.

Danke für Deine Mühe.

Einen schönen Abend oder je nachdem einen guten Morgen.

Gruss Peter

Sub FilterSetzen1() Dim wksWS As Worksheet Dim ws As Worksheet For Each wksWS In ActiveWorkbook.Worksheets If wksWS.Name Like "*Kto.-VereinEhem. 2*" Then wksWS.Select End If Next wksWS For Each ws In Worksheets 'ab hier scheitert die Prozedur If ws.AutoFilterMode Then If ws.FilterMode Then ws.ShowAllData Else ws.UsedRange.AutoFilter End If ws.UsedRange.AutoFilter Field:=1, Criteria1:="<>" Next 'ActiveSheet.PrintPreview End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread