Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige