Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen sperren wenn ein Datum erreicht ist

Forumthread: Zeilen sperren wenn ein Datum erreicht ist

Zeilen sperren wenn ein Datum erreicht ist
04.04.2018 20:36:20
Frank
Hallo Zusammen,
ich habe in A4 das aktuelle Datum mit Uhrzeit stehen (=Jetzt()).
In der Spalte A6 bis A17 habe ich ein Datum mit Uhrzeit stehen (Bsp.: A6: 01.04.18 12:00 .... A17: 11.04.18 17:00).
Nun sollen die Zellen / Zeile (B6 bis AZ6) neben dem Datum von A6 ab dem Datum (A4) für Eintragungen (Text) gesperrt werden.
Welche Möglichkeit habe ich und wie sieht diese aus? Kann mir bitte einer weiterhelfen.
Vielen Dank
Frank
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen sperren wenn ein Datum erreicht ist
04.04.2018 21:01:39
Werner
Hallo Frank,
stellt sich nur die Frage, wann/wie diese Prüfung ausgelöst werden soll?
-beim Öffnen der Tabelle?
-wenn in einem Zellbereich eine Eingabe erfolgt?
-wenn ja in welchem?
-durch Klick auf eine Schaltfläche?
Gruß Werner
AW: Zeilen sperren wenn ein Datum erreicht ist
05.04.2018 15:30:32
Frank
Hallo Werner,
sobald die Tabelle geöffnet wird, sollte die Prüfung erfolgen.
Gruß
Frank
Anzeige
AW: Zeilen sperren wenn ein Datum erreicht ist
05.04.2018 17:27:01
Werner
Hallo Frank,
Vorbereitungen:
Im entsprechenden Tabellenblatt den Schutz für die Zellen rausnehmen, Standardmäßig ist dort ja der Haken bei "Gesperrt" gesetzt.
Dazu alle Zellen bzw. den entsprechenden Zellbereich auswählen - Rechtsklick - Zellen formatieren - Schutz - Haken bei "Gesperrt" rausnehmen.
Blatt mit Blattschutz versehen, Kennwort vergeben.
Folgender Code gehört ins Codemodul von "DieseArbeitsmappe".
Dazu im VBA-Editor Doppelklick auf "DieseArbeitsmappe" und den folgenden Code rechts ins Codefenster kopieren. 
Private Sub Workbook_Open()
Dim raZelle As Range, raBereich As Range
With Worksheets("Tabelle1") 'Blattname anpassen
Set raBereich = .Range("A6:A17")
.Unprotect "Frank" 'hier Blattschutzpasswort
For Each raZelle In raBereich
If raZelle.Value > .Range("A4").Value Then
raZelle.Offset(0, 1).Resize(1, 51).Locked = True
End If
Next raZelle
.Protect "Frank" 'hier Blattschutzpasswort
End With
End Sub
Im Code mußt du natürlich dein Passwort und den entsprechenden Tabellenblattnamen natürlich anpassen.
Anschließend die Datei speichern.
Beim nächsten Öffnen prüft der Code entsprechend die Einträge und sperrt den jeweiligen Zellbereich.
Gruß Werner
Anzeige
AW: Zeilen sperren wenn ein Datum erreicht ist
07.04.2018 19:34:39
Frank
Hallo Werner,
vielen Dank für den Code, der fast funktioniert.
Den Befehl " .Value > .Range " musste ich umschreiben in " .Value Leider wird für die Sperrung der Zeile, die Uhrzeit von A1 ( =Jetzt() ) mit dem Datum/Uhrzeit in der restlichen Spalte A (Bsp.: 07.04.18 12:00) nicht berücksichtigt. Ich kann um 19:00 immer noch Eintragungen in der Zeile vom 07.04. vornehmen.
Gibt es da eine Möglichkeit?
Sorry wenn ich mich zuvor nicht eindeutig geäußert habe, dass die Uhrzeit mit berücksichtigt werden sollte.
Gruß Frank
Anzeige
AW: Zeilen sperren wenn ein Datum erreicht ist
07.04.2018 20:11:58
Frank
Hallo Werner,
ich hatte einen Fehler im Bezug von Range("A4") nun klappt es auch mit der Uhrzeit.
Alles ist nun gut Vielen Dank für deine Unterstützung.
Frank
Gerne u. Danke für die Rückmeldung. o.w.T.
08.04.2018 13:05:13
Werner

Forumthreads zu verwandten Themen

Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Wenn-Formel mit 12 Bedingugen
Lars

Hallo.
Ich habe eine Frage zur Wenn-Formel. Ich möchte in Zelle A3 einen Wert ausgelesen bekommen.
Wenn A1 = D1 dann Wert aus D3
Wenn A1 = F1 dann Wert aus F3
usw.
Insgesamt sind es 12 bedingungen. Die Spalten liegen nicht nebeneinander.
10.12.2008 12:51:00
Thread-ID: 1031660
4 Beiträge
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Mehr als sieben Werte bei WENN(Prüfung;Dann_Wert;S
Florian

Hallo zusammen,
WENN(Prüfung;Dann_Wert;Sonst_Wert). Leider kann ich nicht mehr als sieben Werte eingeben.
Gibt es eine Möglichkeit diese Obergrenze zu Umgehen?
Danke schon mal und schönes Wochenende :-)
13.03.2009 14:55:58
Thread-ID: 1059900
4 Beiträge
wenn datum, dann datum
Jan

hallo zusammen
ich habe eine kleine frage..
ich möchte, das wenn in B2 ein Datum steht (z.b. 31.01.2009), dass dann Excel in A2 dieses Datum schreibt, ansonsten soll es nichts eintragen. bin nicht so der excel-profi und wäre für jede hilfe dankbar!
mir fällt momentan nur das ein:...
16.03.2009 15:10:12
Thread-ID: 1060776
3 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Wenn-Formel mit und + oder
Anton

hallo,
ich brauche mal eure hilfe. ich möchte mit einer formel verschiedene ergebnisse miteinander vergleichen und dabei nur eine formel verwenden.
es soll geprüft werden ob A1+A2 = C1+C2+C3 und = E1 oder E2+E3
verständlich?
danke für eure hilfe im voraus
anton
04.08.2009 12:25:51
Thread-ID: 1093466
24 Beiträge
mit wenn dann Datumseintrag kontrollieren
Jürgen

Hallo Excel Forum,
habe glaube ich ein kleines Problem. Möchte unter VBA eine WENN / DANN Verknüpfung die ein Datum abfragt.
In der Zelle B2 steht ein Datumseintrag. Sollte das aktuelle Datum größer als ein Jahr sein dann soll in C2 ein Text eingefügt werden. Dann soll B3, B4, B5, u.s.w...
19.08.2009 10:56:44
Thread-ID: 1097024
5 Beiträge
Wennformel mit Gültigkeit in Zellen
Sebastian

Hallo Excel-Freunde,
im Anhang findet ihr eine Tabelle die ich soweit schon versucht habe zum laufen zu bringen. Ich habe jetzt nur ein Problem mit einer Wenn-Abfrage wenn in einem Feld schon eine Gültigkeit vorgegeben ist.
Hier die Tabelle: https://www.herber.de/bbs/user/65096.xls
...
15.10.2009 13:25:58
Thread-ID: 1109770
7 Beiträge
Anzeige
Wenn Dann Formel mit Namensbezug
Matthias

HiHo!
Hab ja so meine Problemme und Ideen, und schon wieder eine Lol!
Excel läßt leider nur 64 Verschachtelungsebenen zu, das ist aber nicht genug für mich, denn ich habe eine geburtstagsliste, Name Vorname Geburtstag
Jetzt hab ich noch einen Kalender, und möchte gerne, das an dem T...
01.01.1970 00:00:00
Thread-ID: 1110152
41 Beiträge
Verschachtelte Wenn Formel mit zusätzlichem Kriter
Marius

guten morgen
für eine risikoanalyse im excel bin ich auf der suche nach einer möglichen formel. (s. beilage)
in den spalten F, G und H findet das rating des risiko statt.
die spalte I enthält das punktetotal der 3 erwähnten spalten.
in der spalte K möchte ich nun mittels einer f...
07.12.2009 11:04:46
Thread-ID: 1122135
3 Beiträge
Anzeige
Zeilen ausblenden wenn Datum in Spalte A kleiner h
Andreas
Hi Celina,folgendes müsste Dir helfen:kopiere das folgende makro in ein modul (mit alt+f11 kommst du in die VBA-Umgebung):Sub datum()
Dim lR%, i%
lR = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lR To 1 Step -1
dat = Date
If...
17.04.2002 00:02:24
Thread-ID: 113930
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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