Marco immer noch kürzen
11.03.2005 10:39:32
Rene
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