makros funktionieren nicht ... wo liegt der fehler
04.11.2004 13:11:54
jürgen
ich möchte in einer tabelle 2 makros verwenden.
button 1 dient dazu in die zeile mit dem heutigen datum zu springen. funktioniert in einer anderen tabelle alleine 1a.
button 2 soll alle zeilen ausser die heutige sperren.
nur funktioniert das alles nicht so wie gedacht.
erkennt jemand von euch anhand der makros einen fehler?
leider funktionier der bilder-upload nicht - darum hier die makros.....
Option Explicit
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 CommandButton2_Click()
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
gruß
jürgen