Ergebnis SVerweis drucken

Bild

Betrifft: Ergebnis SVerweis drucken
von: HeinzP
Geschrieben am: 11.08.2015 09:16:01

Hallo Excelfans.
Ich hab einen Sverweis erstellt. Dieser gibt dann das ergebnis in einer Tabelle aus.
Nun hab ich aber 40 Nummern die jeweils ein Ergebnis liefern welche ich jeweils ausdrucken möchte. Das hab ich auch geschafft, nur denke ich mir es geht besser. Ob Formel oder VBA wäre mir egal .Mein Makro sieht so aus.
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.FormulaR1C1 = "2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
...und so weiter. bitte um eure Hilfe

Bild

Betrifft: AW: Ergebnis SVerweis drucken
von: Claus Ohlendorf
Geschrieben am: 11.08.2015 09:29:33
Guten Morgen HeinzP,
handelt es sich immer um die gleiche Zelle, die Du 40 mal aufrufst oder sind es 40 Zellen in einer Spalte in aufeinanderfolgenden Zeilen?
Und willst Du für jedes Ergebnis einen Print haben, also eine komplette Seite mit einer Zahl?
Bei aufeinander folgenden Zeilen könntest Du folgendes verwenden:
For z= Anfangszeile to Endzeile
cells(z,Spaltennummer mit Deinen Inhalten).select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
next z
Gruss
Claus

Bild

Betrifft: AW: Ergebnis SVerweis drucken
von: HeinzP
Geschrieben am: 11.08.2015 09:32:33
Hallo
Ja es ist immer die Zelle "AB3". Dort wird eine Zahl hineingeschrieben. Dadurch wird der SVerweis erstellt. Dann wird die Zahl 2 hineingeschrieben und so weiter.
Gruß
Heinz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ergebnis SVerweis drucken"