Marco immer noch kürzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Marco immer noch kürzen von: Rene
Geschrieben am: 11.03.2005 10:39:32

Moin zusammen,

Ich krieg noch einen Nerven zusammenbruch. Habe nun schon verschiedene Sachen durch Hilfe von hier gekürzt aber ich bekomme immer noch die Meldung Prozedur zu groß. Wenn ich versuche die Sache auf zwei Module aufzuteilen komme ich auch nicht weiter. Könnte sich mal jemand meine Sache ansehen. Leider kann ich die Tabelle nicht auf denn Server laden da sie zu groß ist. Gebe hier mal den Code der aber bestimmt auf den ersten und zweiten Blick verwirrend ist:

Private Sub CommandButton13_Click()
Dim Quelle As String
Dim Kopie As String
Const A As String = "C:\DQM\Messung\RCA\"
Const B As String = "RG 48"
Const C As String = "SPML 16"
Const D As String = "SF 03"
Const E As String = "SBM 250"
Const F As String = "GWM 440"
Const G As String = "GWM 550"
Const H As String = "GWM 550 S"
Const I As String = "RGM"
Pfad = A & B & "\S49\DQM mit Display\"
Pfad1 = A & B & "\S54\DQM mit Display\"
Pfad2 = A & B & "\E2\DQM mit Display\"
Pfad3 = A & B & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad4 = A & B & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad5 = A & B & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad6 = A & B & "\Spur\DQM mit Display\S49\"
Pfad7 = A & B & "\Spur\DQM mit Display\S54\"
Pfad8 = A & B & "\Spur\DQM mit Display\E2\"
Pfad9 = A & B & "\S49\DQM ohne Display\"
Pfad10 = A & B & "\S54\DQM ohne Display\"
Pfad11 = A & B & "\E2\DQM ohne Display\"
Pfad12 = A & B & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad13 = A & B & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad14 = A & B & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad15 = A & B & "\Spur\DQM ohne Display\S49\"
Pfad16 = A & B & "\Spur\DQM ohne Display\S54\"
Pfad17 = A & B & "\Spur\DQM ohne Display\E2\"
Pfad18 = A & C & "\S49\DQM mit Display\"
Pfad19 = A & C & "\S54\DQM mit Display\"
Pfad20 = A & C & "\E2\DQM mit Display\"
Pfad21 = A & C & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad22 = A & C & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad23 = A & C & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad24 = A & C & "\Spur\DQM mit Display\S49\"
Pfad25 = A & C & "\Spur\DQM mit Display\S54\"
Pfad26 = A & C & "\Spur\DQM mit Display\E2\"
Pfad27 = A & C & "\S49\DQM ohne Display\"
Pfad28 = A & C & "\S54\DQM ohne Display\"
Pfad29 = A & C & "\E2\DQM ohne Display\"
Pfad30 = A & C & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad31 = A & C & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad32 = A & C & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad33 = A & C & "\Spur\DQM ohne Display\S49\"
Pfad34 = A & C & "\Spur\DQM ohne Display\S54\"
Pfad35 = A & C & "\Spur\DQM ohne Display\E2\"
Pfad36 = A & D & "\S49\DQM mit Display\"
Pfad37 = A & D & "\S54\DQM mit Display\"
Pfad38 = A & D & "\E2\DQM mit Display\"
Pfad39 = A & D & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad40 = A & D & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad41 = A & D & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad42 = A & D & "\Spur\DQM mit Display\S49\"
Pfad43 = A & D & "\Spur\DQM mit Display\S54\"
Pfad44 = A & D & "\Spur\DQM mit Display\E2\"
Pfad45 = A & D & "\S49\DQM ohne Display\"
Pfad46 = A & D & "\S54\DQM ohne Display\"
Pfad47 = A & D & "\E2\DQM ohne Display\"
Pfad48 = A & D & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad49 = A & D & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad50 = A & D & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad51 = A & D & "\Spur\DQM ohne Display\S49\"
Pfad52 = A & D & "\Spur\DQM ohne Display\S54\"
Pfad53 = A & D & "\Spur\DQM ohne Display\E2\"
Pfad54 = A & E & "\S49\DQM mit Display\"
Pfad55 = A & E & "\S54\DQM mit Display\"
Pfad56 = A & E & "\E2\DQM mit Display\"
Pfad57 = A & E & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad58 = A & E & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad59 = A & E & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad60 = A & E & "\Spur\DQM mit Display\S49\"
Pfad61 = A & E & "\Spur\DQM mit Display\S54\"
Pfad62 = A & E & "\Spur\DQM mit Display\E2\"
Pfad63 = A & E & "\S49\DQM ohne Display\"
Pfad64 = A & E & "\S54\DQM ohne Display\"
Pfad65 = A & E & "\E2\DQM ohne Display\"
Pfad66 = A & E & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad67 = A & E & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad68 = A & E & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad69 = A & E & "\Spur\DQM ohne Display\S49\"
Pfad70 = A & E & "\Spur\DQM ohne Display\S54\"
Pfad71 = A & E & "\Spur\DQM ohne Display\E2\"
Pfad72 = A & F & "\S49\DQM mit Display\"
Pfad73 = A & F & "\S54\DQM mit Display\"
Pfad74 = A & F & "\E2\DQM mit Display\"
Pfad75 = A & F & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad76 = A & F & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad77 = A & F & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad78 = A & F & "\Spur\DQM mit Display\S49\"
Pfad79 = A & F & "\Spur\DQM mit Display\S54\"
Pfad80 = A & F & "\Spur\DQM mit Display\E2\"
Pfad81 = A & F & "\S49\DQM ohne Display\"
Pfad82 = A & F & "\S54\DQM ohne Display\"
Pfad83 = A & F & "\E2\DQM ohne Display\"
Pfad84 = A & F & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad85 = A & F & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad86 = A & F & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad87 = A & F & "\Spur\DQM ohne Display\S49\"
Pfad88 = A & F & "\Spur\DQM ohne Display\S54\"
Pfad89 = A & F & "\Spur\DQM ohne Display\E2\"
Pfad90 = A & G & "\S49\DQM mit Display\"
Pfad91 = A & G & "\S54\DQM mit Display\"
Pfad92 = A & G & "\E2\DQM mit Display\"
Pfad93 = A & G & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad94 = A & G & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad95 = A & G & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad96 = A & G & "\Spur\DQM mit Display\S49\"
Pfad97 = A & G & "\Spur\DQM mit Display\S54\"
Pfad98 = A & G & "\Spur\DQM mit Display\E2\"
Pfad99 = A & G & "\S49\DQM ohne Display\"
Pfad100 = A & G & "\S54\DQM ohne Display\"
Pfad101 = A & G & "\E2\DQM ohne Display\"
Pfad102 = A & G & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad103 = A & G & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad104 = A & G & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad105 = A & G & "\Spur\DQM ohne Display\S49\"
Pfad106 = A & G & "\Spur\DQM ohne Display\S54\"
Pfad107 = A & G & "\Spur\DQM ohne Display\E2\"
Pfad108 = A & H & "\S49\DQM mit Display\"
Pfad109 = A & H & "\S54\DQM mit Display\"
Pfad110 = A & H & "\E2\DQM mit Display\"
Pfad111 = A & H & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad112 = A & H & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad113 = A & H & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad114 = A & H & "\Spur\DQM mit Display\S49\"
Pfad115 = A & H & "\Spur\DQM mit Display\S54\"
Pfad116 = A & H & "\Spur\DQM mit Display\E2\"
Pfad117 = A & H & "\S49\DQM ohne Display\"
Pfad118 = A & H & "\S54\DQM ohne Display\"
Pfad119 = A & H & "\E2\DQM ohne Display\"
Pfad120 = A & H & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad121 = A & H & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad122 = A & H & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad123 = A & H & "\Spur\DQM ohne Display\S49\"
Pfad124 = A & H & "\Spur\DQM ohne Display\S54\"
Pfad125 = A & H & "\Spur\DQM ohne Display\E2\"
Pfad126 = A & I & "\S49\DQM mit Display\"
Pfad127 = A & I & "\S54\DQM mit Display\"
Pfad128 = A & I & "\E2\DQM mit Display\"
Pfad129 = A & I & "\abgefahrener Bogen\DQM mit Display\S49\"
Pfad130 = A & I & "\abgefahrener Bogen\DQM mit Display\S54\"
Pfad131 = A & I & "\abgefahrener Bogen\DQM mit Display\E2\"
Pfad132 = A & I & "\Spur\DQM mit Display\S49\"
Pfad133 = A & I & "\Spur\DQM mit Display\S54\"
Pfad134 = A & I & "\Spur\DQM mit Display\E2\"
Pfad135 = A & I & "\S49\DQM ohne Display\"
Pfad136 = A & I & "\S54\DQM ohne Display\"
Pfad137 = A & I & "\E2\DQM ohne Display\"
Pfad138 = A & I & "\abgefahrener Bogen\DQM ohne Display\S49\"
Pfad139 = A & I & "\abgefahrener Bogen\DQM ohne Display\S54\"
Pfad140 = A & I & "\abgefahrener Bogen\DQM ohne Display\E2\"
Pfad141 = A & I & "\Spur\DQM ohne Display\S49\"
Pfad142 = A & I & "\Spur\DQM ohne Display\S54\"
Pfad143 = A & I & "\Spur\DQM ohne Display\E2\"
Quelle = ("C:\DQM\RCA.mem") 'RCA suchen
If OptionButton8 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad1 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad1 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad1 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad2 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad2 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad2 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad3 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad3 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad3 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad4 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad4 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad4 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad5 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad5 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad5 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad6 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad6 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad6 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad7 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad7 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad7 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad8 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad8 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad8 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad9 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad9 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad9 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad10 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad10 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad10 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad11 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad11 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad11 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad12 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad12 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad12 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad13 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad13 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad13 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad14 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad14 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad14 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad15 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad15 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad15 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad16 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad16 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad16 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad17 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad17 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad17 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RG_48_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If OptionButton9 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad18 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad18 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad18 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad19 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad19 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad19 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad20 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad20 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad20 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad21 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad21 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad21 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad22 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad22 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad22 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad23 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad23 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad23 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad24 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad24 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad24 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad25 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad25 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad25 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad26 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad26 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad26 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad27 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad27 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad27 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad28 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad28 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad28 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad29 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad29 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad29 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad30 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad30 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad30 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad31 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad31 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad31 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad32 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad32 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad32 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad33 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad33 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad33 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad34 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad34 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad34 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad35 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad35 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad35 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SPML_16_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
If OptionButton10 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad36 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad36 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad36 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad37 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad37 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad37 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad38 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad38 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad38 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad39 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad39 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad39 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad40 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad40 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad40 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad41 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad41 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad41 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad42 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad42 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad42 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad43 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad43 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad43 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad44 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad44 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad44 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad45 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad45 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad45 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad46 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad46 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad46 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad47 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad47 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad47 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad48 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad48 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad48 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad49 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad49 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad49 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad50 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad50 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad50 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad51 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad51 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad51 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad52 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad52 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad52 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad53 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad53 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad53 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SF_03_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
If OptionButton11 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad54 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad54 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad54 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad55 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad55 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad55 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad56 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad56 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad56 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad57 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad57 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad57 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad58 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad58 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad58 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad59 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad59 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad59 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad60 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad60 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad60 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad61 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad61 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad61 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad62 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad62 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad62 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad63 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad63 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad63 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad64 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad64 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad64 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad65 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad65 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad65 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad66 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad66 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad66 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad67 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad67 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad67 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad68 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad68 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad68 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad69 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad69 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad69 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad70 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad70 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad70 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad71 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad71 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad71 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
SBM_250_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
If OptionButton12 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad72 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad72 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad72 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad73 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad73 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad73 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad74 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad74 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad74 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad75 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad75 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad75 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad76 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad76 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad76 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad77 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad77 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad77 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad78 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad78 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad78 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad79 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad79 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad79 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad80 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad80 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad80 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad81 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad81 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad81 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad82 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad82 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad82 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad83 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad83 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad83 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad84 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad84 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad84 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad85 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad85 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad85 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad86 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad86 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad86 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad87 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad87 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad87 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad88 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad88 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad88 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad89 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad89 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad89 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_440_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
If OptionButton13 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad90 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad90 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad90 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad91 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad91 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad91 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad92 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad92 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad92 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad93 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad93 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad93 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad94 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad94 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad94 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad95 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad95 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad95 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad96 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad96 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad96 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad97 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad97 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad97 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad98 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad98 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad98 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad99 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad99 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad99 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad100 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad100 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad100 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad101 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad101 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad101 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad102 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad102 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad102 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad103 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad103 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad103 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad104 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad104 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad104 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad105 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad105 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad105 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad106 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad106 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad106 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad107 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad107 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad107 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
If OptionButton14 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad108 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad108 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad108 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad109 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad109 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad109 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad110 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad110 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad110 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad111 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad111 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad111 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad112 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad112 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad112 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad113 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad113 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad113 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad114 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad114 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad114 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad115 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad115 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad115 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad116 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad116 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad116 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad117 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad117 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad117 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad118 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad118 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad118 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad119 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad119 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad119 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad120 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad120 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad120 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad121 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad121 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad121 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad122 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad122 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad122 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad123 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad123 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad123 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad124 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad124 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad124 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad125 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad125 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad125 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
GWM_550_S_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
If OptionButton15 = True Then
If CheckBox1 = False Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad126 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S49_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad126 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S49_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad126 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S49_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad127 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S54_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad127 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S54_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad127 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S54_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad128 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_E2_mit_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad128 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_E2_mit_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad128 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_E2_mit_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad129 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad129 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad129 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad130 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad130 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad130 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad131 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad131 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad131 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton1 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad132 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad132 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad132 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad133 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad133 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad133 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad134 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad134 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton1 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad134 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_mit_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = False Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad135 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S49_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad135 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S49_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad135 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S49_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad136 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S54_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad136 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S54_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad136 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_S54_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad137 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_E2_ohne_Display_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad137 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_E2_ohne_Display_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad137 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_E2_ohne_Display_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
If CheckBox1 = True Then
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad138 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad138 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad138 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad139 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad139 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad139 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad140 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad140 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad140 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_abge_Bogen_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
  If CheckBox2 = True Then
  
If OptionButton2 And OptionButton23 And OptionButton20 = True Then
Kopie = Pfad141 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_S49_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton21 = True Then
Kopie = Pfad141 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_S49_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton23 And OptionButton22 = True Then
Kopie = Pfad141 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_S49_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton20 = True Then
Kopie = Pfad142 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_S54_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton21 = True Then
Kopie = Pfad142 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_S54_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton24 And OptionButton22 = True Then
Kopie = Pfad142 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_S54_05 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton20 = True Then
Kopie = Pfad143 & "bis 0,2 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_E2_02 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton21 = True Then
Kopie = Pfad143 & "bis 0,3 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_E2_03 'legt Ordner laut Modul1 an
kill Kopie
ElseIf OptionButton2 And OptionButton25 And OptionButton22 = True Then
Kopie = Pfad143 & "bis 0,5 mm\RCA.mem"
FileCopy Quelle, Kopie
RGM_Spur_ohne_Display_E2_05 'legt Ordner laut Modul1 an
kill Kopie
End If
End If
End If
End Sub



Gruß Rene
Bild


Betrifft: AW: Marco immer noch kürzen von: Matthias G
Geschrieben am: 11.03.2005 11:01:19

Hallo Rene,

wieso kommst du mit der Zerlegung in mehrere Prozeduren nicht weiter?

Eine Hauptprozedur, die nacheinander die (zwei oder mehr) Teile aufruft.
Die Variablen/Konstanten könnest du ja auch Modulweit deklariernen.

Gruß Matthias


Bild


Betrifft: AW: Marco immer noch kürzen von: Rene
Geschrieben am: 11.03.2005 11:16:38

Hallo Matthias,

Ich habe probiert die Sache auf zwei Module aufzuteilen. Wenn ich nun aber in dem jeweiligen Modul deklariere(Pfade,OPButton,CheckBoxen) sagt er dann das er nichts damit anfangen kann. Die Hauptprozedur soll ja ein CommandButton sein wenn ich diesen drücke soll das jeweilge Modul das Macro ausführen. Die ganze Sache geht auch über den CommandButton aber eben nur bis zur OP-Abfrage 13 die 14 und 15 will er nicht mehr dann sagt er Prozedur zu groß.

Gruß Rene


Bild


Betrifft: AW: Marco immer noch kürzen von: IngoG
Geschrieben am: 11.03.2005 12:20:25

Hallo Rene,

hab dir mal den ersten Block etwas verkürzt...
Vielleicht hilft dir das ja schon

Gruß Ingo

If OptionButton8 = True Then
If OptionButton20 Then
t1 = "bis 0,2 mm\RCA.mem"
t2 = "02"
ElseIf OptionButton21 Then
t1 = "bis 0,3 mm\RCA.mem"
t2 = "03"
ElseIf OptionButton22 Then
t1 = "bis 0,5 mm\RCA.mem"
t2 = "05"
End If
If OptionButton1 And OptionButton23 Then
Kopie = Pfad & t1
t3 = "RG_48_S49_mit_Display_" & t2
ElseIf OptionButton1 And OptionButton24 Then
Kopie = Pfad1 & t1
t3 = "RG_48_S54_mit_Display_" & t2
ElseIf OptionButton1 And OptionButton25 Then
Kopie = Pfad2 & t1
t3 = "RG_48_E2_mit_Display_" & t2
End If
FileCopy Quelle, Kopie
Application.Run t3
Kill Kopie
End If


Bild


Betrifft: AW: Marco immer noch kürzen von: Rene
Geschrieben am: 11.03.2005 12:48:54

Moin Ingo,

Danke dir schon mal für deine Mühe werde mich mal hinsetzen und es ausprobieren. Melde mich dann noch mal.

Gruß Rene


Bild


Betrifft: AW: Marco immer noch kürzen von: Rene
Geschrieben am: 11.03.2005 22:11:26

Moin Ingo und auch die anderen,

Habe es getestet aber ich komme mit den CheckBoxen nicht weiter entweder macht er gar nichts oder er speichert in allen 3 Ordnern ab. wie kann ich die CheckBoxen da noch mit einbauen das er dann auch in dem richtigen Ordner abspeichert?

Gruß Rene


Bild


Betrifft: AW: Marco immer noch kürzen von: IngoG
Geschrieben am: 13.03.2005 11:45:47

Hallo Rene,

um das ganze auszutesten würde ich Dir empfehlen, einfach mal mit einzelschritten durch das modul zu gehen und dir die Variableninhalte anzuschauen. Daran kann man meist schon eine Menge erkennen ;-)
Da ich die Struktur deiner Dateien und die UF nicht zur verfügung habe, kann ich diesen Test nicht selber machen.

Gruß Ingo


Bild


Betrifft: AW: Marco immer noch kürzen von: Rene
Geschrieben am: 13.03.2005 13:41:30

Moin Ingo,

Deine gekürzte Fassung geht prima bekomme jetzt keine Prozedur zu groß Meldung mehr.
Danke dir noch mal.

Gruß Rene


Bild


Betrifft: Danke für die Rückmeldung oT von: IngoG
Geschrieben am: 14.03.2005 12:21:52

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBAProject zugriff per makro"