Hallo zusammen,
ich suche eine Lösung für folg. Aufgabe:
aus einer Tabelle mit etwa 25 Zeilen möchte ich jeweils die erste Zeile (=Spaltenüberschriften) und eine weitere Zeile drucken.
Die weitere Zeile für den Druck sollte per Abfragefenster ausgewählt werden können (z. B. : welche Zeile möchten Sie drucken? Per Eingabe oder Dropdown Zeile 1-25 auswählen).
Ausgewählte Zeile wird gedruckt.
Würde mich über eine Lösung sehr freuen.
LG
Hallo,
z.B. so:
Sub AusdruckenMitAbfrage()
Dim varAbfrage As Variant
Rows("2:25").Hidden = True
varAbfrage = InputBox("Zu druckende Zeilennummer zwischen 2 und 25 eingeben")
If IsNumeric(varAbfrage) Then
If varAbfrage >= 2 And varAbfrage <= 25 Then
Rows(varAbfrage).Hidden = False
ActiveSheet.PrintOut
Rows("2:25").Hidden = False
End If
End If
End Sub
Gruß Uwe
Hallo Uwe,
danke für Antwort.
Das Ausblenden der Zeilen, die nicht gedruckt werden sollen, ist eine gute Lösung.
Anschließend alles wieder einblenden ebenso. Eine Frage noch, lässt sich irgendwie die ursprüngliche Zeilenhöhe nach dem Einblenden
beibehalten?
Ansonsten aber vielen Dank.
LG Uli
Hallo Uli,
(15.12.2017, 14:22)UliG schrieb: [ -> ]Eine Frage noch, lässt sich irgendwie die ursprüngliche Zeilenhöhe nach dem Einblenden
beibehalten?
es tut mir leid, aber ich bekomme es bei mir nicht hin, dass sich die Zeilenhöhe verändert.
Gruß Uwe
Hallo Uwe,
die Zeilen haben eine unterschiedliche Höhe, nach dem Einblenden haben alle Zeilen die gleiche Höhe.
Aber egal, ich habe "autoFit" am Ende Deines scripts ergänzt und alles passt wieder.
Danke für Antwort, ich bin mit der Lösung sehr zufrieden.
Wünsche Dir alles Gute für die kommenden Tage
LG Uli
Hio,
dazu müßtest Du die Zeilenhöhen vor dem Ausblenden alle in einer Hilfsspalte mtischreiben und nach dem Wieder-Einblenden setzen.