Private Function monatsEingabeOk()
 
Dim monat As String
Dim zeile() As String
Dim monatsSpalte As Variant
Dim i As Integer
Dim monatkorr As Integer
 
zeile = Split(txtDatenPaare.Text, vbNewLine)
 
  For i = 0 To maxDatenPaare - 1
 
      monatkorr = 1
      monatsSpalte = Split(zeile(i), ";")
      monat = Trim$(Left$(monatsSpalte(monatkorr - 1), 3))
    If Len(monat) <> 0 Then
        If Len(monat) = 3 Then
         monatsEingabeOk = True
        Else
          'Befehle
          Exit Function
        End If
     Else
          'Befehle
          Exit Function
     End If
    monatsEingabeOk = True
    monatsfeld(i) = monat
Debug.Print "übergeben: " & monatsfeld(i)
 
Next
End Function