Daten in ComboBox editieren

Forumthread: Daten in ComboBox editieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Daten in ComboBox editieren

04.01.2003 14:36:47

Corry

Hallo,
vielleicht kann mir einer bei folgendem Problem helfen...
Mit Excel hab ich einen Dienstplan angefertigt, in den nat. der Name des Mitarbeiters rein soll, diese Namen sollen aus einer ComboBox in die Tabelle eingefügt werden. Ein neuer Name sollte in die Box eingetragen und ein vorhandener gelöscht werden können. Die Namen sollten dann auf einem anderen Tabellenblatt untereinander stehen und beim Aufruf der Box von dort eingelesen werden bzw. geschrieben und gelöscht werden.
Ich bitte daher um Eure fachkundige Hilfe... Vielen Dank schonmal im Voraus.
Corry.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Daten in ComboBox editieren

04.01.2003 16:26:20

Philipp
Re: Daten in ComboBox editieren

04.01.2003 23:00:33

Corry

Re: Daten in ComboBox editieren

04.01.2003 16:26:20

Philipp

Hallo Corry

Vielleicht Hilft das dir weiter...

Private Sub UserForm_Initialize()
Dim col As New Collection
Dim x As Integer
Dim irow As Integer
Dim ende As Variant
irow = 6
ende = Range("C10000").End(xlUp).Row
Mainpaper.CB2_Firma.AddItem "Alle Firmen"
On Error Resume Next
Do Until irow = ende + 1
col.Add Cells(irow, 3), Cells(irow, 3)
If Err = 0 Then
Mainpaper.CB2_Firma.AddItem Cells(irow, 3)
Else
Err.Clear
End If
irow = irow + 1
Loop