Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortieranweisung in ComboBox

Sortieranweisung in ComboBox
21.01.2003 10:10:49
Michael
hallo,
ersuche wieder einmal um unterstützung. würde gerne mein formular "daten" vor ausgabe in der combobox1 alphabetisch sortieren.

mein derzeitiger stand:

Private Sub ComboBox1_Change()

Dim IRow As Long
Set wks = Worksheets("Daten")

IRow=ComboBox1.ListIndex+2
TextBox1.Text=wks.Cells(IRow,2)
TextBox2.Text=wks.Cells(IRow,5)
TextBox3.Text=wks.Cells(IRow,7)
TextBox4.Text=wks.Cells(IRow,9)
TextBox5.Text=wks.Cells(IRow,11)
....

End Sub

ersuche um einfügung der sortierroutine.

vielen dank.
lg. michael

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Sortieranweisung in ComboBox
21.01.2003 10:20:41
günther
hi, michael

füge nach set wks = worksheets("Daten") ein:

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select

gruss
günther

Re: Sortieranweisung in ComboBox
21.01.2003 10:47:34
Michael
hallo günther,
vielen dank für deine hilfe.
funktioniert leider nicht - wahrscheinlich mein fehler,
habe vergessen eine zeile anzugeben.
die erste zeile ist:

Dim wks As Worksheet

nach eingabe deiner programmzeilen wird offenbar mein startblatt, welches nicht das blatt der daten ist, sortiert.

hoffe ich hab mich einigermassen klar ausgedrückt.

lg. michael

Anzeige
Re: Sortieranweisung in ComboBox
21.01.2003 11:00:02
günther
hallo michael

probier mal das aus:

with wks
.activate
end with

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Anmerkung: Range("A2") ist die Spalte des Selektionskriteriums


gruss
günther

Re: Sortieranweisung in ComboBox
21.01.2003 11:27:13
Michael
hallo günther,

habe deine formel zeichengetreu eingegeben und 5mal kontrolliert.
es erscheint immer die fehlermeldung:

"fehler beim komilieren - syntaxfehler"

habe aber keine tippfehler entdeckt.

gruss michael

Re: Sortieranweisung in ComboBox
21.01.2003 11:50:24
guenther
hallo michael,

setze mach nach dem Beistrich nach xlGuess zuerst ein "blank" und dann underline"_" ansonsten:

einen hab ich noch, hier der code aus meinem makro (unterschied - ich habe daten (entspricht deinem wks) als object definiert:

Private Sub CommandButton2_Click()
Dim daten As Object

Set daten = Sheets("Daten")
With daten
.Activate
End With

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

... und weiter im text


oder probier "Selection.Sort ..." bis "... xlTopToButtom" in eine zeile zu schreiben

und noch einen drauf: sollt's nicht klappen, starte den makrorekorder, markiere sämtliche zellen und über den menüpinkt daten sortieren, dann hast du den code in einem Modul

hoffe, es klappt

gruss
günther


Anzeige
Re: Sortieranweisung in ComboBox
21.01.2003 12:57:41
Michael
hallo günther,
leider funkts noch immer nicht. alles wie in anleitung durchgeführt und versucht.
jetzt:

"die sort-methode des rangobjektes ist fehlerhaft"

gruß michael

Re: Sortieranweisung in ComboBox
21.01.2003 13:56:44
günther
hi, michael

kannst du mal ein bißchen mehr vom code posten und teile den tabellenaufbau mit (spalte a = inhalt, spalte b = inhalt etc)

ich werd's mal simulieren

danke und gruss
günther

Re: Sortieranweisung in ComboBox
21.01.2003 15:10:25
Michael
hallo günther,

habe nachfolgenden code eingegeben:

Sheets("Daten").Select
Cells.Select
On Error Resume Next 'habe so die Fehlermeldung abgefangen!
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToButtom
Range("A1").Select

mit der "On Error Resum Next" zeile habe ich die fehlermeldung abgefangen. nun funtionierts. warum weis ich auch nicht genau?

lg. michael

Anzeige
Re: Sortieranweisung in ComboBox
21.01.2003 15:38:29
Michael
hallo günther,

problem weiterhin, während der abfrage ist im hintergrund leider das arbeitsblatt "daten" und nicht wie vorgesehen das datenblatt "start" sichtbar.

lg. michael

Re: Sortieranweisung in ComboBox
21.01.2003 16:27:23
Michael
hallo günther,
habe das problem anders gelöst.
habe deine routine in eine andere routine eingefügt.
läuft wunderbar. hatte warscheinlich einen konflikt.
vielen vielen dank für deine bemühungen.
lg. michael
Re: Sortieranweisung in ComboBox
21.01.2003 16:34:21
günther
hallo michael,

freut mich, dass es geklappt hat

greetings from vienna

günther

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige