Public Sub SpeichernCombobox(Liste As ComboBox, ByVal sFile As String)
 
Dim F As Integer
Dim i As Integer
Dim bExists As Boolean
 
F = FreeFile
Open sFile For Output As #F
With Form1.Combo1(0)
    For i = 0 To .ListCount - 1
        Print #F, .List(i) 'text
    Next i
    If .Text <> "" Then
    ' Prüfen ob bereits vorhanden
        bExists = False
        For i = 0 To .ListCount - 1
            If .List(i) = .Text Then
                bExists = True: Exit For
            End If
        Next i
        If Not bExists Then
            Print #F, .Text
        End If
    End If
End With
Close #F
End Sub
 
Public Sub LadenComboboxAggr(Liste As ComboBox, ByVal sFile As String)
  Dim F As Integer
  Dim Eintrag As String
 
  With Liste
    ' sicherheitshalber ListBox leeren
    .Clear
 
    ' nur, wenn Datei "sFile" existiert
    If Dir(sFile) <> "" Then
      F = FreeFile
      Open sFile For Input As #F
      While Not EOF(F)
        Line Input #F, Eintrag
        .AddItem Eintrag
      Wend
      Close #F
    Else
 
 
    End If
  End With
End Sub

Private Sub FuelleComboBoxAggr()
    Combo1(0).AddItem ""
    Combo1(0).AddItem "104"
    Combo1(0).AddItem "128"
    Combo1(0).AddItem "130"
end sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *