Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich

Druckbereich
13.08.2004 13:55:13
Henry
Hallo
Erst mal vorab an alle, die mir mit ihren Tips zur Seite stehen, ein großes Dankeschön
Mit meinem Problem "Druckbereich" bin ich schon etwas weitergekommen.
Folgende Formel möchte ich so ergänzen, daß wenn in Spalte s als Formelergebnis 1 steht, der Druckbereich bis zu dieser Zeile festgesetzt wird.

Sub druckbereich()
Dim ws As Worksheet
Dim lngbis As Long
Set ws = ActiveSheet
With ws
If Not .Range("b:b").Find("d", lookat:=xlWhole) Is Nothing Then
lngbis = .Range("b:b").Find("d", lookat:=xlWhole).Row
Else
MsgBox "Keine 5 gefunden!"
Exit Sub
End If
.PageSetup.PrintArea = "e5:p" & lngbis
End With
End Sub

Danke für Eure Mühe
Mfg
Heinrich

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variabler Druckbereich ohne VBA
Panicman
Hallo Heinrich,
wenn ich dich jetzt richtig verstanden habe, willst du den Druckbereich von E5 bis S Zeile, wo in als Formelergebnis eine 1 steht.
Makiere in der Tabelle einen Bereich und leg diesen als Druckbereich fest. Gehe dann unter Einfügen/Namen/Festlegen und wähle den Namen Druckbereich aus. Füge unter
bezieht sich auf folgende Formel ein: =INDIREKT(VERKETTEN("E5:S";VERGLEICH(1;Tabelle1!$S:$S;0)))
dann ist der Druckbereich immer von E5 bis in S die 1 kommt.
Gruß
Holger
AW: Variabler Druckbereich ohne VBA
15.08.2004 11:36:11
Heinrich
Komme mit dem Einfügen der Formel in den Code dieser Arbeitsmappe nicht klar.
Habe den code eingefügt unter(Arbeitsmappe,rechte Maustast, Code anzeigen).
Beim Drücken der Taste f5 erscheint dann das Fenster (Makroname)
Gruß
Heinrich
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige