Office: Alphabetische Sortierung innerhalb Combobox :sos:

sobi · 10. Juli 2017

Guten Abend allerseits *Smilie

Ja ich habe bereits alte Themen und Beiträge durchforstet..
Leider bin ich nicht im Stand aus einem DinA4-Seiten langen Code meinen gesuchten Befehl zu finden und umzuwandeln..

Ich suche Hilfe um die Inhalte einer Combobox in alphabetischer Reihenfolge darzustellen ohne das dazugehörige Tabellenblatt zu verändern (Wegen bereits vorhandenen Verknüpfungen etc.).
Gibt es eine einfache Möglichkeit hierzu?
So sieht der Code der Momentanen Box aus:

Code:

Private Sub cboParentName_Change()

'Wenn in der Combobox etwas ausgewählt wird, läuft diese Prozedur ab

'Setzt rngCounterID wieder auf "Nothing"
Set rngCounterParent = Nothing

'Der ausgewählte Wert in der Combobox wird in die Variable strSrvID geschrieben
strParentName = cboParentName.Value

'Nun wird in der ersten Spalte der Tabelle nach diesem Wert gesucht und die Variable rngCounterID
'wird auf die strZelle gesetzt wo der Wert in der Tabelle steht
Set rngCounterParent = wksParentObjects.Columns(5).Find(strParentName)

'Wenn ein Wert gefunden und auf rngCounterID gesetzt wurde, wird ausgehend von dieser strZelle,
'das Feld mit entsprechenden Werten gefüllt
If Not rngCounterParent Is Nothing Then

'Offset( Zeile, Spalte) heißt gleiche Zeile, eine Spalte nach rechts
'cboParentName.Value = (strParentName, d).Value
txtSrvDesc.Value = rngCounterParent.Offset(0, 1)
txtMSL.Value = rngCounterParent.Offset(0, 3)
txtLocation.Value = rngCounterParent.Offset(0, 4)

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

cboParentName ist die Combobox die sortiert werden soll.
Wer mir hilft krigt ein Bier oder Stück Kuchen ausgegeben!
*boah

Liebe Grüße aus Frankfurt

:)

Hajo_Zi · 12. Juli 2017

Code:

Option Explicit ' Variablendefinition erforderlich
'**************************************************
'* H. Ziplies *
'* 18.04.04 *
'* erstellt von HajoZiplies@web.de *
'* Homeseite - Hajo's Excelseiten *
'**************************************************

Private Sub ComboBox2_Change()
If ComboBox2.Tag = "" Then Worksheets("Tabelle1").Range("G1") _
= ComboBox2.Value
End Sub

Private Sub UserForm_Activate()
Dim StWerte() As String
Dim Loletzte As Long
Dim LoI As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 5)), _
Cells(Rows.Count, 5).End(xlUp).Row, Rows.Count)
ReDim Preserve StWerte(1 To Loletzte)
' Array füllen
For LoI = 1 To Loletzte
StWerte(LoI) = Cells(LoI, 5)
Next LoI
' Array sortieren
' Lbound kleinster Wert,UBound Größter Wert
Sort_Z_A StWerte, LBound(StWerte), UBound(StWerte)
ComboBox1.AddItem StWerte(1)
For LoI = 2 To Loletzte
If StWerte(LoI) StWerte(LoI - 1) Then ComboBox1.AddItem StWerte(LoI)
Next LoI
ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Change()
ComboBox2.Tag = "füllen"
If ComboBox1.Value = "Haus" Then
ComboBox2.RowSource = ""
FRM_Haus.Show
ComboBox2.Value = ""
ElseIf ComboBox1.Value "" Then
ComboBox2.RowSource = ComboBox1.Value
ComboBox2.ListIndex = 0 ' ersten Wert anzeigen
End If
ComboBox2.Tag = ""
End Sub

Public Sub Sort_Z_A(SortArray, L, R)
' sortieren von Z bis A
' von GerdZ Herber.de
Dim I, J, x, y
I = L
J = R
x = SortArray((L + R) / 2)
While (I L)
J = J - 1
Wend
If (I
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RPP63 · 12. Juli 2017

Moin sobi!
Leider schreibst Du nicht, wo sich die ComboBox befindet.
Dein Code hat jedenfalls nichts mit dem Füllen der ComboBox zu tun.

Ich suche Hilfe um die Inhalte einer Combobox in alphabetischer Reihenfolge darzustellen ohne das dazugehörige Tabellenblatt zu verändern
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich benutze für so etwas (anders als Hajo) eingebaute Excel-Methoden.
Hält den Code kompakt und ist auch für einen Newbie eher nachvollziehbar.

Deine Namen in Tabelle2 ab A2 (A1: Überschrift)

Ich kopiere die Werte temporär in Spalte XFD

Dort werden sie sortiert

der sortierte Bereich wird per .List in die ComboBox geschrieben

zum Schluss wird der Hilfsbereich gelöscht.

Sub FillComboBox1()
Application.ScreenUpdating = False
With Tabelle2
.Range(.Range("A2"), .Range("A2").End(xlDown)).Copy
.Range("XFD1").PasteSpecial xlPasteValues
With .Range(.Range("XFD1"), .Range("XFD1").End(xlDown))
.Sort .Cells(1)
Tabelle2.ComboBox1.List = .Value
.Delete
End With
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

sobi · 13. Juli 2017

Servus Hajo, Servus Ralf,

Danke für eure schnellen antworten!
@Hajo es ist leider schwierig für mich deinen Code trotz Kommentaren nachzuvollziehen, ich sehe es läuft über ein Array. Das Habe ich bisher nie benutzt :/

@Ralf: würde es dir helfen mein ganzes Programm hochzuladen? Ich habe lediglich angst bei deiner Lösung dass bisherige Formatierungen und Verknüpfungen durch die Neusortierung verloren gehen.. Probiere es jetzt mal aus!

Liebe Grüße
sobi

RPP63 · 13. Juli 2017

Ich habe lediglich angst bei deiner Lösung dass bisherige Formatierungen und Verknüpfungen durch die Neusortierung verloren gehen..
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die kann ich Dir nehmen, aber sowas von

Es sei denn Du hättest schon etwas in Spalte 16.384 aka "XFD" stehen. *cool.gif*

Probiere es jetzt mal aus!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gute Idee *wink.gif*

Gruß Ralf

sobi · 13. Juli 2017

Gude Ralf,

Also ich habe es so versucht: Code:

Private Sub cboParentName_Change()

Application.ScreenUpdating = False
With wksParentObjects
.Range(.Range("E3"), .Range("E3").End(xlDown)).Copy
.Range("XFD1").PasteSpecial xlPasteValues
With .Range(.Range("XFD1"), .Range("XFD1").End(xlDown))
.Sort .Cells(1)
wksParentObjects.cboParentName.List = .Value
.Delete
End With
End With

'Wenn in der Combobox etwas ausgewählt wird, läuft diese Prozedur ab

'Setzt rngCounterID wieder auf "Nothing"
Set rngCounterParent = Nothing

'Der ausgewählte Wert in der Combobox wird in die Variable strSrvID geschrieben
strParentName = cboParentName.Value

'Nun wird in der ersten Spalte der Tabelle nach diesem Wert gesucht und die Variable rngCounterID
'wird auf die strZelle gesetzt wo der Wert in der Tabelle steht
Set rngCounterParent = wksParentObjects.Columns(5).Find(strParentName)

'Wenn ein Wert gefunden und auf rngCounterID gesetzt wurde, wird ausgehend von dieser strZelle,
'das Feld mit entsprechenden Werten gefüllt
If Not rngCounterParent Is Nothing Then

'Offset( Zeile, Spalte) heißt gleiche Zeile, eine Spalte nach rechts
'cboParentName.Value = (strParentName, d).Value
txtSrvDesc.Value = rngCounterParent.Offset(0, 1)
txtMSL.Value = rngCounterParent.Offset(0, 3)
txtLocation.Value = rngCounterParent.Offset(0, 4)

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

leider Zeigt er mir einen Fehler.. vielleicht kannst du ja mal drüber schauen? gerne komme ich für den aufwand auf!

ich hänge die Datei mal an. Es geht um das Formular frmSystemauswahl, und dort die combobox oben links (cboParentName), die die Parent Namen aus dem Tabellenblatt ParentObjects sortiert ziehen soll (ab E3 runter).

Danke für alles *Smilie

Office: Alphabetische Sortierung innerhalb Combobox :sos:

Alphabetische Sortierung innerhalb Combobox :sos:

Alphabetische Sortierung innerhalb Combobox :sos:

Alphabetische Sortierung innerhalb Combobox :sos:

Alphabetische Sortierung innerhalb Combobox :sos: - Similar Threads - Alphabetische Sortierung Combobox

Zum ersten alphabetischen Wert springen

Neue Namen - alphabetisch sortieren - zugehörige Zellen auf anderen Datenblätter ebenfalls sortieren

Alphabetisches Sortieren einer Liste in Outlook

Alphabetisches Sortieren einer Liste in Word

Teamsliste unter iOS alphabetisch sortieren

Mitglieder in einem Team alphabetisch sortiert anzeigen lassen

alphabetische Sortierung ausschalten mit vba