Wert kleiner gleich und Zelle kopieren
25.04.2020 14:25:29
Blattlaus
ich bin bereits mehrfach bei der Suche nach Excel-Lösungsansätze auf dieses Forum gestoßen und da die Vermutung aufkam, dass hier einem geholfen wird, wollte ich bei euch mein Glück versuchen.
Eines vorab, meine Excel-Kenntnisse sind eher dürftig, doch ich versuche diese stets etwas zu verbessern.
Zu meinem Anliegen:
Ich habe eine Excel-Datei, in Spalte A steht ein Datum, in Spalte B & C eine Zahl.
Im Moment nutze ich eine Schaltfläche, um zu prüfen ob der Wert in Spalte C kleiner gleich null ist, wenn ja, soll in Spalte A das aktuelle Datum eingetragen und Zelle E3 nach Spalte B kopiert werden.
Das doofe an meinem VBA-Quellcode, ich muss die Zeilen die geändert werden sollen immer markieren, dann die Schaltfläche betätigen.
Hier mein Quellcode:
Sub MWDatumundKilometer_setzten()
Zeile = ActiveCell.Row
Cells(Zeile, 1) = Date
Cells(Zeile, 2) = Range("$E$3").Value
End Sub
Was müsste geändert werden, damit über die Schaltfläche Zeile für Zeile geprüft wird, ob Spalte C kleiner gleich 0 ist, wenn ja in Spalte A das aktuelle Datum (z. B. 25.04.2020) und in Spalte B den Wert aus E3 übernommen wird?
Vielen Dank.
Gruß,
Blattlaus