(ActiveSheet.UsedRange.Rows.Count) zählt falsch

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet.UsedRange.Rows.Count)
die Anzahl der Zeilen neu berechnen.
Nun das Problem:
Er zählt nach wie vor die Originalanzahl der Zeilen, die so auch in einem Tabellenblatt so stehen. Selbst wenn ich das Datenblatt erneut selectiere und den Wert auf Null setze, schmeisst er mir die Originalanzahl raus (nämlich knappe 900 anstatt 25...)
msg2 = 0
MsgBox msg2 'hier schmeisst er noch 0 aus
Sheets("Rechnung").Select ' hier stehen definitiv nur noch 25 Zeilen drin es waren mal knappe 900
msg2 = (ActiveSheet.UsedRange.Rows.Count)
MsgBox msg2 ' nun hat er wieder die knappen 900...
Was kann ich noch probieren?
Lieben Gruß
Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
teste mal diesen Code um den Usedrange neu festzulegen.

Sub Test()
    UsedRange_Neu Sheets("Tabelle1") 'Tabelle anpassen 
End Sub



Sub UsedRange_Neu(mySH As Worksheet)
Dim LRow As Long, LCol As Long
Dim A As Long
 
With mySH.UsedRange
  On Error Resume Next
       'Finde Zeile 
       LRow = .Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False, False).Row
       LRow = Application.Max(LRow, .Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Row)
       LRow = LRow + 1
       With .Parent
           If LRow < .Rows.Count Then .Range(.Rows(LRow), .Rows(.Rows.Count)).Delete
       End With
End With
With mySH.UsedRange
       'Finde Spalte 
       For A = .Columns(.Columns.Count).Column To .Columns(1).Column Step -1
             LCol = mySH.Columns(A).Find("*", , xlValues, xlWhole, xlByRows, xlPrevious).Column
             LCol = Application.Max(LCol, mySH.Columns(A).Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Column)
             If LCol > 1 Then Exit For
       Next A
       LCol = LCol + 1
       With .Parent
           If LCol < .Columns.Count Then .Range(.Columns(LCol), .Columns(.Columns.Count)).Delete
       End With
End With
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

(ActiveSheet.UsedRange.Rows.Count) zählt falsch

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

(ActiveSheet.UsedRange.Rows.Count) zählt falsch

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread