If-Bedingung :-/
27.08.2004 07:01:07
HeartBeat
ich brauche im unten stehenden Programm noch einen Test, ob der dieser Teil des Programms ausgeführt werden soll. Und das wäre nur der Fall, wenn Sitzefeld.Listcount "Der Anzahl der belegten Zellen in Worksheets(5).(A!3:39)" ist.
Hat einer da eine Idee wie ich das einbinden kann?
Danke
Michael
Private Sub Sitzefeld_gotfocus()
Dim wks As Worksheet
Set wks = Worksheets(5)
If Not Sitzefeld.ListCount = 0 Then
Do
Sitzefeld.RemoveItem 0
Loop Until Sitzefeld.ListCount = 0
End If
With wks
lngrow = 2
Do
If wks.Cells(lngrow, 1) <> "" Then
Sitzefeld.AddItem wks.Cells(lngrow, 1)
End If
lngrow = lngrow + 3
Loop Until wks.Cells(lngrow, 1) = ""
End With
End Sub
Anzeige