Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1508to1512
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
Inhaltsverzeichnis

auswahl beim Drucken

auswahl beim Drucken
11.08.2016 18:21:34
Michael
Hallo ihr Spezialisten
bräuchte nochmal eure hilfe habe diese Mappe von einem Studenten bei uns in der Firma bekommen der aber leider nicht mehr bei uns ist.
Und zwar handelt es sich um ein Programm wo ich Ordnerrücken drucken kann mein Problem ist nur ich will nicht immer alle 4 Ordnerrücken drucken.
Gibt es vielleicht eine möglichkeit in der UserForm auszuwählen wieviele ich drucken lassen möchte.zb.1 Ordnerrücken von 4
https://www.herber.de/bbs/user/107565.xlsm
Danke schonmal
Gruß Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auswahl beim Drucken
13.08.2016 10:59:47
Michael
Hallo Leute ,
Kann mir denn keiner helfen.
Gruß Michael
AW: auswahl beim Drucken
13.08.2016 20:20:24
MB12
Hi Michael,
das Tabellenblatt "Karten" fehlt, aber
Hier mal der Code der Userform1
Vielleicht bringt das jemanden auf Ideen....
Gruß, Margarete
Private Sub cmbdrucken_Click()
' Auswahl/aktivieren des Blattes das gedruckt werden soll
Sheets("Breit").Select ' Auswahl des Blattes
' Auswahlfenster Drucker
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$14"
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
' Auswahl/aktivieren des Blattes das wieder angezeigt werden soll
Sheets("Eingabefeld").Select ' Springen zurück zur Übersicht
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Löschen der Eingaben in Tabellenblatt1 "Eingabefeld"
With Worksheets(1)
.Range("C3,E3,G3,I3").Value = ClearContents
.Range("C4,E4,G4,I4").Value = ClearContents
.Range("C5,E5,G5,I5").Value = ClearContents
.Range("C6,E6,G6,I6").Value = ClearContents
.Range("C7,E7,G7,I7").Value = ClearContents
.Range("C8,E8,G8,I8").Value = ClearContents
.Range("C9,E9,G9,I9").Value = ClearContents
.Range("C10,E10,G10,I10").Value = ClearContents
End With
'Löschen der Eingaben in Tabelle UserForm1
Unload Me
'Starten/neues Hochladen der Eingabemaske UserForm1
UserForm1.Show
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Name_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster ComoBox1 in das Tabellenblatt 1 "Eingabefeld" C3
With Worksheets(1)
.Range("C3,E3,G3,I3").Value = UserForm1.ComboBox1_Name.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub

Private Sub Image1_Click()
End Sub

Private Sub TBOrdner_Nr_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBCharge in das Tabellenblatt 1 "Eingabefeld" C4
With Worksheets(1)
.Range("C4,E4,G4,I4").Value = UserForm1.TBOrdner_Nr.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub

Private Sub Register_1_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster tbAuftragsnummer in das Tabellenblatt 1 "Eingabefeld"  _
C5
'----------------------------------------------------------------------------------------------- _
With Worksheets(1)
.Range("C5,E5,G5,I5").Value = UserForm1.Register_1.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_3_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBLackierer in das Tabellenblatt 1 "Eingabefeld" C7
With Worksheets(1)
.Range("C7,E7,G7,I7").Value = UserForm1.Register_3.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_2_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster ComoBox2 in das Tabellenblatt 1 "Eingabefeld" C6
With Worksheets(1)
.Range("C6,E6,G6,I6").Value = UserForm1.Register_2.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_4_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBStueckzahl in das Tabellenblatt 1 "Eingabefeld" C8
With Worksheets(1)
.Range("C8,E8,G8,I8").Value = UserForm1.Register_4.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub

Private Sub Register_6_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select              ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi"      ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBStueckzahl in das Tabellenblatt 1 "Eingabefeld" C8
With Worksheets(1)
.Range("C9,E9,G9,I9").Value = UserForm1.Register_6.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select  ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True  ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub

Anzeige
AW: auswahl beim Drucken
16.08.2016 09:31:50
Michael
Hallo Margarete
Danke für deine Unterstützung aber leider kann mir da keiner helfen.
Gruß Michael

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige