Makro

[Maximus]

Hi,
habe ein kleines Suchmakro, welches grundsätzlich funktioniert.
Jedoch nach ca. 15-30 einträgen kommt es, wenn ich den Button "Sortieren" drücke, zu einer Fehlermeldung (siehe Bild).
Sobald es einmal zu dieser Fehlermeldung gekommen ist, kann ich ab diesem Zeipunkt den Butto "Sortieren"  gar nicht mehr verwenden. Selbst wenn ich die Excel-Datei schließe und wieder öffne und den Button "Sortieren" drücke kommt es zur Fehlermeldung.

Ich habe noch ein weiteres Makro, wodurch ein Userform geöffnet wird. Auch dieser Button läuft nach der Fehlermeldung auch nicht mehr richtig.
Alleine jedoch hatte ich mit diesem Button noch keine Fehlermeldung, somit müßte der Button in Ordnung sein.

Nach der Fehlermeldung ist trotz schließen und öffnen der Datei, diese Datei nicht mehr zu gebrauchen.

Kann mir einer helfen?

Gruss Markus


Suchmakro:

Code:

Option Explicit

Sub sortieren()
With Sheets("Tabelle1").Range("A2:K1100") 'Tabellenname und Bereich anpassen!
 .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
End With
End Sub

[Klaus-Dieter]

Hallo,

meiner Ansicht nach sortiert dein "Suchmakro". Zeig doch mal deine Datei.

[Igelbauer]

Hi
Das mit dem Bild ist etwas dürftig.
Könntest du mal eine Datei, anonymisiert, als Beispiel schicken ?
Ich geh mal schnell Mittag essen.
Bis später.

Gruss Igel

[Maximus]

Hallo,

meiner Ansicht nach sortiert dein "Suchmakro". Zeig doch mal deine Datei.

Hallo Klaus-Dieter,
das Makro sortiert!
Aber nach ein paar Einträgen kommt es zur Fehlermeldung und ab dann kann ich die ganze Datei nicht mehr gebrauchen.


Aber kennt wer das Problem und gibt es eventuell ein anderes Makro zum Sortieren, welches eventuell stabiler läuft?

Gruss

PS: Was auf dem Bild nicht zu erkennen ist, wenn die Fehlermeldung aufgetreten ist, ist der Button Sortieren gedrückt und der Cursor ist ein blauer Kreis der in Bewegung ist.

[Maximus]

Das ist die Datei mit Fehlermeldung
siehe Anhang

[Gast 123]

Hallo

ich bin mir nicht sicher ob ich den Fehler entdeckt habe, bei mir kam auch Fehlermeldung, bis ich den Code korrigiert habe:   s. "A2:K1000"  bei mir jetzt  "A2:K1099"  Obwohl der Unterschied minimal ist scheint Excel sich hier daran zu stören das der Range Bereich der "Intelligenten Tabelle" um genau 1 Zeile danben liegt!!  

Einen andern Fehler sehe ich nicht.  Der Effekt ist mir auch neu .....    (man lernt halt nie aus !!)

mfg  gast 123

Code:

With Sheets("Tabelle1").Range("A2:K1099") 'Tabellenname und Bereich anpassen!
 .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
End With

[RPP63]

Moin!
Ein ListObject ("intelligente" Tabelle) legt man NIEMALS auf Vorrat an.
Man bearbeitet sie mittels .DataBodyRange

Lesefutter:
https://www.thespreadsheetguru.com/blog/...cel-tables

Gruß Ralf

[Maximus]

Hallo

ich bin mir nicht sicher ob ich den Fehler entdeckt habe, bei mir kam auch Fehlermeldung, bis ich den Code korrigiert habe:   s. "A2:K1000"  bei mir jetzt  "A2:K1099"  Obwohl der Unterschied minimal ist scheint Excel sich hier daran zu stören das der Range Bereich der "Intelligenten Tabelle" um genau 1 Zeile danben liegt!!  

Einen andern Fehler sehe ich nicht.  Der Effekt ist mir auch neu .....    (man lernt halt nie aus !!)

mfg  gast 123

Code:

With Sheets("Tabelle1").Range("A2:K1099") 'Tabellenname und Bereich anpassen!
 .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
End With

danke Gast123, ich teste das mal.

[Igelbauer]

Ach Menno,
wieder mal einer schneller.
Mein Vorschlag wäre gewesen, die Tabelle bis Zeile 1100 zu erweitern, wenn schon bis 1100 sortiert werden soll.
Kommt aber aufs gleiche raus.

Gruss Igel

[Maximus]

Moin!
Ein ListObject ("intelligente" Tabelle) legt man NIEMALS auf Vorrat an.
Man bearbeitet sie mittels .DataBodyRange

Lesefutter:
https://www.thespreadsheetguru.com/blog/...cel-tables

Gruß Ralf

Hi Ralf,
und was bedeutet das im Bezug auf meine Datei?
Was müsste ich ändern, damit diese fehlerfrei läuft?

Gruss