Nicht Vorhanden: MS Win Com. Con.-2 6.0
28.04.2022 14:52:27
Dom
in VBA habe ich ein Projekt erstellt. Die xlsm Datei beinhaltet eine Userform mit einem Button der einen Ordner auf dem Desktop erstellt und zwei DTPicker die eine Tabelle nach Datum filtern.
Wenn ich die Datei meinem Kollegen schicke und er die Userform startet bekommt er einen Fehler: Mehrere Objekte konnten nicht geladen werden, da sie auf diesem Computer nicht verfügbar sind. Unter Verweise ist bei ihm die Microsoft Windows Common Controls-2 6.0 (SP6) nicht vorhanden. Wie kann ich den Fehler beheben, sodass auch andere mein VBA Projekt nutzen können ?
Vielen Danke !
'Pfad für Ordner erstellen
Public Const Pfad As String = "C:\Users\pap1\Desktop\"
'Pfad für File Picker
Public Const PfadFilePicker As String = "C:\Users\pap1\Downloads"
Sub OrdnerErstellen()
On Error GoTo Fehlerverarbeitung
'MS Scripting Runtime Libary aktivieren
Dim FSO As New FileSystemObject
Dim strdatei As String
'Ordner anlegen
FSO.CreateFolder Pfad & "\Source Files" & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
Fehlerverarbeitung:
Select Case Err.Number
Case 58
MsgBox " Ordner ist bereits erstellt "
End Select
End Sub
Private Sub Filter_Zeitraum_Click()
ActiveSheet.Name = "Gesamt"
'Datum filter
Dim strDateFrom As String, strDateTo As String
strDateFrom = CStr(CLng(DTPicker1.Value))
strDateTo = CStr(CLng(DTPicker2.Value))
Call Worksheets("Gesamt").Rows(1).AutoFilter( _
Field:=8, _
Criteria1:=">=" & strDateFrom, _
Operator:=xlAnd, _
Criteria2:="Anzeige
