Herbers Excel-Forum - das Archiv

Seitenwechsel infügen wenn celle = montag

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Seitenwechsel infügen wenn celle = montag
von: Ralf

Geschrieben am: 23.04.2005 13:23:29
Hallo
Ich habe ein problem und zwar möcht ich einen seitenwechsel per Makro einfügen wenn celle a Montag ist. Ich habe schon in der recherge gesucht aber bekomme die richtige zusammensetzung nicht hin.
also wenn Z.B. a24 = Montag dann Seitenwechsel a24
MfG
Ralf
Bild

Betrifft: AW: Seitenwechsel infügen wenn celle = montag
von: Rene
Geschrieben am: 23.04.2005 13:29:04
Hi,
versuchs mal damit:
If Range("A1").Value = "Montag" Then
ActiveSheet.VPageBreaks.Add Before:=Columns("G:G")
End If

gruß
René
Bild

Betrifft: AW: Seitenwechsel infügen wenn celle = montag
von: Nils

Geschrieben am: 23.04.2005 13:32:46

Ich habe es so verstanden, dass du das Tabellenblatt wechseln möchtest.
Dann mit Button so...
Private Sub CommandButton1_Click()
ActiveSheet.Range("A24").Select
Tag = ActiveCell.Value
If Tag = "Montag" Then
Sheets("Tabelle2").Select
End If
End Sub

 Bild