Microsoft Excel

Herbers Excel/VBA-Archiv

If-Bedingung :-/

Betrifft: If-Bedingung :-/ von: HeartBeat
Geschrieben am: 27.08.2004 07:01:07

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

  


Betrifft: AW: If-Bedingung :-/ von: WernerB.
Geschrieben am: 27.08.2004 07:42:06

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 !