Version =20
VersionRequired =20
Checksum =-717167783
Begin Form
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    AllowEdits = NotDefault
    AllowDesignChanges = NotDefault
    ViewsAllowed =1
    TabularFamily =255
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =28746
    DatasheetFontHeight =10
    ItemSuffix =53
    Left =705
    Top =2730
    Right =29865
    Bottom =14700
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xb35afdd7b32ee440
    End
    RecordSource ="qry_SupportUnterNacharbeitung"
    Caption ="frmSupport"
    DatasheetFontName ="Arial"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =354
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x3c3027e761e86b45b1b331346c9ee6d7
            End
            Begin
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =2325
                    Top =60
                    Width =2040
                    Height =240
                    Name ="Rekladatum_Bezeichnungsfeld"
                    Caption ="Erstbearbeitung Datum/Zeit "
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x86bc7aab56af0341b8a46d89ca5edf4d
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =8625
                    Top =57
                    Width =3180
                    Height =225
                    Name ="Rekla Grund_Bezeichnungsfeld"
                    Caption ="Support Art"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Rekla_Grund_Bezeichnungsfeld"
                    GUID = Begin
                        0xf82ed2cde5b5f44987e1e026fc28839f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =11910
                    Top =57
                    Width =2730
                    Height =240
                    Name ="Rekla Bemerkung_Bezeichnungsfeld"
                    Caption ="Anforderung Kunde"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Rekla_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0x033e9609982aed449b3db15014088f06
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =14691
                    Top =57
                    Width =2730
                    Height =240
                    Name ="Lösung_Bezeichnungsfeld"
                    Caption ="Lösung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x897e82801740d542bb7866f59ae04fad
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =25005
                    Top =57
                    Width =1425
                    Height =240
                    Name ="Rekla Status_Bezeichnungsfeld"
                    Caption ="Rekla Status"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Rekla_Status_Bezeichnungsfeld"
                    GUID = Begin
                        0xde1c90c788f3624685d5b540a5820315
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =17460
                    Top =57
                    Width =969
                    Height =240
                    Name ="WV Datum_Bezeichnungsfeld"
                    Caption ="WV Datum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Datum_Bezeichnungsfeld"
                    GUID = Begin
                        0x93c633a2c3bec849a5e73889b0600b8f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =18486
                    Top =57
                    Width =969
                    Height =240
                    Name ="WV Uhrzeit_Bezeichnungsfeld"
                    Caption ="WV Uhrzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Uhrzeit_Bezeichnungsfeld"
                    GUID = Begin
                        0x69e7a7c2a231e6408fc4be6da0c49d5f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =60
                    Top =57
                    Width =2166
                    Height =240
                    Name ="Sachbearbeiter_Bezeichnungsfeld"
                    Caption ="Sachbearbeiter"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x7876eb845c41374c808773cd3eba0c07
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =23983
                    Top =57
                    Width =990
                    Height =240
                    Name ="DatumEndeBearbeitung_Bezeichnungsfeld"
                    Caption ="Ende Bearb."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xf20b42381c8b094fa23e0c34be7f6aae
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =6585
                    Top =57
                    Width =969
                    Height =240
                    Name ="Bezeichnungsfeld30"
                    Caption ="Email Datum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd6ca9ecb0f382a43b8e7324600614fdf
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =7605
                    Top =60
                    Width =990
                    Height =240
                    Name ="Bezeichnungsfeld31"
                    Caption ="Email Uhrzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x3a57f6b53a050049943b0f17f44e4cc6
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =22875
                    Top =60
                    Width =1050
                    Height =240
                    Name ="Bezeichnungsfeld34"
                    Caption ="Letzte Bearb."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xa622cd1a1bc3ae46965e90ffa14e5031
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =19500
                    Top =57
                    Width =1761
                    Height =240
                    Name ="Bezeichnungsfeld41"
                    Caption ="Weitergeleitet An"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x3b460ed9fc796546873d20b6b7d6a7bb
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =21315
                    Top =60
                    Width =1515
                    Height =240
                    Name ="Bezeichnungsfeld45"
                    Caption ="Status Weiterleitung"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x70e5a1f3f1bcb24f85b60f2ac4dbf754
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =26985
                    Top =57
                    Width =846
                    Height =240
                    Name ="Bezeichnungsfeld47"
                    Caption ="ID"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x137cf214633a6e42b9c0174cf286be31
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =27900
                    Top =57
                    Width =846
                    Height =240
                    Name ="Bezeichnungsfeld49"
                    Caption ="Haupt ID"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xe3bfe2b05b78f649a22c23cd2802b54f
                    End
                End
                Begin Label
                    OverlapFlags =85
                    TextAlign =1
                    Left =4425
                    Top =57
                    Width =2040
                    Height =225
                    Name ="Bezeichnungsfeld51"
                    Caption ="Eingang Art"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xd8ac82c4fdd03243a7f623626dc85626
                    End
                End
            End
        End
        Begin Section
            Height =353
            Name ="Detailbereich"
            GUID = Begin
                0x5662a68cc033f147b424044f27f6249f
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =2325
                    Top =57
                    Width =849
                    Height =255
                    ColumnWidth =1035
                    TabIndex =1
                    Name ="Rekladatum"
                    ControlSource ="BearbeitungDatum"
                    DefaultValue ="Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x83882537e46a9d4f9c21362694e90b4c
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =3403
                    Top =60
                    Width =969
                    Height =255
                    ColumnWidth =1035
                    TabIndex =2
                    Name ="Rekla Uhrzeit"
                    ControlSource ="BearbeitungZeit"
                    DefaultValue ="Time()"
                    FontName ="Arial"
                    InputMask ="00:00;0;*"
                    EventProcPrefix ="Rekla_Uhrzeit"
                    GUID = Begin
                        0x9a45c24f5a1ed5449e6ef99e981b0fee
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =11910
                    Top =57
                    Width =2730
                    Height =255
                    ColumnWidth =3000
                    TabIndex =7
                    Name ="Rekla Bemerkung"
                    ControlSource ="AnforderungKunde"
                    OnEnter ="Mkr_Zoombx"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                    EventProcPrefix ="Rekla_Bemerkung"
                    GUID = Begin
                        0xed04b3879881be4fb0aaf051ab6db885
                    End
                End
                Begin TextBox
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =14691
                    Top =57
                    Width =2730
                    Height =255
                    ColumnWidth =3000
                    TabIndex =8
                    Name ="Lösung"
                    ControlSource ="Loesung"
                    OnEnter ="Mkr_Zoombx"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                    GUID = Begin
                        0x93759720c5fde242ab8a7fb8868f5967
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =17460
                    Top =57
                    Width =969
                    Height =255
                    ColumnWidth =1035
                    TabIndex =9
                    Name ="WV Datum"
                    ControlSource ="WVDatum"
                    FontName ="Arial"
                    EventProcPrefix ="WV_Datum"
                    GUID = Begin
                        0xab4b0d849171694aa8f30a62b16d3175
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =18486
                    Top =57
                    Width =969
                    Height =255
                    ColumnWidth =1035
                    TabIndex =10
                    Name ="WV Uhrzeit"
                    ControlSource ="WVZeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="00:00;0;*"
                    EventProcPrefix ="WV_Uhrzeit"
                    GUID = Begin
                        0x934e0b534085f545a3d370ac3b104ba0
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =60
                    Top =57
                    Width =2166
                    Height =255
                    ColumnWidth =2310
                    Name ="Sachbearbeiter"
                    ControlSource ="Sachbearbeiter"
                    DefaultValue ="=[Forms]![frm_Haupt]![Terminierer]"
                    FontName ="Arial"
                    GUID = Begin
                        0x398708a0aa371f44a69c935b75f6fe12
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =23983
                    Top =57
                    Width =990
                    Height =255
                    ColumnWidth =1035
                    TabIndex =14
                    Name ="DatumEndeBearbeitung"
                    ControlSource ="DatumEndeBearbeitung"
                    OnDblClick ="Mkr_SetzenDatumreklaEndbearbeitung"
                    FontName ="Arial"
                    GUID = Begin
                        0x790bf1f6fb27b244b468ee34bb3b9fb0
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =6585
                    Top =57
                    Width =969
                    Height =255
                    TabIndex =4
                    Name ="EmailDatum"
                    ControlSource ="DatumFaxEmail"
                    OnEnter ="Mkr_EmailZeitMeldungListe"
                    FontName ="Arial"
                    GUID = Begin
                        0xd9498a7885bd1f49b6ec14da4217b7c8
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =7611
                    Top =57
                    Width =969
                    Height =255
                    TabIndex =5
                    Name ="EmailZeit"
                    ControlSource ="ZeitFaxEmail"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="00:00;0;*"
                    GUID = Begin
                        0xda1da56f91d4724d9895acccdc4cce27
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =22875
                    Top =57
                    Width =1065
                    Height =255
                    TabIndex =13
                    Name ="DatumletzeBearbeitung"
                    ControlSource ="DatumLetzteBearbeitung"
                    OnDblClick ="Mkr_SetzeDatumRekla"
                    DefaultValue ="Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x79579d3ea9ca1342b8df2f2ae2456d7d
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =25005
                    Top =57
                    Width =1425
                    Height =255
                    ColumnWidth =3000
                    TabIndex =15
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x489e8257e4c546408da85be226a25ea5
                    End
                    Name ="Rekla Status"
                    ControlSource ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_reklastatus"
                    FontName ="Arial"
                    EventProcPrefix ="Rekla_Status"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =8625
                    Top =57
                    Width =3180
                    Height =255
                    ColumnWidth =3000
                    TabIndex =6
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0x8fa7e420fd1a51419d6f98e90153c15a
                    End
                    Name ="Rekla Grund"
                    ControlSource ="SupportGrund"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Reklagruende"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                    EventProcPrefix ="Rekla_Grund"
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =19500
                    Top =57
                    Width =1761
                    Height =255
                    TabIndex =11
                    Name ="Text42"
                    ControlSource ="WeitergeleitetAn"
                    FontName ="Arial"
                    GUID = Begin
                        0x8113ba9ccf396d44b6808178a90e2929
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =21315
                    Top =57
                    Width =1500
                    Height =255
                    TabIndex =12
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x3ca1b333c24ecb47829c3d329e6852b6
                    End
                    Name ="Kombinationsfeld46"
                    ControlSource ="StatusWeiterleitung"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_reklastatus"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =26985
                    Top =57
                    Width =846
                    Height =255
                    TabIndex =17
                    Name ="ID"
                    ControlSource ="id"
                    FontName ="Arial"
                    GUID = Begin
                        0x17307efca7241644921ba7ea7864ad98
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    BackStyle =0
                    IMESentenceMode =3
                    Left =27900
                    Top =57
                    Width =846
                    Height =255
                    TabIndex =18
                    Name ="Rekla_NR"
                    ControlSource ="Rekla_NR"
                    DefaultValue ="=[Forms]![frmSupportNeu]![Rekla_Nr]"
                    FontName ="Arial"
                    GUID = Begin
                        0x71b1668da5eb1e4892af022ebee9958c
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =26591
                    Top =56
                    Width =290
                    Height =255
                    TabIndex =16
                    Name ="Befehl37"
                    Caption ="Befehl37"
                    OnClick ="Mkr_SupportBearbeitenOpen"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadada00000000000dadad0fffffffff0adada ,
                        0x0f0f0f0f0f0dadad0fffffffff0adada0f0f00000000000d0fff0fffff0fff0a ,
                        0x0f0f0f0f0f0f0f0d0fff0fffff0fff0a44440444444f0f0d44440444444fff0a ,
                        0xadad0f0f0f0f0f0ddada0fffffffff0aadad44444444444ddada44444444444a ,
                        0xadadadadadadadad
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0x3d3207272df2f94bbaf13e6b8d852b7c
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    TextAlign =1
                    IMESentenceMode =3
                    Left =4425
                    Top =57
                    Width =2040
                    Height =255
                    TabIndex =3
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xe9fac2cc71306a49962fce7a547bd381
                    End
                    Name ="Kombinationsfeld52"
                    ControlSource ="EingangArt"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_ReklaEingangArt"
                    OnDblClick ="Mkr_Zoombx"
                    FontName ="Arial"
                End
            End
        End
        Begin FormFooter
            Height =0
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x5576f809ef28434bb06ced245225b4e3
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click


    DoCmd.Close

Exit_Befehl36_Click:
    Exit Sub

Err_Befehl36_Click:
    MsgBox Err.Description
    Resume Exit_Befehl36_Click
    
End Sub
Private Sub Befehl38_Click()
On Error GoTo Err_Befehl38_Click

    Dim stDocName As String

    stDocName = "Mkr_SetzenDatumreklaEndbearbeitung"
    DoCmd.RunMacro stDocName

Exit_Befehl38_Click:
    Exit Sub

Err_Befehl38_Click:
    MsgBox Err.Description
    Resume Exit_Befehl38_Click
    
End Sub