Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn ,dann Mussfeld in Spalten

wenn ,dann Mussfeld in Spalten
04.03.2014 20:35:20
rene
Hallo zusammen,
wie müsste der Code geändert werden damit zB wenn in Spalte C eine Wert steht Spalte C ein Mussfeld wird bevor man die datei speichern kann?
im Anhang Beispieldatei
https://www.herber.de/bbs/user/89535.xlsm
Danke
rene Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Dim Value1 As Variant Dim Value2 As Variant Dim Value3 As Variant Value2 = Range("B2").Value Value3 = Range("C2").Value If Value2 "" And Value3 = "" Then MsgBox "Preis ist nötig" & vbCrLf _ & " Speichern nicht möglich! ", _ vbExclamation, "Eingabe unvollständig !" Range("C2").Select End If Range("C2").Select Cancel = False End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Pflichtfelder befüllt vor Speichern
05.03.2014 01:51:57
Beate
Hallo Rene,
probiere mal diesen Code und passe den Zellbereich nach deinem Bedarf an:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If [COUNTA(B2:B65536)<>COUNTA(C2: _
C65536)] Then
MsgBox "Es sind nicht alle Pflichtfelder im Tabellenblatt  _
'Tabelle1' Spalte C ausgefüllt! Deshalb kann nicht gespeichert werden."
Cancel = True
End If
End Sub
Das Makro gehört ins Codefenster "DieseArbeitsmappe".
Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein
Gruß,
Beate

Anzeige
AW: Pflichtfelder befüllt vor Speichern-Korrektur
05.03.2014 02:38:00
Beate
Hallo Rene,
nimm besser noch den Tabellenblattnamen mit in den Code, sonst könnte es wegen anderer Tabellenblätter Fehlermeldungen geben:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If [COUNTA(Tabelle1!B2:B65536)COUNTA(Tabelle1!C2:C65536)] Then
MsgBox "Es sind nicht alle Pflichtfelder im Tabellenblatt 'Tabelle1' Spalte C ausgefüllt!  _
Deshalb kann nicht gespeichert werden."
Cancel = True
End If
End Sub
Gruß,
Beate

AW: Pflichtfelder befüllt vor Speichern-Korrektur
07.03.2014 16:35:28
rene
Hallo Beate
Danke funktioniert Super.
Rene

Nachtrag zu Pflichtfelder
08.03.2014 19:35:58
rene
Hallo zusammen .
Zunächst vielen Dank nochmal an Beate ,habe aber doch noch ein paar Fragen zu diesem Thema
Wie könnte der Code aussehen damit folgendes erreicht werden kann ?
Bevor die Datei /Blatt gespeichert wird.
Wenn in Spalte C (C2:C6)etwas eingetragen wird ,sollen die Felder (D2:G2) Musseingabe Felder werden ,
(Spalte H wird berechnet =WENN(E2=0;"";E2*G2) und ist geschützt
(Spalte A wird berechnet =WENN(ISTTEXT(C2);1;"") und ist geschützt
(Spalte B ist kein Mussfeld)
Die Abfrage sollte jede einzelne Zeile abfragen (Zeilen 2-6) wird dabei festgestellt das ein Feld nicht gefüllt
ist ,Fehlermeldung über MSGBox (schön wäre das alle fehlenden Felder in der MSGBox aufgezeigt werden)
Ich habe ein wenig versucht aber das Ergebnis ist nicht so gut :-) ich bekomme es nur für eine Zeile hin
Code in der Arbeitsmappe
https://www.herber.de/bbs/user/89594.xlsm
Vielen Dank
Rene

Anzeige
AW: Nachtrag zu Pflichtfelder
10.03.2014 09:45:51
Uwe
Hallo Rene,
vllt. kannste eine For Next Schleife in deinen Code einbauen um alle Zellen abzufragen. 
Sub test()
Dim i As Integer
For i = 2 To 6
If Cells(i, 3)  "" And Cells(i, 8) = "" Then
MsgBox "Gesamtsumme? " & "Zelle " & Cells(i, 8).Address(False, False), _
vbCritical, "Gesammtsumme"
Exit Sub
End If
If Cells(i, 3)  "" And Cells(i, 4).Value = "" Then
MsgBox "Liefertermin? " & "Zelle " & Cells(i, 4).Address(False, False), _
vbCritical, "Liefertermin"
Exit Sub
End If
If Cells(i, 3)  "" And Cells(i, 5).Value = "" Then
MsgBox "Bestellmenge? " & "Zelle " & Cells(i, 5).Address(False, False), _
vbCritical, "Bestellmenge"
Exit Sub
End If
If Cells(i, 3)  "" And Cells(i, 6).Value = "" Then
MsgBox "Bestellmengeneinheit? " & "Zelle " & Cells(i, 6).Address(False, False), _
vbCritical, "Bestellmengeneinheit"
Exit Sub
End If
If Cells(i, 3)  "" And Cells(i, 7).Value = "" Then
MsgBox "Einzelpreis? " & "Zelle " & Cells(i, 7).Address(False, False), _
vbCritical, "Einzelpreis"
Exit Sub
End If
Next
End Sub
Grüße
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
4
7
7
2
1
4
4
2
2
3
4
2
2
1
2
5
5
2
33
3
5
1
3