Hallo,

ich bin wirklich am verzweifeln:

Private Sub CommandButton5_Click() ' Bestellung abschicken
Application.StatusBar = ""
Dim outObj As Object ' dimensionierung f. EmailVersand
Dim Mail As Object
Dim Zeilentext() As String
Dim Gesamttext As Object
Dim Auftragsnummer As String
Dim manuelleunt_txt As Object
Dim manuelleunt As Boolean
Dim arbeitsverzeichnis As String
Dim m As Integer
Dim fehlerwert As Integer

Worksheets("Tabelle1").Activate

' Prüfung ob bei der Eingabe der Maximalwerte geschummelt wurde.
' Z.B. durch Kopieren via Zwischenablage

m = 13
fehlerwert = 0
While Cells(m + 1, 6) > 0
m = m + 1
If (Cells(m, 7) - Cells(m, 6)) > 0 Then
MsgBox ("Sie haben in Zeile " & m & " einen ungültigen Wert eingegeben. Bitte korrigieren Sie dies!")
fehlerwert = fehlerwert + 1
End If
Wend

Bereits bei Beginn der While-Schleifer erhalte ich eine Typunverträglichkeit! (Fehlercode 13)
Wieso??

Danke für Eure Hilfe

Andreas