Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro, dass automatisch aus DropDown Liste wählt

Makro, dass automatisch aus DropDown Liste wählt
21.09.2006 14:47:33
Cora
Hallo Leute,
unter https://www.herber.de/bbs/user/36900.xls
findet Ihr meine Beispieldatei.
Ich habe eine Drop-Down Liste, mit der zukünftig der Benutzer die jeweilige Firma auswählen kann, die er sehen will. Das klappt auch alles 1a. Ich möchte jetzt aber gern einen Button der folgendes für den Benutzer erledigt:
Bei Klick wählt ein Makro automatisch jede Firma einmal aus (insgesamt 5) und druckt jedes Blatt. Der Nutzer muss also nicht mehr auswählen/drucken, auswählen/drucken, sondern kann das mit einem Klick erledigen.
Es wäre sooooo toll, wenn Ihr mir helfen könntet.
Ich grüße Euch lieb,
Cora

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro, dass automatisch aus DropDown Liste wäh
21.09.2006 20:49:58
Josef
Hallo Cora!
Kopiere diesen Code in ein allgemeines Modul und weise in einer Schaltefläche zu.
Sub Print_All()
Dim objCmbo As Object
Dim intC As Integer, intIndex As Integer

On Error GoTo ErrExit
Application.ScreenUpdating = False

Set objCmbo = Sheets("WE Umsatz Sommer").Shapes("Dropdown_Umsatz_S")

intIndex = objCmbo.DrawingObject.ListIndex

For intC = 1 To objCmbo.DrawingObject.ListCount
  objCmbo.DrawingObject.ListIndex = intC
  objCmbo.Parent.PrintOut
Next

objCmbo.DrawingObject.ListIndex = intIndex

ErrExit:

Set objCmbo = Nothing
Application.ScreenUpdating = True

End Sub


Gruß Sepp

Anzeige
AW: Makro, dass automatisch aus DropDown Liste wäh
22.09.2006 08:58:29
Cora
Hallo Sepp,
Du bist ein Genie! Ich danke Dir ganz herzlich. Es funktioniert ganz hervorragend. Mein Chef wird mich lieben. ;-) (bzw. eher Dich)
Liebe Grüße, Cora

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige