Re: Ergänzung
08.05.2003 12:09:52
Bernd K
Hallo Bernhard,danke für die Antwort, habe dein Vorschlag angewendet, wie ich ihn verstanden hatte. Nachfolgend der von mir eingefügte Code in die Schaltfläche.
Private Sub CommandButton5_Click()
Sheets("Darstellung").Select
Application.ScreenUpdating = False
Dim i As Integer
i = Range("D6").Value
If i = 60 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$68"
If i = 120 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$128"
If i = 180 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$188"
If i = 240 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$248"
Application.ScreenUpdating = True
End Sub
Nach klick auf die besagte Schaltfläche, öffnet sich zwar das entsprechende Arbeitsblatt, aber sonst passiert nichts. Schau die mal das von mir ausprobierte Makro an:
Sub ausblenden()
reihe = 6
spalte = 4
If Cells(reihe, spalte).Value = 60 Then ActiveSheet.Rows("69:260").Hidden = True
If Cells(reihe, spalte).Value =120 Then ActiveSheet.Rows("129:260").Hidden = True
If Cells(reihe, spalte).Value =180 Then ActiveSheet.Rows("189:260").Hidden = True
If Cells(reihe, spalte).Value =240 Then ActiveSheet.Rows("249:260").Hidden = True
End Sub
... es funktioniert zwar, aber wenn sich der Wert in der Zielzelle "D6" von z.B. 60 auf 180 ändert, dann blenden sich die vorher ausgeblendete Zeilen nicht wieder ein. Ein weiteres Problem dabei wäre für mich das einbinden des Makros in die Schaltfläche "Druckvorschau" bzw. "Gesamtausdruck" auf dem Arbeitsblatt "Daten".(siehe oben)
Zu erwähnen wäre noch das die besagte Zielzelle "D6" den Wert aus dem Arbeitsblatt "Daten" übergeben bekommt mit...(=Daten!G21*12)
Bis bald
Gruß Bernd