Microsoft Excel

Herbers Excel/VBA-Archiv

Abschluss

Betrifft: Abschluss von: Erik
Geschrieben am: 17.03.2016 18:21:38

Hallo Michael,

meine Frage stellte sich mal wieder nicht in die Offenheit, deshalb hier den Link dazu:

https://www.herber.de/forum/archiv/1480to1484/t1481275.htm

Gruß
Erik

  

Betrifft: AW: Abschluss von: Werner
Geschrieben am: 19.03.2016 11:18:27

Hallo Eric,

wenn ich dich richtig verstanden habe, dann so:

Sub Druck2Seiten()
Sheets("Tabelle1").Unprotect Password:="123"
    Rows("8:41").RowHeight = 40
    Sheets("Tabelle1").PrintPreview
    Rows("8:41").RowHeight = 18
Sheets("Tabelle1").Protect Password:="123"
End Sub
Und noch ein kleiner Hinweis: Wenn du einen laufenden Beitrag auf offen/ungelöst setzen willst, dann musst du oberhalb des Textfensters den Haken im Kästchen neben dem Feld für die Passworteingabe setzten, dann wird der Beitrag als offen markiert.

Gruß Werner


  

Betrifft: AW: Abschluss von: Erik
Geschrieben am: 19.03.2016 12:52:45

Hallo Werner,

Ja, dass war genau was ich brauchte!
Danke!

Gruß
Erik


  

Betrifft: AW: Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 19.03.2016 19:57:08