Datum per VBA setzten
05.01.2021 11:27:21
Guido
ich bin gerade am verzweifeln. Ich wollte eigentlich ein recht einfaches VBA ändern aber es geht nicht. Ursprünglich hatte das VBA folgende Funktion:
Wenn in Spalte A ein Eintrag erfolgt, dann setze ein Datum in Spalte B in gleicher Zeile.
Dieses VBA wollte ich ändern auf Zeilen:
Wenn in Zeile 1 oder 3 ein Eintrag erfolgt, dann setze ein Datum in Zeile 5 in gleicher Spalte.
Mit der Zeile 3 habe ich erst einmal außen vor gelassen. Ich bekomme es auch hin, dass die Einträge in der ersten Zeile berücksichtigt werden, nur wird das Datum nicht in die Zeile sondern in die Spalte geschrieben. Ich habe schon diverse Versuche unternommen, auch könnte ich ich auch mit einem "Range" (z.b. A1:D1 dann in A5:D5) leben aber alles brachte keinen Erfolg. Ich glaube ich habe mich da ziemlich blöd verrannt.
Das VBA sieht zur Zeit so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row) = 1 Then
Cells(Target.Column, 5) = Date
End If
End Sub
Eigentlich würde man vermuten, dass nur "Column" auf "Row" ändern muss aber nix geht...
Wäre nett wenn jemand dazu eine Idee hat, vielen Dank schon mal im vorraus
Gruß
Guido