Aktion ausführen wenn

Forumthread: Aktion ausführen wenn
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Aktion ausführen wenn

14.03.2003 12:50:14

andrea

Hallöchen
ich habe folgendes Problem:
ich habe eine Mappe als eine Art Eingabemaske umstrukturiert, in der 6 Eingaben erfolgen müssen!!! um über ein Button in eine weitere Mappe zu gelangen.
wie kann ich es hinkriegen, daß alle notwendigen Eingaben in die Felder D8, D10, D12, D14, D16 und D18 erfolgt sind. Vorher soll der Button nicht die 2.Mappe öffnen.
vielen dank schon im vorraus!!!!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Aktion ausführen wenn

14.03.2003 13:02:55

Willie
Re: Aktion ausführen wenn

14.03.2003 13:03:13

Kobra
DANKE !!!!

14.03.2003 15:47:19

andrea

Re: Aktion ausführen wenn

14.03.2003 13:02:55

Willie

Versuch es mal damit:

Sub test()
Dim i As Variant
For i = 8 To 16 Step 2
If Cells(i, 4).Value = "" Then
z = z + 1
MsgBox "Nicht öffnen!"
Exit Sub
Else
End If
Next
MsgBox "Es sind " & z & " Felder nicht gefüllt!"
End Sub

Gruß Willie

Re: Aktion ausführen wenn

14.03.2003 13:03:13

Kobra

Hi,

Versuchs mit einer if-Abfrage:

if ...D8="" or ...D10="" ... then
erg = msgbox("Es müssen alle Felder ausgefüllt werden")
else
'Deine Aktion zum Sprung
endif

Gruss
Markus