Zellwert auslesen
19.10.2006 22:46:14
Gerhard
mit diesem Code erstelle ich im Blatt "History" ein Protokoll über getätigte Eingaben im Blatt "Liste".
Nun soll zusätzlich der Wert/Text aus der Zelle B der aktiven Zeile (aus Blatt "Liste") ausgelesen werden und im Blatt "History in Zelle A geschrieben werden.
Wer ergänzt mir dazu den Code?
Danke!
Gerhard E.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lRow As Long
With Worksheets("History")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 3).Value = Target.Address(False, False)
.Cells(lRow, 4).Value = Now
.Cells(lRow, 5).Value = Environ("UserName")
.Cells(lRow, 2).Value = Target.Value
'.Cells(lRow, 1).Value = ?
End With
End Sub