If-Bedingung :-/

Forumthread: If-Bedingung :-/
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: If-Bedingung :-/

If-Bedingung :-/

27.08.2004 09:01:07

HeartBeat

Hallo,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: If-Bedingung :-/

WernerB.

AW: If-Bedingung :-/

WernerB.

Hallo Michael,
mal ungetestet:


Private Sub Sitzefeld_gotfocus()
Dim wks As Worksheet
Dim c As Range
Dim lngrow As Long
Dim z As Byte
Set wks = Worksheets(5)
For Each c In wks.Range("AI3:AI39")
If c.Value <> "" Then
z = z + 1
End If
Next c
If z <> Sitzefeld.ListCount Then Exit Sub
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

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!