Office: (Office 2007) DropDown komplett drucken

Hallo Office Forum und Excel Spezialisten,

nach dem ich jetzt zwei Stunden Google durchsucht habe und keine Lösung gefunden habe, stelle ich meine Frage hier:

Ich habe eine Excel-Tabelle mit einem DropDown Menü. Dahinter stehen etwa 250 Ergebnisse einer Befragung.

Da bei dieser Befragung viele offenen Fragen dabei waren und der Umfang der Antworten sehr stark differiert, muss ich bei jedem einzelnen die Zeilenhöhe anpassen. Dies geht bei einem ja noch ganz fix aber bei 250 ist das viel Arbeit.

Gibt es eine Möglichkeit, das DropDown Menü automatisch durchzugehen, die Zeilenhöhe anzupassen und das Ganze dann auch noch auszudrucken?

Vielen Dank im Voraus.

Viele Grüße

Frederik

:)

 

Moi, Frederik,

per VBA arbeiten, die sichtbaren Zeilen "abklappern" und für jede Spalte in der Zeile feststellen, welches die "optimale" Höhe ist, und diese dann für die Zeile festlegen.

Für das Drucken könnte der Bereich der Liste analog zu Werte in Tabellenblatt zählen wenn Name in Spalte C (oder von dem Ort, wo die Daten eingelesen werden) verwendet werden, der Ausdruck kann dann durch den Befehl ActiveSheet.PrintOut veranlasst werden.

 

Vielen Dank schon mal!

Vielleicht hätte ich erwähnen sollen, dass sich mein Können hinsichtlich VBA/Makros auf das anpassen dieser beschränkt.

Wie durchlaufe ich denn per Makro das DropDown Menü?

Danke!

 

Moin, Fred1971,

erklär mir doch bitte "für einen Dummen", was Du unter DropDown verstehst: ein Feld nach Daten/Gültigkeit (das kann aber auch einen Datenbereich haben, aus dem die Daten kommen - und den könnte man dann statt des DropDowns auslesen) oder ein Kombinationsfeld (wenn ja: ActiveX oder Formular)? Alle diese Felder kann man als DropDown bezeichnen (ich hoffe doch, ich habe jetzt keine vergessen *wink.gif*).

 

Da bin ich ja wohl eher der "Dumme" der sich nicht richtig ausdrücken kann. Also mit DropDown Menü meine ich, dass rechts neben einer Zelle einer kleiner Pfeil zu sehen ist. Wenn man auf diesen drückt, erscheint eine Liste mit Namen von den befragten Unternehmen. Wenn ich auf einen Namen klicke, gibt mir Excel via sverweis alle zu diesem Namen gehörigen Daten in den Zeilen darunter aus. Habe dieses "DropDown" Feld nicht selber gemacht, daher kenne ich auch nicht die genaue Bezeichnung. Sorry.

Kannst Du Dir denn ungefähr vorstellen, wovon ich rede?

Danke schon mal.

 

Ach ja. Noch was. :-)

Ich möchte die Sachen als PDF (FreePDF) ausdrucken. Gibt es die Möglichkeit, die PDF-Dateien so zu benennen, wie es im DropDown steht?

Vielen Dank

 

Hat sich erledigt. Mache es manuell. Danke trotzdem...

 

Moin, Fred1971,

Danke für die Information, mein Treffen hat sich doch etwas länger hingezogen als ich erwartet hatte...

 

Bin immer noch dran. :-(
Gibt es eine Möglcihkeit per Makro immer eine Zeile weiter zu schalten?
Habe ein Makro geschrieben, dass die Datei unter neuem Namen speichert und dann druckt. Und vorher die Zeilenhöhe anpasst:

Sub Makro10()
'
' Makro10 Makro
'
'
Cells.Select
Cells.EntireRow.AutoFit
ActiveWorkbook.SaveAs Range("B2").Value & Range("C4").Value & ".xls"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

End Sub

Muss jetzt aber jedesmal manuell per DropDown den nächsten Befragten anklicken. Wäre toll wenn das automatisiert ablaufen würde...

Danke

 

Moin, Fred1971,

füge den Code in ein Modul, platziere den Cursor über dem Dropdown und starte den Code - bei Daten/Gültigkleit wird dann der Bereich oder die Einträge im Direktfenster (STRG+G) der VBE ausgegeben:

Code:

Und darauf kann man dann doch für die Schleife des Durchlaufens aufbauen, oder *wink.gif*

 

Sorry, aber ich bin wohl zu blöd um das zu kombinieren.
Vielen Dank. Werde es einfach per Hand weitermachen. Habe schon zu viele Stunden heute an der automatisierten Lösung gebastelt. Nichts für ungut. Hoffe Du hast nicht allzu lang an dem Code gebastelt.

Schönes WE

 

Moin, Fred1971,

vielleicht solltest Du einen Augenblick Abstand von den Bemühungen um eine Lösung nehmen - ein kurzer Spaziergang mit entsprechebder Sauerstoffzufuhr (oder ein Wochenende ohne Beschäftigung mit dem Problem) wirken manchmal Wunder - ich spreche da aus Erfahrung.

Wenn Du vielleicht aufgibst, was denn nun als Ergebnis im Direktfenster steht (wenn dort etwas steht), denke ich schon, dass wir eventuell mit einem Schubser die Lösung beschleunigen könnten.

Sieht irgendwie zur Zeit nicht so aus, als wenn ich etwas Anderes machen würde als "Code basteln", oder? *grins Besser ist es freilich, wenn das Ergebnis zur Arbeitserleichterung beiträgt.