Ich habe ein Arbeitsblatt mit verbunden Zellen in der obersten Zeile
Ich möchte nun den Druckbereich durch Doppelklick auf eine der verbundenen Zellen festlegen und zwar so, dass der Druckbereich die verbundene Zelle umfasst und alle Spalten unter diesem Bereich - bis zur Zeile 140.
Mein Ansatz ist sehr spärlich:
Auslesen der aktiven verbunden Zelle:
zelle = ActiveCell.cells.Address
z.B. $H$1
Anzahl der Spalten:
AnzahlSpalten = Range(zelle).MergeArea.Columns.Count
das wären zu diesem Feld 31 Spalten (ist aber nicht immer gleich)
Kann mir hier jemand helfen?
Vielen Dank
Micky