Drucken von einzelnen Zeilen per Auswahl

[UliG]

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

[Kuwer]

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

[UliG]

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

[Kuwer]

Hallo Uli,

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

[UliG]

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

[Rabe]

Hio,

dazu müßtest Du die Zeilenhöhen vor dem Ausblenden alle in einer Hilfsspalte mtischreiben und nach dem Wieder-Einblenden setzen.