Makro

[RPP63]

Wieviel des Links hast Du denn bisher durchgelesen und verstanden?

[Maximus]

Gast,

wenn ich dich richtig verstanden habe, sollte man die Suchfunktion immer so festlegen, dass immer die letzte Zeile bei der Suchfunktion ausgenommen wird!

Richtig?

PS: Denkst du, dass man bei einer normalen Tabelle, sprich keine intelligente Tabelle, dieses Problem nicht hat?

[Igelbauer]

Falsch
Ich hab bei dir mal runtergescrollt und gesehen, dass deine Tabelle nur bis Zeile 1099 geht.
Also solltest du bis maximal 1099 gehen oder die Tabelle erweitern.
Jedenfalls nichts in die Sortierung einbeziehen, was ausserhalb der Tabelle steht.

[RPP63]

oder die Tabelle erweitern.

Wird ja immer besser!
Tut euch doch selbst zunächst mal den Gefallen, ein Listobject zu verstehen und die entsprechenden Methoden KORREKT anzuwenden.
Steht alles im Link, wenn man ihn denn lesen will.
Nachdem sie VERKLEINERT ist (ungetestet):
With Tabelle1.Listobjects(1).DataBodyRange
   .Sort .Cells(1), Header:=xlNo
End With

Gruß Ralf

[Maximus]

Wird ja immer besser!
Tut euch doch selbst zunächst mal den Gefallen, ein Listobject zu verstehen und die entsprechenden Methoden KORREKT anzuwenden.
Steht alles im Link, wenn man ihn denn lesen will.
Nachdem sie VERKLEINERT ist (ungetestet):
With Tabelle1.Listobjects(1).DataBodyRange
   .Sort .Cells(1), Header:=xlNo
End With

Gruß Ralf

Hi Ralf,

so:

Code:

Option Explicit

Sub sortieren()
With Tabelle1.ListObjects(1).DataBodyRange
  .Sort .Cells(1), Header:=xlNo
End With
End Sub

hab ich es eben probiert, aber dann speichert er die Überschrift aus Spalte 1 auch mit.

gruss

[Igelbauer]

Hi Ralf,
hast ja vollkommen recht.
Ist aber ein bisschen so, als wenn sich der Formel 1-Mechaniker mit dem Entenschrauber über technische Details auseinandersetzt.
Ans Ziel kommen wir beide.

Gruss in den Pott

[Maximus]

Falsch
Ich hab bei dir mal runtergescrollt und gesehen, dass deine Tabelle nur bis Zeile 1099 geht.
Also solltest du bis maximal 1099 gehen oder die Tabelle erweitern.
Jedenfalls nichts in die Sortierung einbeziehen, was ausserhalb der Tabelle steht.

Hi Igelbauer,

die Datei, die ich hochgeladen habe, da hast du Recht, geht bis Zelle 1099.

Aber die original Datei geht bis 1100.

Erst nach der Fehlermeldung ist die Tabelle auf 1099 geändert.


gruss

[RPP63]

Code:

Sub sortieren()
With Tabelle1.ListObjects(1).Range
  .Sort .Cells(1), Header:=xlYes
End With
End Sub

[Maximus]

Code:

Sub sortieren()
With Tabelle1.ListObjects(1).Range
  .Sort .Cells(1), Header:=xlYes
End With
End Sub

Hallo Ralf,
danke funktioniert bei den ersten Versuchen!

Danke für den Link, aber da auf Englisch nicht wirklich für mich zu verstehen!

Gruss

[Rabe]

Hi,

in Deiner Userform 1 ist ein Fehler:
Das "Option Explicit" ist an der falschen Stelle (es muß ganz nach oben im Modul)!
Und in anderen Modulen fehlt es ganz.

In der Datenüberprüfung für Spalte A fehlt "Banken", und "Vermietungen" wird nicht mit "d" geschrieben.

Ich würde den Bereich M2:M10 als intelligente Tabelle formatieren mit der Überschrift "Auswahl" und dann den Bereich mit dem Namen "Gruppe" benennen,

Dann kannst Du die Datenüberprüfung definieren mit "= Gruppe" und bei Eintrag weiterer Gruppe-Begriffe passt es automatisch.

Arbeitsblatt mit dem Namen 'Tabelle1'
	M
1	Auswahl
2	E-Mails
3	Onlineshops
4	Lotto
5	Downloads
6	Cloudspeicher
7	Online-Videothek
8	Vermietungen
9	Foren
10	Allgemeines
11	Banken

Name	Bezug
Gruppe	=Tabelle2[Auswahl]

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
A2	Liste		=Gruppe

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

  Eintragungen Fehlermeldung - Rabe.xlsm (Größe: 33,99 KB / Downloads: 2)