25.03.2020, 10:21 (Dieser Beitrag wurde zuletzt bearbeitet: 25.03.2020, 10:21 von PurpleBass.)
Hallo zusammen,
ich bin dabei eine kleines Lagerverwaltungstool zuschreiben. Die wichtigsten Bestandteile konnte ich integrieren, leider hackt es jedoch an einer Kleinigkeit.
Und zwar soll in Spalte B automatisch das aktuelle Datum eingetragen werden, wenn in der benachbarten Spalte C ein beliebiger Eintrag erfolgt. Aber das Datum soll fortlaufend in die nächste Freie Zelle darunter eingetragen werden.
Außerdem soll das aktuelle Datum fixiert werden. Also wenn ich heute was Eintrage, morgen das Datum von gestern drin ist.
Zitat:Und zwar soll in Spalte B automatisch das aktuelle Datum eingetragen werden, wenn in der benachbarten Spalte C ein beliebiger Eintrag erfolgt.
und überlese ganz geflissentlich das "automatisch". Wenn eh ein manueller Eintrag erfolgt, warum dann nicht das aktuelle Datum mit STRG & . (Punkt) eintragen? Mehraufwand ca. 1-2 Sekunden.
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
Weil ich über eine Userform mit einem klick mehrere Einträge in die Spalten C:F eintragen lasse. Mit einem Klick würden also ca 10 Einträge in diesen Spalten ausgefüllt werden.
Hier ein Beispielcode. Anpassen musst Du selber. Meine Zeit war im Jahr 2007 ...
Immer wenn in Spalte A etwas eingetragen wird, dann soll in der zugehörigen Zelle, der Spalte B, ein Datum eingetragen werden. Auch der folgende Code gehört hinter das Tabellenblatt:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim bereich As Range Dim zelle As Range 'Bereich und Tabellenname anpassen Set bereich = Sheets("Tabelle1").Range("A1:A100") For Each zelle In bereich If Not IsEmpty(zelle) Then zelle.Offset(0, 1).Value = Date End If Next End Sub
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen. Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Hallo, hier wird in C1:C100 eingetagen und in B komt dann das Datum.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim bereich As Range Dim zelle As Range 'Bereich und Tabellenname anpassen Set bereich = Sheets("Tabelle1").Range("C1:C100") For Each zelle In bereich If Not IsEmpty(zelle) Then zelle.Offset(0, -1).Value = Date End If Next End Sub
Gruß Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen. Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
