Kriege es nicht hin. Wollte abfragen, ob Laufwerk und Ordner gleich sind wie in Zelle C3 dann weiter sonst fast alle Commandbuttons ausblenden ausser Comm 16 und 9.
Bei ChDir erhalte ich einen Fehler. In Zelle A3 steht C:\Prodat
Private Sub UserForm_Initialize()
Dim objCon As Control
If ChDir Worksheets("LagerHolz").Range("A3") Then
CommandButton16.Enabled = True
CommandButton9.Enabled = True
Exit Sub
Else
For Each objCon In Controls
If TypeName(objCon) = "CommandButton" Then
objCon.Enabled = False
End If
Next objCon
End If
Wäre Cool Eure Hilfe
Gruß
Wolfgang