Private Sub lblTest_Change()
 
  Dim Blockname As String
  Dim i As Integer
 
  If Len(lblTest.Caption) > 0 Then
 
    Blockname = lblTest.Caption
 
    With cmbList
 
      For i = 0 To .ListCount - 1
        If .List(i) = Blockname Then
          .ListIndex = i
          Exit For
        End If
      Next i
 
    End With
 
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 26.09.11 um 13:25:37 editiert.