Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Excel Alphabetisch sortierte Combobox zugehörige Zelle in Userform2 öffnen |
02.05.2015 00:11:20 |
Dirk |
|
|
|
02.05.2015 10:47:55 |
Gast87716 |
|
|
|
03.05.2015 16:32:47 |
Gast73873 |
|
|
Von:
Dirk |
Datum:
02.05.2015 00:11:20 |
Views:
6983 |
Rating:
|
Antwort:
|
Thema:
VBA Excel Alphabetisch sortierte Combobox zugehörige Zelle in Userform2 öffnen |
Hallo
ich mache eine Abfrage von Kundennummern oder Namen je nach dem was ich weiß suche ich nach der Kundennummer oder dem Namen.
Wenn ich nach der Nummer suche dann dücke ich den CommandButton und die dazugehörige Zeile wird in UserForm2 eingelesen das klappt wunderbar.
Wenn ich nach Namen suche diese sind ja willkürlich und nicht wie die Kundennummern im Excel sortiert mache ich eine Abfrage in eine Combobox und Sortiere diese.
-
Wie kann ich dann diese ausgewähle Zeile (Namen) mit einem CommandButton in UserForm2 geladenwerden?
-
Die Kundennummern sind fortlaufend und und bei gelöschten Kunden sind die Namen leer diese werden nach dem Sortieren in der ComboBox als oberste angezeigt, wie kann ich diese ausblenden?
DANKE im vorraus
Habe dazu folgen VBA angelegt:
Private Sub UserForm_Initialize()
'
' Combobox1 mit Teinehmernummer füllen um mit ausgewählter Teilnehmernummer Userform2 öffnen - CommandButton1
'
ComboBox1.RowSource = "A2:A" & Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row
ComboBox1.ListIndex = 0
'
' Combobox2 mit Namen aus Spalte E füllen um mit ausgewählter Teilnehmernummer Userform2 öffnen - CommandButton2
'
For zeile = 2 To [A65536].End(xlUp).Row
Me.ComboBox2.AddItem Cells(zeile, 5)
Next
'
' Combobox sortieren :
'
For lIndxA = 0 To Me.ComboBox2.ListCount - 1
For lIndxI = 0 To lIndxA - 1
If Me.ComboBox2.List(lIndxI) > Me.ComboBox2.List(lIndxA) Then
sTemp = Me.ComboBox2.List(lIndxI)
Me.ComboBox2.List(lIndxI) = Me.ComboBox2.List(lIndxA)
Me.ComboBox2.List(lIndxA) = sTemp
End If
Next lIndxI
Next lIndxA
End Sub
Private Sub CommandButton1_Click()
'
' "OK" Button mit ausgewählter Teilnehmernummer - Userform2 öffnen (diese Zeile in Userform2 einlesen)
'
If ComboBox1.ListIndex >= 0 Then
zeile = ComboBox1.ListIndex + 2
Unload Me
UserForm2.Show
End If
End Sub
Private Sub CommandButton2_Click()
'
' "Abrechen" Button
'
Unload Me
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Excel Alphabetisch sortierte Combobox zugehörige Zelle in Userform2 öffnen |
02.05.2015 00:11:20 |
Dirk |
|
|
|
02.05.2015 10:47:55 |
Gast87716 |
|
|
|
03.05.2015 16:32:47 |
Gast73873 |
|
|