Kombobox macht was sie will
26.08.2004 13:53:17
HeartBeat
und mal macht se was Sie nicht soll. Nämlich ein komisches Menü:
Die Datei https://www.herber.de/bbs/user/10150.jpg wurde aus Datenschutzgründen gelöscht
Private Sub Fußkreuzfeld_gotfocus()
Dim wks As Worksheet
Set wks = Worksheets(4)
If Not Fußkreuzfeld.ListCount = 0 Then
Do
Fußkreuzfeld.RemoveItem 0
Loop Until Fußkreuzfeld.ListCount = 0
End If
With wks
lngrow = 3
Do
If wks.Cells(lngrow, 1) <> "" Then
Fußkreuzfeld.AddItem wks.Cells(lngrow, 1)
End If
lngrow = lngrow + 1
Loop Until wks.Cells(lngrow, 1) = ""
End With
End Sub
Private Sub Fußkreuzfeld_Change()
Dim rngFind As Range
Dim VarVal As Variant
VarVal = ActiveSheet.Fußkreuzfeld.Value
Set rngFind = Worksheets(4).Columns(1).Find(VarVal)
If Not rngFind Is Nothing Then
rngFind.Offset(0, 1) = "X"
lngrow = 3
Do
If lngrow <> rngFind.Row Then
Worksheets(4).Cells(lngrow, 2) = ""
End If
lngrow = lngrow + 1
Loop Until Worksheets(4).Cells(lngrow, 1) = ""
End If
End Sub