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

Zellen und Spalten Sperren nach aktuellen Datum

Forumthread: Zellen und Spalten Sperren nach aktuellen Datum

Zellen und Spalten Sperren nach aktuellen Datum
06.02.2006 16:14:43
Frank
Hallo zusammen,
a1 =Heute()
a2 05/02/06
a3 06/02/06
a4 07/02/06
Heute kann nur die Zeile a2 bearbeitet werden und die anderen sind gesperrt.
Morgen kann dann nur die Zelle a3 bearbeitet werden und die anderen sind gespert.
usw.
gibt es dafür ein Macro?
Ich hoffe ich habe mich richtig Ausgedrückt.
Gruß
balou1964
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen und Spalten Sperren nach aktuellen Datum
06.02.2006 16:56:43
UweD
Hallo
so ginge es

Private Sub Workbook_Open()
Dim Tb, Sp%, Z
Set Tb = Sheets("Tabelle1")
Sp = 1 'Spalte A
Tb.Unprotect Password:="123"
For Each Z In Tb.Columns(Sp).SpecialCells(xlCellTypeConstants, 3)
If Z.Value = Date Then
Rows(Z.Row).Locked = False
Else
Rows(Z.Row).Locked = True
End If
Next
ActiveSheet.Protect Password:="123"
End Sub

Makro kommt in "DieseArbeibeitsmappe"
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Zellen und Spalten Sperren nach aktuellen Datum
08.02.2006 09:01:19
balou1964
Hallo UweD
Du bist a Wucht!! Ohne Deine Hilfe hätt ich das nimmer geschafft.
Des funzt voll supiiiiiiiiii so!!! Hast mir
viel Zeit erspart!! Danke nochmals!
Kann man das auch Variabel machen.
so das mehr Zeilen bearbeitet werden können.
AW: Zellen und Spalten Sperren nach aktuellen Datum
09.02.2006 09:23:49
UweD
Hallo
variabel? wenn z.b. nur in jeder 2. Zeile ein Datum steht.
so wird die nachfolgende Zeile ebenfalls gesperrt/freigegeben.

Private Sub Workbook_Open()
Dim Tb, Sp%, ZE%, Z
Set Tb = Sheets("Tabelle1")
Sp = 1 'Spalte A
ZE = 2 'es sollen 2 Zeilen bearbeitet werden
Tb.Unprotect Password:="123"
For Each Z In Tb.Columns(Sp).SpecialCells(xlCellTypeConstants, 3)
If Z.Value = Date And Z.Value <> "" Then
Range(Rows(Z.Row), Rows(Z.Row + ZE - 1)).Locked = False
Else
Range(Rows(Z.Row), Rows(Z.Row + ZE - 1)).Locked = True
End If
Next
ActiveSheet.Protect Password:="123"
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige

Forumthreads zu verwandten Themen

Beitrag sortieren 2 Datums Uhrzeit werte VBA
chris

Hallo zusammen,
habe zwar schon einen thread offen zu dem Thema hier der Link.Wollte in nur vorschieben weil ich am besten noch heute eine Antwort benötige da ich sonst nicht weiter machen kann mit meiner datei.
Würde mich freuen wenn mir jemand helfen könnte.
Danke rudi schon mal f...
08.08.2008 09:33:49
Thread-ID: 1000181
5 Beiträge
mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Anzeige
Sortieren nach Datum
Carolina

Hallo alle zusammen,
will ne Tabelle nach Datum sortieren, leider sortiert er nur Daten zwischen dem 1.1.1900 und dem 31.12.2029
Kann man das irgendwie änden? Es stehen auch Daten aus dem 19. Jahrhundert drin.
Schöne Grüße aus Rom
Carolina
24.09.2008 09:37:02
Thread-ID: 1011947
2 Beiträge
Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Automatische Eintragung nach Datumseingabe
Hans

Hallo
Ich möchte in einer Zelle ein Datum eingeben. In einem Informationsblock soll nun automatisch ein Kreuz oder eine Zahl angezeigt werdenob es sich um ein Wochentag/Wochenende/ Feiertag oder Ferientag ( NRW ) handelt.
Ist so etwas unkompliziert möglich. Ich wäre für Eure Hilfe sehr...
31.03.2009 19:01:20
Thread-ID: 1065740
5 Beiträge
Spalte nach Datum formatieren
Mandy

Hallo
ich möchte eine Spalte per Makro formatieren, dass das Ergebnis nachher so aussieht: 2009-04-01
(JJJJ-MM-TT)
Dazu habe ich mit dem Makrorecorder folgendes aufgezeichnet:
Worksheets("Test").Range("Q10:Q1111").Select
Selection.NumberFormat = "yyyy-mm-dd"
Nach dem A...
02.04.2009 10:14:21
Thread-ID: 1066221
4 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Sortieren nach Datum
Andreas

Hallo Forum,
ich habe eine Tabelle in der in Spalte A nur Datumswerte stehen, in B und C die dazugehörigen Aufgaben.
nun möchte ich das immer das nächste aktuelle datum in der ersten zeile steht.
ist ein Datum vorbei soll es sich ans Ende der Tabelle stellen.
Vielen Dank im vorr...
15.08.2009 18:58:53
Thread-ID: 1096168
3 Beiträge
Tabellen nach Inhalt von Zelle A2 sortieren
Zelle

Liebes Forum
Ich möchte gerne eine grosse Anzahl Tabellen nach der Zelle "A2" sortieren. Auf http://www.schmittis-page.de/index.html?/excel/vba/t56.htm habe ich einen Code gefunden, der die Sortierung anhand der Tabellennamen vornimmt. Ich habe nun .name mit .Cells("A2").Value ersetzt.
...
22.08.2009 16:14:58
Thread-ID: 1097948
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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