ersteZeile = .Cells.Find(Quellueberschrift, LookAt:=xlWhole).Row
erstespalte = .Rows(ersteZeile).Find(Quellueberschrift, LookAt:=xlWhole).Column
'###################################################################
Ich möchte gern zusagen Rows(10) und Columns("B:B") erst suchen und dann als variable ausdrücken.
kann nochmal jemand helfen?
liebe grüsse thomas
.PrintTitleRows = ActiveSheet.Rows(10).Address
.PrintTitleColumns = Columns("B:B").Address