Public WithEvents myTab As Excel.Worksheet
 
Private Sub cmdOK_Click()
    Public exl As Object
    Public ExlWkb As Excel.Workbook
    Public ExlWks As Excel.Worksheet
 
      Set exl = CreateObject("Excel.Application")
        frmHauptMDI.Show
        frmHauptMDI.WindowState = vbMaximized
    
        exl.Visible = True
        exlhWnd = getforegroundwindow()
                
        VBMAKEMDICLIENT exlhWnd, frmHauptMDI.hWnd
    ' Formular öffnen
        exl.WindowState = xlMaximized
        Set ExlWkb = exl.Workbooks.Open("lrojekt_qsvorlagenmessprotokolle" & Formname & ".xlt")
        Set ExlWks = ExlWkb.Sheets("Tabelle1")
        Set myTab = ExlWkb.Sheets("Tabelle1")
        ExlWks.Select
        ExlWks.Range("D1").Select
        ExlWks.Columns("Q:R").EntireColumn.Hidden = True
End Sub
 
Private Sub myTab_Change(ByVal Target As Excel.Range)
  'Jede Menge Code zur Berechnung und Formatierung der Excel-Tabelle nach einer erfolgten Eingabe
End Sub
 
'Schließroutine
Private Sub mnuProtSave_Click()
 
     ExlWkb.SaveAs ("Lrojekt_qsprotokolle" & Formname & "12.xls")
     ExlWkb.Close False
     exl.Quit
     Set exl = Nothing
     Set ExlWks = Nothing
     Set myTab = Nothing
     Set ExlWkb = Nothing
     MsgBox "Protokoll gespeichert!"
     Unload frmProtokollNeu
 
     Exit Sub
 
Fehler:
MsgBox "Datensatz konnte nicht hinzugefügt werden!", vbCritical
 
End Sub