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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen