Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: stefan88 am August 16, 2013, 12:35:42 Nachmittag

Titel: Office 2007: Excel 2007 - Makro nur bis zur Öffnung des Druckmenüs
Beitrag von: stefan88 am August 16, 2013, 12:35:42 Nachmittag
Guten Tag zusammen,
ich bin neu hier, da ich gefühlt das halbe Internet nach einer Lösung durchsucht habe, und leider nicht fündig geworden bin.
Ich hoffe ihr könnt mir helfen:

Ich habe eine Excel-Datei mit 2 Arbeitsblättern.
Auf dem ersten Arbeitsblatt, dem Deckblatt, habe ich Buttons hinterlegt, die ich mit einem Makro verknüpfen mag.

Dieses Makro soll folgendes leisten:
In das andere Arbeitsblatt gehen
dort gewisse Spalten einblenden, die zuvor ausgeblendet sind
Das Druckmenü öffnen
(den Anwender, an den die Liste geht den Drucker auswählen lassen und auf OK drücken lassen)
Die Spalten wieder ausblenden
Auf das Deckblatt zurückkehren


Ich denke soweit würde ich das alles mit der Makroaufzeichnung hinkriegen denke ich, das Problem ist nur:
1. Wenn ich das Druckmenü geöffnet habe, komme ich nicht auf "Aufzeichnung beenden"
2. Wie kann ich quasi den Zwischenschritt machen, dass der User der die Datei erhält den Drucker auswählen muss und mit OK bestätigen muss? (bzw halt einfach, dass die nächsten Schritte geschehen sobald das Druckmenü geschlossen ist)

Ich danke herzlich!
Titel: Antw:Office 2007: Excel 2007 - Makro nur bis zur Öffnung des Druckmenüs
Beitrag von: Officer am August 16, 2013, 12:48:47 Nachmittag
Hallo Steffan88,

mit diesem Makro solltest Du Deine Anforderung lösen können.

Im Beispiel wird Spalte C ein- und wieder ausgeblendet.

Hier der Code

Code: Visual Basic
  1. Sub loesung()
  2.  
  3. '** Tabelle öffnen
  4. ThisWorkbook.Sheets(2).Select
  5.  
  6. '** Spalte C einblenden
  7. ThisWorkbook.Sheets(2).Columns("B:D").Select
  8. Columns("C").Hidden = False
  9.  
  10. '** Druckmenü öffnen
  11. Application.Dialogs(xlDialogPrint).Show
  12.  
  13. '** Spalte C ausblenden
  14. ThisWorkbook.Sheets(2).Columns("B:D").Select
  15. Columns("C").Hidden = True
  16.  
  17. '** Deckblatt auswählen
  18. ThisWorkbook.Sheets("Deckblatt").Select
  19.  
  20. End Sub
  21.  

Gruß

Officer
Titel: Antw:Office 2007: Excel 2007 - Makro nur bis zur Öffnung des Druckmenüs
Beitrag von: stefan88 am August 16, 2013, 14:00:11 Nachmittag
Du bist mein Held.

Danke! Funktioniet einwandfrei, habe deine Zeile
Application.Dialogs(xlDialogPrint).Show
eingefügt, und schwupp läufts.

Merci!