3.7k Aufrufe
Gefragt in Tabellenkalkulation von donau-adler Einsteiger_in (87 Punkte)
Hallo Zusammen,

ich hätte mal wieder ein Anliegen an das Forum.

Ich habe ein Arbeitsblatt erstellt, welches verschiedene Mitarbeiter ausfüllen. Nach Abschluss der Eingaben werden die DAten mittels eines Makros in eine Datenbank eingespielt. Nun sollen aber bestimmte Felder als Pflichtfelder tituliert werden und das Makro soll abbrechen, wenn diese nicht befüllt werden.

z.B. Wenn B6, A11, xx etc. leer dann Makroabbruch mit Hinweisfenster "Nicht alle Pflichtfelder befüllt...", ansonsten weiter mit der Einspielung.

Vorab vielen Dank.

System: Windows XP
Office: 2010

4 Antworten

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo,

dann poste doch bitte mal den gesamten Code Deines Makros, wir wollen doch kein Rätselraten veranstalten.

Gruß
Rainer
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

ohne makro ginge es über daten>gültigkeit :-)

ohne makro nutze das Change ereigniss :-)

gruss nighty
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

korrigiert *hihi*

ohne makro ginge es über daten>gültigkeit :-)

mit makro nutze das Change ereigniss :-)

gruss nighty
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

ein Beispiel :-)

gruss nighty

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.EnableEvents = False
Dim rgBereich As Range
Dim zaehler As Range
Set rgBereich = Worksheets("Tabelle1").Range("A2,B2,C2,M2")
For Each zaehler In rgBereich
If zaehler = "" Then
zaehler.Select
MsgBox "Dein Meldungstext!", vbOKOnly
Exit For
End If
Next zaehler
Application.EnableEvents = True
End Sub

einzufügen alt+f11/projektexplorer/deineTabelle
...