OptionButton Hilfe!
29.06.2020 13:05:51
Anni
ich habe folgendes Problem. Ich habe 7 Option Buttons in einer Excel Tabelle. Ohne Formular oder ähnlichem.
Mit einem Code lade ich txt Dateien aus einem Ordner in die Excel Mappe.
Nun möchte ich, dass je nach Auswahl eines OptionButtons ein anderer Dateipfad verwendet wird.
Es wird mir aber immer angezeigt dass die Variable der OptionButtons nicht definiert sind.
Muss man die Buttons extra mit Dim OptionButton As ..... deklarieren?
Ich bekomme es einfach nicht hin.
hier mein Code:
Sub AuswahlPfad
Dim fso As New FileSystemObject
Dim myFolder As Folder, folderMessdaten As Folder
Dim sourcePath As String
Dim myFolderDate As Long
If OptionButton15.Value = True Then
sourcePath = Range("F6").Value
ElseIf OptionButton16.Value = True Then
sourcePath = Range("F7").Value
ElseIf OptionButton17.Value = True Then
sourcePath = Range("F8").Value
ElseIf OptionButton18.Value = True Then
sourcePath = Range("F9").Value
ElseIf OptionButton19.Value = True Then
sourcePath = Range("F10").Value
ElseIf OptionButton20.Value = True Then
sourcePath = Range("F11").Value
ElseIf OptionsButton21.Value = True Then
sourcePath = Range("F12").Value
'..... nimmt Daten aus Pfad und kopiert sie....
End Sub
Oder muss ich es so aufbauen, dass ich in einem anderen Modul stehen habe. (bisher noch nicht vorhanden)
Sub OptionButton15_Click()
...? aber eigentlich sinnlos, da ich wirklich nur True oder False brauche und keine anderen _
Bedingungen beim Ausführen...
End Sub
Kann mir jemand helfen? Ich kenne mich wirklich 0 mit den OptionButtons aus und finde dazu nichts richtiges.Gruß Anni