UsedRange

Question

Hallo,

ich habe in einem Code u.a. folgende Befehlszeilen...
Range("A2:L" & Cells(Rows.Count, 6).End(xlUp).Row + 100).Clear
...

lZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

Der RowsCount ergibt z.B. 20 und ich lösche aber aus bestimmten Gründen (z.B. kann eine andere Spalte mehr Zeilen haben als die Spalte 6) noch 100 Zeilen mehr mit clear.
Der nächste Befehl lZeile ergibt dann aber leider nicht 20 sondern 120.
Wie kann ich erreichen, dass nach dem Löschen lZeile=20 ergibt?
Danke für jeden Tipp.
Gruß

Answer 1

sichern nicht vergessen.

Gruß Hajo

Answer 2

Hallo Hajo
Ich weiß nicht wie du das meinst. Das Problem ist doch dass nach dem
Löschen der Zellen der usedRange Befehl diese wieder mit einschließt.
Gruß

Answer 3

hi all ^^

vielleicht hilfreich

gruss nighty

Sub makro01()
'Letzte beschriebene zeile eines Worksheets
Cells(1, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Letzte beschriebene Spalte eines Worksheets
Cells(2, 1) = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
'Letzte beschriebene zeile einer Spalte,die 1 steht fuer Spalte A
Cells(3, 1) = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Letzte beschriebene Spalte einer Zeile,die 4 steht fuer zeile 4
Cells(4, 1) = ActiveSheet.Rows(4).End(xlToRight).Column
End Sub

Answer 4

den benutzen Bereich stellt Excel meist erst nach sichern richtig fest. Aber es kann ja sein das Du das besser weist.

Gruß Hajo

Answer 5

Hallo
danke euch, jetzt klappts!
Gruß Andreas