Schleife soll MsgBox ausgeben und Einträge löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Schleife soll MsgBox ausgeben und Einträge löschen
von: Niko
Geschrieben am: 25.06.2015 15:49:27

Hallo zusammen,
ich möchte mit einer Schleife folgendes erreichen:
If [T5] < 5 Then
MsgBox "Das Datum ist falsch.
Range("A5,B5") = ""
End If
If [T6] < 5 Then
MsgBox "Das Datum ist falsch.
Range("A6,B6") = ""
End If
…bis [T16]
Danke schonmal für eure Mühe.
Gruß
Niko

Bild

Betrifft: Schleife soll MsgBox ausgeben und Einträge löschen
von: Rudi Maintaire
Geschrieben am: 25.06.2015 15:57:17
Hallo,

Sub aaa
dim i as Long
for i=5 to 16
if cells(i,20)<5 then
msgbox "Das Datum ist falsch"
cells(i,1).resize(,2)=""
next i
End Sub

Gruß
Rudi

Bild

Betrifft: Vielen Dank für deine Hilfe (oT)
von: Niko
Geschrieben am: 25.06.2015 16:24:18
Hi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schleife soll MsgBox ausgeben und Einträge löschen"