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

zeilen sperren die nicht gleich heute() sind

Forumthread: zeilen sperren die nicht gleich heute() sind

zeilen sperren die nicht gleich heute() sind
02.11.2004 12:52:27
jürgen
hallo,
ist es möglich alle zeilen einer tabelle zu sperren, ausser der mit dem heutigen datum?
der abzudeckende zellbereich geht von A6 : CP370, das datum steht in spalte D.
ein sperren und entsperren der anderen zellen über einen button wäre praktisch.
wie muß das makro aussehen?
gruß und danke schonmal
jürgen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Stimmt deine Excelversion? oT
Boris
AW: Stimmt deine Excelversion? oT
02.11.2004 13:03:38
jürgen
sorry - excel 97 ......
Alle Zeilen ungleich HEUTE sperren
Boris
Hi Jürgen,
so in der Art:
Option Explicit

Sub sperren_ausser_heute()
Dim aSh As Worksheet, lngRow As Long
Set aSh = ActiveSheet
With aSh
.Unprotect
.Cells.Locked = True
For lngRow = 6 To 370
.Rows(lngRow).Locked = Not .Cells(lngRow, "D") = Date
Next lngRow
.Protect
End With
End Sub

Grüße Boris
Anzeige
AW: Alle Zeilen ungleich HEUTE sperren
02.11.2004 14:15:06
jürgen
hi,
habe das makro eingefügt - allerdings mit keinem erfolg.
ev. mache ich ja auch etwas falsch .... mit folgendem makro arbeite ich schon in der tabelle
(sringen in zelle mit heutigem datum)

Private Sub CommandButton1_Click()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For Each c In Range("D1:D" & laR)
If c.Value = Date Then
Application.Goto Reference:=Range(c.Address), Scroll:=True
ActiveWindow.ScrollColumn = 1
Exit For
End If
Next c
Application.ScreenUpdating = True
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

wie muß ich das neue makro einbinden?
jürgen
Anzeige
AW: Alle Zeilen ungleich HEUTE sperren
Boris
Hi,
wie muß ich das neue makro einbinden?
Einfach einem Button zuweisen und starten.
Grüße Boris

Beliebteste Forumthreads (12 Monate)

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