Nächste ZEile sichtbar machen. Makro umbauen?
12.10.2007 12:24:00
René
ich habe aus diesem Forum ein wunderbares Makro gefischt. Durch einen Commandbutton wird die Datei zum einen gespeichert und die vorhergehende Zeile gesperrt (genau wa sich mir vorgestellt habe)
Mein Problem ist aber ein zusaetzlicher Wunsch, wo ich nicht weis wie ich es anpassen kann.
Hier mal das Makro und der zusaetzliche Wunsch:
Private Sub CommandButton1_Click()
Dim Zeile As Long
ActiveSheet.Unprotect
With CommandButton1
Rows(.TopLeftCell.Row).Locked = True
ActiveSheet.Protect Password:="5mgz1va"
Cells(.TopLeftCell.Row + 1, 2).Select
.Top = Selection.Top + 1
End With
ActiveSheet.Protect
ActiveWorkbook.Save
End Sub
Mein Wunsch ist nun, dass die nächste Zeile nach Bestaetigung sichtbar gemacht und zusaetzlich in der Spalte K nach dem Klick ein x gesetzt wird. Ist das machbar? Vielen Dank fuer eure Loesungsvorschlaege.
Bis dahin verbleibe ich
Mit freundlichen Grueßen
René
Anzeige