Wenn Mappe vorhanden dann Chekbox setzen
27.05.2008 13:40:00
Jörg
nach dem ich hier https://www.herber.de/forum/archiv/980to984/t980754.htm#980754 eine Lösung
zum Import bekommen habe , wollte ich die Checkboxen in meinen Frame beim init
des Userforms entsprechend der vorhanden Mappe setzen.
Der Code klappt zwar soweit, nur werden nach der letzen gefundenen Mappe alle
Checkboxen auf True gesetzt, obwohl die Mappe nicht existiert.
Public Sub init_IBN()
Dim objWks As Worksheet
Dim blnFound As Boolean
Dim oBcb As Object
Application.ScreenUpdating = False
For Each oBcb In UserForm1.MultiPage1.Pages(0).Frame1.Controls
FBFile = oBcb.Caption
For Each objWks In Worksheets
If objWks.Name = FBFile Then blnFound = True: Exit For
Next
If blnFound Then 'wenn die Tabelle nicht vorhanden, dann weitermachen
oBcb.Value = True
else
oBcb.Value = false
End If
'End If
Next
Application.ScreenUpdating = True
End Sub
Welchen Gedanklichen Fehler mache ich denn hier?
Lg Jörg
Anzeige