Guten Morgen
ich habe dass Problem dass ich einen bestehenden Bereich - mittels VBA - neu definieren sollte. Der bereich erhält zusätzliche zwei columns, die anzahl der rows bleibt gleich.
zuerst habe ich die anzahl columns / rows vor veränderung ausgelesen:
'Anzahl Zeilen & Spalten ermitteln (vor Ergänzung der zusätzlichen Felder)
Set bereich = Range(Range("zz").Address)
no_of_rows = bereich.Rows.Count
no_of_columns = bereich.Columns.Count
'bestenden Bereich 'zz' selektieren und neu-definieren (zusätzliche zwei Spalten)
For Each bereichsname In ActiveWorkbook.Names
If bereichsname.Name = "zz" Then
bereichsname.RefersTo = Range(Cells(9, 1), Cells(no_of_rows, no_of_columns + 2))
End If
Next bereichsname
unerfreulicherweise bleibt die anzahl der columns wenn ich sie mir via msgBox anzeigen lasse gleich, was ich leider nicht verstehe.
weiss jemand rat?
Gruss,