Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meldung, wenn Mussfeld nicht eingetragen wurde

Forumthread: Meldung, wenn Mussfeld nicht eingetragen wurde

Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 12:03:03
dirtyharry
hallo zusammen,
ich bastle momentan an einer Tabelle herum, wobei in die Spalte A unbedingt etwas eingegeben werden muss. Allerdings nur, wenn in der Spalte D etwas eingegeben wurde.
Daher meine Frage: Wie kann man eine Meldung erscheinen lassen, die den Benutzer darauf aufmerksam macht, dass er in der Spalte A noch etwas einzugeben hat, wenn in der Spalte D etwas eingetragen wurde? bzw. dass der Benutzer gar nicht weiterarbeiten kann, solange er in Spalte A nichts eingegeben hat?
Danke schon jetzt für eure Hilfe,
Harald
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 12:22:24
Matthias
Hallo Harald,
Teste dies mal:
(ins Modul des Tabellenblattes):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, ber As Range
Set ber = Intersect(Target, Range("D:D"))
If Not ber Is Nothing Then
For Each z In ber
If z.Value <> "" Then
If Cells(z.Row, 1) = "" Then
Me.ScrollArea = Cells(z.Row, 1).Address
Cells(z.Row, 1).Select
MsgBox "Sie müssen in Spalte A auch was stehen haben!"
End If
End If
Next z
End If
Set ber = Intersect(Target, Range("A:A"))
If Not ber Is Nothing Then
If ber.Value <> "" And Me.ScrollArea <> "" Then
Me.ScrollArea = ""
ber.Offset(1, 3).Select
End If
End If
End Sub

Gruß Matthias
Anzeige
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 12:45:24
dirtyharry
danke für den code, aber da tut sich gar nichts.
Die messagebox erscheint nicht und man kann auch ganz normal weiterarbeiten.
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 12:57:05
Matthias
Hallo Harald,
hast du den Code auch ins Tabellenblattmodul gesetzt?
Gruß Matthias
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:13:01
dirtyharry
ja, direkt zum tabellenblatt, welches betroffen ist.
Anzeige
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:15:33
Eule
Hi Harald, hi Matthias
Code funktioniert 1a und ist genial!
gruss Eule
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:20:28
Matthias
Hallo Eule,
naja, 1b... es kam zum Fehler, wenn die ganze Spalte D gelöscht wird.
Besser:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, ber As Range
Set ber = Intersect(Target, Range("D:D"))
If Not ber Is Nothing Then
If ber(1).Value <> "" Then
For Each z In ber
If Cells(z.Row, 1) = "" Then
Me.ScrollArea = Cells(z.Row, 1).Address
Cells(z.Row, 1).Select
MsgBox "Sie müssen in Spalte A auch was stehen haben!"
End If
Next z
End If
End If
Set ber = Intersect(Target, Range("A:A"))
If Not ber Is Nothing Then
If ber.Value <> "" And Me.ScrollArea <> "" Then
Me.ScrollArea = ""
ber.Offset(1, 3).Select
End If
End If
End Sub

GRuß Matthias
Anzeige
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:29:51
Eule
Hi Matthias
so weit habe ich garnicht getestet. Aber wenn wir schon mal dabei sind, Zellen in Spalte A, die bereits gefüllt sind, müssten geschützt/gesperrt werden, damit diese nicht mehr gelöscht werden können (bei bereits erfolgter Befüllung von Spalte D)
Gruss Eule
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:37:39
Matthias
Hallo Eule,
Zellen in Spalte A, die bereits gefüllt sind, müssten geschützt/gesperrt werden, damit diese nicht mehr gelöscht werden können (bei bereits erfolgter Befüllung von Spalte D)
Wer sagt das?
Gruß Matthias
Anzeige
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:40:03
Eule
Hi Matthias
sagt niemand, habe beim Testen dies nur festgestellt, nachdem Du deinen "Schönheitsfehler" festgestellt hast.
Gruss Eule
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 13:43:55
Matthias
Hallo Eule,
achso, jetzt verstehe ich. :-)
Naja, mal schaun, ob Dirty Harry das überhaupt soweit hinkriegt.
Gruß Matthias
EnableEvents, oder was ?
19.08.2005 14:01:40
Harald
Hi Dirty Harry,
im Rahmen von Ereignissen wie z.B. Worksheet_Change wird zu Anfang EnableEvents oftmals auf False gesetzt und bei Codeabbruch nicht wieder auf True.
Das weiß ich aus schmerzlicher Erfahrung, daher hab ich diesen flotten Einzeiler, der mir bei Ereignis-Bastelstunden hilfreich zur Seite steht ;-))

Sub til()
Application.EnableEvents = True
End Sub

Matthias: Schöne Programmierarbeit
Gruß
Harald
Anzeige
AW: Meldung, wenn Mussfeld nicht eingetragen wurde
19.08.2005 14:34:11
dirtyharry
mit der neuen formel funzt es einwandfrei, herzlichen dank an euer bemühen.
zu der von glaub ich eule gestellten frage, zum schutz/zur sperrung von zellen, in denen was eingetragen wurde, empfehle ich folgenden code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaZelle As Range
'    ActiveSheet.Unprotect
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, Range("D1:D999")) Is Nothing Then
If RaZelle <> "" Then Target.Offset(0, 1).Select
End If
Next RaZelle
'    ActiveSheet.protect
End Sub

also kann man auf die ausgefüllten Zellen im Bereich D1:D999 nicht mehr zugreifen.
danke nochmals und ein schönes wochenende!!!
Harald
Anzeige
;

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Anzeige
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Hinweis wenn Zellen nicht gefüllt sind
Uwe

Hallo an Alle,
hab dank der Recherche mir folgendes Macro zusammen gestellt....
Sub Uebergeben1() Dim lRow As Long lRow = Worksheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row + 1 Worksheets("Tabelle1").Unprotect Worksheets("Tabelle3").Range("C3, C5, C7, C9, C11, C13, C15, C17, C1...
24.11.2008 23:09:00
Thread-ID: 1027522
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige