wie mache das, ???
Datei öffnen, dann soll für den Benutzer ein paar Hinweise kommen.
Zum Beispiel: Füllen Sie folgende Felder aus, besser wäre gleich Zwangsmäßig auf Felder gehen wie j35-s35 und j35-s36 je ein Eintrag
Danke Udo
wie mache das, ???
Datei öffnen, dann soll für den Benutzer ein paar Hinweise kommen.
Zum Beispiel: Füllen Sie folgende Felder aus, besser wäre gleich Zwangsmäßig auf Felder gehen wie j35-s35 und j35-s36 je ein Eintrag
Danke Udo
erstelle eine Userform die beim Öffnen der Datei (Workbook_Open) gestartet wird und die die 4 Eingaben erzwingt.
Gruß
Peter
Danke für dein Tip, so gut bin ich noch nicht, ich kann damit nichts anfangen. Vielleicht kannst du deinen tip noch etwas deutlichen machen.
Danke Udo
dann probieren wir erst mal den einfacheren Weg.
Gib den Eingabefeldern eine bedingte Formatierung:
Format - bedingte Formatierung - Formel ist =ISTLEER(j35) - Format - Muster - beispielsweise rot - OK - OK.
Zelle markieren und das Format mit dem Pinsel auf alle Eingabefelder übertragen.
Rechtsklick auf das Tabellenblattregister - Code anzeigen. Im Projektfenster Doppelklick auf DieseArbeitsmappe und in das sich öffnende Fenster folgenden Code kopieren:
Private Sub Workbook_Open()
MsgBox "Bitte alle roten Zellen ausfüllen"
Sheets(1).Range("J35:S36").Select
Sheets(1).ScrollArea = "J35:S36"
End Sub
Jetzt einen Doppelklick im Projektfenster auf Tabelle1 und in das sich öffnende Fenster diesen Code kopieren:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If WorksheetFunction.CountA(Range("J35:S36")) = 20 Then
MsgBox "Alle nötigen Angaben gemacht"
ScrollArea = ""
End If
End Sub
Gruß
Peter