hmm, dass verstehe ich leider nicht. Also wenn ich die Tabelle öffne, dann kann ich da leider gar nichts ändern .. bzw, egal was ich eintippe es verändert sich nichts!! das mit dem VBA habe ich eh noch nicht so ganz verstanden ! Lieber wäre mir das mit der literation 1 , weil mir das einfacher erscheint ... aber bisher sind für mich beides böhmische Dörfer :D .. ich durchsuche schon das Internet .. aber das ist alles Excelsprache von Leuten die wissen was sie da tun , nicht so wie bei mir :22: :19: ... trotzdem vielen Dank ..
Hi Peppe,
du musst natürlich Makros aktivieren, damit das funktioniert!
LG
Alexandra
Hey vielen Dank !
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
If Range("C" & Target.Row).Value <> "" Or Range("D" & Target.Row).Value <> "" Then
Range("A" & Target.Row).Value = Now
Else
Range("A" & Target.Row).Value = ""
End If
End Sub
Hat hervorragend funktioniert !!! Vielen Dank dafür :) , aber wenn ich jetzt noch Spalte E mit reinnehmen möchte zusätzlich zu "C" und "D" , dann dachte ich ich könnte einfach deine bestehende Formel um "" Or Range("E" & Target.Row).Value <> "" erweitern !! Also sprich
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
If Range("C" & Target.Row).Value <> "" Or Range("D" & Target.Row).Value <> "" Or Range("E" & Target.Row).Value <> "" Then
Range("A" & Target.Row).Value = Now
Else
Range("A" & Target.Row).Value = ""
End If
End Sub
Aber so einfach geht es leider nicht oder mache ich etwas falsch ???
Vielen Dank auch noch an die anderen, die sich hier die Zeit nehmen um mir zu antworten :17:
Hi Peppe,
zum Antworten genügt in der Regel der Antwortenbutton auf der rechten Seite. Vollzitate (vor allem eigene) sind unnötig. Falls zum besseren Verständnis Zitate nötig sind, reichen oftmals gezielte Kopien.
Hi Peppe,
du must oben bei Target. Column <>5 natürlich auch anpassen!
LG
Alexandra