---

Hallo,

Ich stosse wieder mal an meine Grenzen mit dem VBA programmieren in Excel.

Ich errechne mir, welche Spalten ich für den Druckbereich einstellen will.
Anschliessend möchte ich dies dem Druckbereich zuordnen. Leider aber
sind die errechneten Spalten Zahlen, und keine Buchstaben.

Ich möchte die Spalten spalte1 bis spalte2 als Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = ?????????????????

Wenn ich wie in der Excelhilfe mit dem Befehl
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
verfahre, und vorgängig die ensprechenden Zellen über einen Select
Befehl selektiere, kommt die Meldung, dass ich nur eine Zelle als
Druckbereich einstellen will.

Kann mir jemand helfen?

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Mike,

versuch doch mal folgendes:

Code:

---

xlBlatt.PageSetup.PrintArea = "$A$1:$AF$10"

---

Sprich: erste Zelle der ersten Spalte und letzte Zelle der letzten Spalte als Druckbereich angeben.
Hab das in einem vb.net - Progrämmchen, welches Excel als Reportgenerator benutzt!
Natürlich dann nicht so statisch wie hier, sondern eher dynamisch auf folgende Art & Weise:

Code:

---

xlBlatt.PageSetup.PrintArea = "$A$1:$AF$" & Seitenhöhe

---

HTH

Tobias

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Mike,

-----
Ich errechne mir, welche Spalten ich für den Druckbereich einstellen will.
Anschliessend möchte ich dies dem Druckbereich zuordnen. Leider aber
sind die errechneten Spalten Zahlen, und keine Buchstaben.

Ich möchte die Spalten spalte1 bis spalte2 als Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = ?????????????????
------

Code:

---

ActiveSheet.PageSetUp.PrintArea = Range(Columns(a), Columns(b)).Address

---

wobei a und b Deine Zahlen sind.
HTH

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Tobias, Soweit war ich auch schon, aber die Spalte habe ich nicht als Buchstabe, sondern als Zahl

@Rübe, hmmm, genau das hab ich gesucht. Das .Address am Ende ist noch wichtig.....

Gruss und Danke
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP