Datumabfrage und Zellenfreigabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Entsperren() Dim loLetzte As Long With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row Set raBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 1)) For Each raZelle In raBereich If CDate(raZelle) = Date Then .Unprotect Password:="DeinPasswort" raZelle.Offset(, 1).Locked = False End If Next raZelle .Protect Password:="DeinPasswort" End With Set raBereich = Nothing End Sub

Hallo Werner,
ja, ist mir auch schon aufgefallen ;)
Jetzt bräuchte ich allerdings doch nochmal deine Hilfe. Wir mussten unsere Datei nochmal umstrukturieren. Jetzt bestehen unsere Infofelder aus mehreren verbundenen Zellen. Sieht so ähnlich aus, wie in der beigefügten Datei. Wir saßen gestern die halbe Nacht in der Arbeit an deinem Makro, haben es aber nicht geschafft, es so umzuschreiben, dass es bei verbundenen Zellen funktioniert. Der Rest ist gleich. Datumabfrage in Spalte B und alles Spalten C-G entsperren/freigeben, wenn das Datum dem heutigen entspricht. Wäre super, wenn du uns nochmal helfen könntest. Vielen Dank im Voraus.
https://www.herber.de/bbs/user/116635.xlsm
Gruß Mario

Vielleicht kannst du mir aber auch so helfen. Hier nochmal dein Marko:

Public Sub Entsperren()
Dim loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 1))
For Each raZelle In raBereich
If CDate(raZelle) = Date Then
.Unprotect Password:="DeinPasswort"
raZelle.Offset(, 1).Locked = False
End If
Next raZelle
.Protect Password:="DeinPasswort"
End With
Set raBereich = Nothing
End Sub

Ändern tut sich eigentlich bloß, dass die Datumabfrage ab Zelle B19 (abwärts) stattfindet und die danebenliegenden Zellen C-G freigegeben werden sollen, wenn das Datum dem heutigen entspricht. Vielleicht ist es ja nur eine Kleinigkeit für dich und ich kann mich heute in der Nachtschicht nochmal ranmachen ;)
Wäre super! Aber mach dir keinen Stress. Ich will niemanden nerven. Bin einfach nur dankbar für dieses Forum!
Gruß Mario

Public Sub Entsperren() Dim loLetzte As Long With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row Set raBereich = .Range(.Cells(21, 2), .Cells(loLetzte, 2)) For Each raZelle In raBereich If CDate(raZelle) = Date Then .Unprotect Password:="DeinPasswort" raZelle.Offset(, 1).Resize(, 4).UnMerge raZelle.Offset(, 1).Locked = False raZelle.Offset(, 1).Resize(, 4).Merge End If Next raZelle .Protect Password:="DeinPasswort" End With Set raBereich = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread