Hallo zusammen,
ich habe Excel 97 und möchte gerne folgendes tun:
Ich habe eine Tabelle, die ein Anwender ausfüllen soll. Bestimmte Felder MÜSSEN dabei gefüllt werden, andere hingegen nicht zwangsläufig.
Nun würde ich gerne am Ende ein Makro [Ausgabeformular erstellen] haben, was mir zum einen die Ausgabe druckfertig macht, zum anderen aber zuerst prüft, ob die Muss-Felder auch alle gefüllt sind.
Fehlt eine Eingabe, soll es zurück zur Eingabe, ist alles ok, dann auf die Druckseite springen.
Ich hoffe ich habe mich verständlich ausgedrückt
Geht sowas mit Excel??
Danke schon mal für Eure Hilfe
Lieben Gruss
Suse
Hallo Suse,
wie weißt du, wann der Benutzer mit seinen Eingaben fertig ist? Der Anwender muß ja sicher nicht unbedingt eine bestimmte Reihenfolge bei der Eingabe einhalten.
lg Maria
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Maria,
sicher…da hast Du recht.
Das Makro [Ausgabeformular erstellen] erscheint als Button, den der Anwender manuell betätigen muss.
LG
Suse
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
ich habe Excel 97 und möchte gerne folgendes tun:
Ich habe eine Tabelle, die ein Anwender ausfüllen soll.
Bestimmte Felder MÜSSEN dabei gefüllt werden, andere hingegen
nicht zwangsläufig.
Nun würde ich gerne am Ende ein Makro [Ausgabeformular
erstellen] haben, was mir zum einen die Ausgabe druckfertig
macht, zum anderen aber zuerst prüft, ob die Muss-Felder auch
alle gefüllt sind.
Fehlt eine Eingabe, soll es zurück zur Eingabe, ist alles ok,
dann auf die Druckseite springen.
Hi Suse,
ich habe xl2000 , weiss also nicht ob das nachfolgende Makro auf 97 läuft.
Was genau meinst du mit Ausgabe druckfertig?
Gruß
Reinhard
in Modul1 einfügen:
Option Base 1
Sub test()
Dim bereich As Variant
bereich = Array("B10", "C10", "D11") ' zu überwaxhende Zellen
With Worksheets("Tabelle1")
For n = 1 To UBound(bereich)
If .Range(bereich(n)) = "" Then
.Range(bereich(n)).Select
MsgBox "Zelle " & bereich(n) & " muss ausgefüllt werden"
Exit Sub
End If
Next n
End With
Call ausgabe
End Sub
Sub ausgabe()
MsgBox "ausgabe"
End Sub