Implicit ... As Variant
09.09.2014 11:30:57
MaddyHa
Ich habe mal wieder ein kleines Problem und hoffe hier ist ein kluger Kopf, der mir helfen kann!
Ich baue derzeit ein kleines Tool (nach) und stecke gerade an einer Stelle fest:
Es geht darum, bei einer bestimmten Auswahl aus der ComboBox und der Listbox eine Datei zu finden und lokal zu speichern (es sind mehrere Dateien in einem Ordner).
Bei meiner Beispieldatei ist "Ordner" mit "Implicit Ordner As Variant" deklariert, bei mir jedoch nur mit "Ordner As Variant". Kann es sein das ich deshalb nicht zu einem Ergebnis komme, es kommt immer die Meldung die Variable sei nicht richtig deklariert.
Falls ja wie wäre es möglich diese Variable "Implicit" zu machen? Finde leider im Internet nicht so richtig was..
Hier ist der Code dazu:
Private Sub CommandButton1_Click()
If ComboBox1.Text = "Gruppe 1" And ListBox1.Text = "ABC" Then
Ordner = Application.GetSaveAsFilename(Format(Date, "yyyy-mm-dd") & "" & ComboBox1.Text & "" & _
_
ListBox1.Text)
If Ordner = False Then
Unload Me
Else
' Ordner kopieren
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String
' Welcher Ordner soll kopiert werden?
sFolderPath = "..."
' Wohin soll der Ordner kopiert werden?
sDestPath = Ordner
' Kopiervorgang starten
Set Folder = FSO.GetFolder(sFolderPath)
Folder.Copy sDestPath
MsgBox "Gewählter Ordner wurde erfolgreich gespeichert."
End If
Unload Me
End If
End Sub
Ich danke jetzt schon für Hilfe und bedanke mich noch bei vorigen Helfern (ich kann irgendwie unter ältere Posts nichts mehr schreiben - vielleicht liest es ja hier jemand) :)Gruß, Maddy