Public Function Textboxcheck() As Boolean
'******************************************************
'*         Hier wird vor dem Senden geprüft,          *
'*        ob auch alle Textboxen gefüllt sind         *
'******************************************************
 
Dim c As Control
Dim intCtrCounter As Integer
Dim k As Integer
Dim i As Integer
 
 
k = 7                       '7.Zeile in ExcelTabelle
intCtrCounter = 0
Textboxcheck = True
Do
   intCtrCounter = intCtrCounter + 1 ' UC-Nummer
   Set c = frmhaupt.Controls("UserControl1" & CStr(intCtrCounter))
   i = 0
      Do While excel.Range("B" & k).Value <> ""
         If excel.Range("C" & k).Value <> "" Then
            If c.TextBoxElem(i) = "" And Not _
               c.TextBoxElem(i).Enabled = False And Not _
               c.lblmin1(i) = "" Then
 
               MsgBox LoadResString(56 + Res) & vbCrLf & vbCrLf _
               & LoadResString(57 + Res) & excel.Range("A" & k).Value & _
               LoadResString(58 + Res), vbExclamation + vbOKOnly, LoadResString( _
               59 + Res)
               ' Daten wurden nicht übertragen ! + Es wurde kein Wert im 
               ' Untermenü -- +
               ' -- eingetragen + Problem
 
               frmhaupt.UserControl11.Visible = False
               frmhaupt.UserControl12.Visible = False
               frmhaupt.UserControl13.Visible = False
               frmhaupt.UserControl14.Visible = False
               frmhaupt.UserControl15.Visible = False
               frmhaupt.UserControl16.Visible = False
               frmhaupt.UserControl17.Visible = False
               frmhaupt.UserControl18.Visible = False
               c.Visible = True
               c.TextBoxElem(i).SetFocus
               DoEvents
               Textboxcheck = False
               Exit Function
            End If
         End If
      k = k + 1
      i = i + 1
      Loop
   k = k + 1
Loop While excel.Range("B" & k).Value <> ""
 
 
End Function

         If excel.Range("C" & k).Value <> "" Then