Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probleme mit Combobox füllen

Forumthread: Probleme mit Combobox füllen

Probleme mit Combobox füllen
13.02.2015 19:06:51
Helmut
Hallo Forum
Anbei habe ich einen Urlaubsplaner hochgeladen. Bei der Userform "Urlaub planen" habe ich einen Button Namens "Mitarbeiter anlegen" (ganz unten Links). Dieser öffnet wiederum eine Userform die eine Combobox enthält.(Mitarbeiter löschen)
In diese Combobox würde ich gerne sämtliche Mitarbeiter einfügen lassen um diese bei Bedarf aus der "Spalte B" zu löschen. In "Spalte D" ist zu jeden Mitarbeiter die Abteilung festgelegt. Auch diese gehört dann mit den Mitarbeiter heraus gelöscht.
Wer kann mir da helfen. Ich scheitere schon am befüllen der Combobox.
Besten Dank im voraus Helmut
https://www.herber.de/bbs/user/95753.xlsm

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit Combobox füllen
14.02.2015 14:43:05
Peter
Hallo,Helmut,
Du solltest alle Deine Module mit Option Explicit überschreiben, damit die Variablen-Deklaration verbindlich geprüft wird.
Die Mitarbeiter-Namen kannst Du z. B. so in die ComboBox einstellen: 
Private Sub UserForm_Initialize()
Dim lZeile  As Long
With ThisWorkbook.Worksheets("Urlaub 2015")
For lZeile = 6 To .Cells(.Rows.Count, 2).End(xlUp).Row
ComboBox1.AddItem .Range("B" & lZeile).Value
Next lZeile
End With
End Sub

Gruß Peter

Anzeige
AW: Nachtrag
14.02.2015 15:20:52
Peter
Hallo Helmut,
hier noch ein kleiner Nactrag, für das ComboBox1_Change Ereignis 
Option Explicit
Private Sub ComboBox1_Change()
' Achtung: das + 6 ist erforderlich, weil die ComboBox den ListIndex mit Null zu zählen
'          beginnt und die Mitarbeiter-Namen im Tabellenblatt ab Zeile 6 beginnen!
MsgBox "Der Mitarbeiter  """ & ComboBox1.Value & """  steht im Tabellenblatt ""Urlaub 2015""" _
& _
" in der Zeile " & ComboBox1.ListIndex + 6, _
64, "   Information für " & Application.UserName
End Sub

Gruß Peter

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige