Sub fehlerhaft?
08.09.2004 16:15:53
Andy
Ich habe mal wieder ein Problem..
das untenstehende
Sub soll im blatt "neue", falls in spalte a etwas steht, überprüfen ob in der gleichen zeile in den spalten b,c,d ebenfalls werte stehen.
Ist dies nicht der fall doll die meldung ausgegeben werden.
Dieses Kontrolle soll von zeile 15 bis 26 erfolgen.
Sub neu_kontrolle()
Dim h As Integer
For h = 15 To 26
If Sheets("neue").Cells(h, 1).Value <> "" Then
If Sheets("neue").Cells(h, 2).Value = "" And _
Sheets("neue").Cells(h, 3).Value = "" And _
Sheets("neue").Cells(h, 4).Value = "" Then
MsgBox "Die Angaben in Zeile " & h & " sind unvollständig."
Exit Sub
End If
End If
Next h
End Sub
Danke
Andy