Nach Eingabe Zelle sperren?
15.07.2003 21:28:02
Jean-Pierre
ich übe noch in vba - folgendes möchte ich realisieren:
wenn ich in b4 etwas eintrage soll in a4 automatisch eine art laufende nummer generiert werden (a4 = 1, a5 = 2 usw.) zusätzlich möchte ich in c4 die aktuelle uhrzeit eingetragen bekommen (c4, c5 usw) nun habe ich folgendes makro im archiv gefunden:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Cells(Target.Row, 3).Value = Time
End Sub
aber hier kann man in spalte b immer wieder einträge ändern - das soll nicht sein!
am besten wäre wenn nach einem eintrag diese zelle dann gesperrt wäre! (spalte a und c sind standardmäßig gesperrt!)
zusätzlich habe ich noch das makro (?) von marc (nochmals dank):
Sub test()
Dim lfdNr
lfdNr = 1
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value > 0 Then
Cells(i, 1).Value = lfdNr
lfdNr = lfdNr + 1
End If
Next
End Sub
welches jedoch nicht funktioniert - mir aber irgenwie logisch erscheint (?)
kann man diese anpassen - wenn ja wie???????????????
wer weiss einen rat?
gruß aus berlin
jean-pierre