Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

(ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:10:38
Marc
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:12:06
Hajo_Zi
Hallo Marc,
mal sichern.

AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:28:54
Marc
Hallo Hajo,
habe Excel komplett geschlossen und neu gestartet, aber nix...
Gruß
Marc

AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:37:27
Hajo_Zi
Hallo Marc,
prüfe mal Strg+Ende
Lösche alles vom Ende Deiner Tabelle bis +1 Zeile von Strg+Ende.
Gruß Hajo

Anzeige
AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:45:06
Marc
Hallo Hajo,
das scheint der richtige Pfad zu sein. Obwohl ich Duplikate entfernt habe, springt er bei STRG+Ende auf die Zeile 894 (also knapp 900).
Wie mache ich das denn, dass er tatsächlich alles löscht? Habe das nun so gelöst:
Columns("C:G").Select
ActiveSheet.Range("$C$1:$G$" & msg2).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), _
Header:=xlYes
Danke und Gruß
Marc

Anzeige
AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:54:36
Hajo_Zi
Hallo Marc,
lösche das was ich geschrieben habe. 
Lösche alles vom Ende Deiner Tabelle bis +1 Zeile von Strg+Ende.

Falls Du das nicht möchtest, ein anderer Weg ist mir nicht bekannt.
Gruß Hajo

Anzeige
AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 11:59:39
Marc
Hallo Hajo,
wie finde ich denn das Ende meiner Tabelle raus also mittels Makro?
Bzw. wie lösche ich das Ganze schnell?
Lieben Gruß
Marc

AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 12:17:18
Hajo_Zi
das Ende Deiner Tabelle hast Du doch schon per VBA rausgefunden, oder stimmt der erste Beitrag nicht?
Gruß Hajo

Anzeige
AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 12:35:01
Marc
Ich habe es nun anders gelöst:
Sheets("Rechnung").Select
Application.ScreenUpdating = False
Range("c:c").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
damit sucht er mir alle einträge, die in der spalte c leer sind und löscht diese.
das klappt!
Danke!

Anzeige
AW: ActiveSheet.UsedRange.Rows.Count) zählt falsch
31.05.2013 12:36:34
Tino
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
Anzeige
;

Forumthreads zu verwandten Themen

ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
UsedRange.Rows.Count liefert falschen Wert
Tomsen

Hallo
abe da ein kleines Problem mit dem zählen der belegten Reihen. Die oben genannte Funktion liefert mir nicht den richtigen Wert der sollte 45 sein sondern 64458. Habe keine Schimmer wieso? irgendeine Formatierung ist in den Reihen nicht vorhanden.
02.11.2010 09:28:18
Thread-ID: 1184805
4 Beiträge
Anzeige
.usedrange.rows.count erhöht sich bei dickem Rahme
R.Przybilla

Hallo Excel-Kenner,
ich arbeite gern mit .usedrange.rows.count
nun kommt es vor, dass mitten im Makro das .usedrange um 1 erhöht wird, wenn ich am usedrange unten ein dicken Rahmen mache.
Ich suche weniger eine Lösung, sondern vielmehr den Grund dafür.
Hat jemand eine Ahnung?
21.05.2012 12:55:03
Thread-ID: 1264187
5 Beiträge
VBA Pivot Lastrow für Tabledestination
Malte

Hallo,
ich habe ein Tabellenblatt auf dem vier Pivottabellen dargestellt werden sollen. Zwei nebeneinander und zwei darunter.
Zuerst werden die oberen beiden Pivottabellen eingefügt per Makro. Da die erstellten Pivots in der länge variieren können, möchte ich für die zwei darunter kein...
27.11.2013 15:24:14
Thread-ID: 1340254
9 Beiträge
IngRow / IngLast Anwendung VBA
Anne

Guten Abend, ich benötige mal Unterstützung:
mir ist die Anwendung von IngRow und IngLast in VBA nicht klar. Kann mir das jemand kurz an diesem Beispiel erklären?
Ich habe diesen Code, der bewirkt, dass Duplikate in Spalte C erkannt werden und je nach dem in welcher Zeile das jeweils a...
18.02.2019 19:30:12
Thread-ID: 1676374
8 Beiträge
ActiveSheet.Names("Bereich1").RefersToRange.Delete
Andy

Hallo,

kann mir jemand etwas zu dem o.g Befehl sagen?
"ActiveSheet.Names("Bereich1").RefersToRange.Delete"
Wie finde ich heraus welcher Bereich als "Bereich1" definiert wurde?


Grüße

Andy
14.07.2003 09:13:36
Thread-ID: 280589
2 Beiträge
Probleme mit UsedRange.Rows.Count
ewald

Hallo zusammen,
ich markiere und anschließend lösche einen Bereich mit:
Range("A3:L" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Clear
soweit alles OK.
Mit den dem nachfolgenden Abschnitt aus dem Code markiere und formatiere
ich den gleichen Bereich erneut.
...
06.10.2004 16:44:55
Thread-ID: 496226
2 Beiträge
Zahl in ActiveSheet.Range("2:5") d. Var ersetzen
Peter

Guten Tag
Ich möchte in der letzten Codezeile eine Variable integrieren: Die Zahl 5 soll durch die Variable letzteZeile ersetzt werden. Ich dachte es müsse lauten:
ActiveSheet.Range("2:"& letzteZeile &""").Copy Destination:=ActiveCell
Doch das funktioniert nicht.
Wer ka...
14.06.2007 08:46:00
Thread-ID: 877837
4 Beiträge
Frage zu ".UsedRange.Rows.Count"
Sara

Guten Morgen allerseits,
ich habe eine kurze Frage , da ich nicht wirklich auf das Ergebnis komme.
Ich habe mir eine Schleife gebaut.
Public Function ZeileSuchen(ByVal toSearch As String) As Boolean
Nun habe ich zuvor Zahlen die als String deklariert sind von der SQL Datenbank i...
12.05.2020 08:27:10
Thread-ID: 1758382
4 Beiträge
VBA: Teilergebnis mit used Range
Andrea
Hallo zusammen,
in meiner Tabelle: https://www.herber.de/bbs/user/149882.xlsm
soll unter der letzten Zahl in Spalte E das Teilergebnis (Summe) der eingeblendeten Zellen ab Zeile 12 per Makro eingetragen werden.
Das Makro lautet wie folgt:
Sub Teilergebnis() Dim uR As Integer 'uR =...
17.12.2021 16:17:57
Thread-ID: 1862103
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Probleme mit ActiveSheet.UsedRange.Rows.Count in VBA lösen

Schritt-für-Schritt-Anleitung

  1. Verwende Ctrl + Ende: Überprüfe, ob die letzte verwendete Zeile korrekt ist. Manchmal zeigt Excel mehr Zeilen an, als tatsächlich Daten enthalten.
  2. Leere Zeilen löschen: Lösche leere Zeilen, die nach der Datenbearbeitung zurückbleiben. Du kannst dies tun, indem du die leeren Zellen in der gewünschten Spalte auswählst und sie dann löschst. 
    Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  3. Aktualisiere das UsedRange: Wenn du die UsedRange-Eigenschaft verwendest, stelle sicher, dass du die gesamte Tabelle oder das spezifische Arbeitsblatt angibst, um die korrekten Zeilen zu erhalten. 
    msg2 = ActiveSheet.UsedRange.Rows.Count
  4. Neues Makro zur Aktualisierung des UsedRange: Du kannst ein Makro erstellen, das das UsedRange neu definiert. 
    Sub UpdateUsedRange(mySH As Worksheet)
   Dim LRow As Long
   With mySH.UsedRange
       LRow = .Find("*", , xlValues, xlWhole, xlByRows, xlPrevious).Row
       If LRow < .Rows.Count Then .Range(.Rows(LRow + 1), .Rows(.Rows.Count)).Delete
   End With
End Sub

Häufige Fehler und Lösungen

  • Fehler: ActiveSheet.UsedRange.Rows.Count gibt die falsche Anzahl zurück.

    • Lösung: Überprüfe, ob du wirklich das korrekte Arbeitsblatt verwendest und alle leeren Zeilen entfernt wurden.

  • Fehler: Excel zählt mehr Zeilen als erwartet.

    • Lösung: Verwende Ctrl + Ende, um zum letzten verwendeten Feld zu navigieren und unnötige Daten zu entfernen.

Alternative Methoden

  • Direktes Löschen: Anstatt die Zeilen manuell zu löschen, kannst du ein Makro verwenden, um alle leeren Zeilen und Spalten zu entfernen. Dies sorgt dafür, dass UsedRange korrekt aktualisiert wird.
  • Verwendung von .UsedRange in Kombination mit spezifischen Bereichen: Du kannst die .UsedRange-Eigenschaft anpassen, um nur bestimmte Bereiche deiner Tabelle zu berücksichtigen.

Praktische Beispiele

Hier sind einige nützliche VBA-Snippets, um das UsedRange zu verwalten:

  1. Duplikate entfernen und Zeilen zählen:

    Sub RemoveDuplicatesAndCount()
   Dim msg2 As Long
   Sheets("Rechnung").Select
   ActiveSheet.Range("$C$1:$G$" & msg2).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes
   msg2 = ActiveSheet.UsedRange.Rows.Count
   MsgBox msg2
End Sub

  2. Ermitteln der letzten verwendeten Zeile:

    Sub LastUsedRow()
   Dim lastRow As Long
   lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   MsgBox "Letzte verwendete Zeile: " & lastRow
End Sub

Tipps für Profis

  • Optimierung der Performance: Deaktiviere die Bildschirmaktualisierung während des Löschens von Zeilen, um die Ausführung zu beschleunigen: 
    Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True
  • Verwende UsedRange für spezifische Bereiche: Wenn du nur einen Teil des Arbeitsblattes analysieren möchtest, definiere den Bereich klar.

FAQ: Häufige Fragen

1. Warum zählt ActiveSheet.UsedRange.Rows.Count nicht korrekt? Die UsedRange-Eigenschaft kann alte, nicht sichtbare Daten enthalten. Stelle sicher, dass du alle leeren Zeilen und nicht benötigten Daten entfernt hast.

2. Wie kann ich alle leeren Zeilen in einer Spalte löschen? Du kannst das folgende VBA-Skript verwenden:

Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

3. Gibt es eine Möglichkeit, das UsedRange manuell zurückzusetzen? Ja, du kannst ein Makro schreiben, das das UsedRange neu definiert, indem es leere Zeilen und Spalten entfernt.

4. Wie kann ich die Anzahl der verwendeten Zeilen in einer bestimmten Spalte ermitteln? Verwende den folgenden Code, um die letzte verwendete Zeile in einer bestimmten Spalte zu finden:

lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige