habe noch eine Frage, anbei Excelliste.
Die Datei https://www.herber.de/bbs/user/8165.xls wurde aus Datenschutzgründen gelöscht
Vielen Dank für die Hilfe
Gruß Silvio
Die Datei https://www.herber.de/bbs/user/8165.xls wurde aus Datenschutzgründen gelöscht
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Set bereich = Range("K:K")
For Each zelle In bereich
If IsEmpty(zelle.Offset(0, 1)) And zelle.Value = "beworben" Then
zelle.Offset(0, 1).Value = Date
Exit Sub
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 11 Then 'bereich von A-K
If Cells(Target.Row, 13) = "" Then
Cells(Target.Row, 13).Value = Date
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then
If Cells(Target.Row, 13) = "" Then
Cells(Target.Row, 13).Value = Date
End If
End If
End Sub