anbei eine kleine Datei mit drei kleinen Fragen. Die Fragen befinden sich in der Datei.
Wäre schön, wenn mir jemand helfen kann.
Vielen Dank im Voraus.
https://www.herber.de/bbs/user/43234.xls
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
Select Case Target.Column
Case 4
'--- Datum eintragen, wenn in Spalte D ein Wert eingetragen wird
Cells(Target.Row, 2).Value = Date
Select Case Target.Row
Case 8, 9
'--- B8 und B9 nach B11 kopieren, wenn in D8 oder D9 ein Wert eingetragen wird
Cells(11, 2).Value = Cells(Target.Row, 2).Value
Case Else
End Select
Case Else
End Select
End Sub
Gruß, Daniel