Halli Hallo
Ich habe vor ein paar Wochen bereits Hilfestellung zu meinem Problem bekommen und es so gelöst allerdings möchte ich nun noch einen Schritt weiter gehen.
Mit folgendem Code kopiere ich Werte aus dem Worksheet "Template" in das Worksheet "Lager". Der Code sucht sich entsprechend in welche Zeile er den Wert schreiben soll (anhand eines Datenabgleiches und dann jeweils in die letzte Zeile):
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim letzte As Long
Dim a As Variant
Set wksQ = Worksheets("Template")
Set wksZ = Worksheets("Lager")
a = Application.Match(wksQ.Range("B13"), wksZ.Rows(2), 0)
If IsNumeric(a) Then
letzte = wksZ.Cells(Rows.Count, a).End(xlUp).Row + 1
wksQ.Range("E15").Copy
wksZ.Cells(letzte, a).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
End Sub
Ich möchte nun dass er jeweils in die Zeile daneben das aktuelle Datum und Uhrzeit schreibt.
Beispiel: der Code kopiert den Wert in die Zelle D4, dann möchte ich dass in C4 das Datum und Uhrzeit erscheint von dem Moment des kopierens.
Leider komme ich an dieser Stelle nicht weiter und hoffe auf eure Hilfe.
Kleine Frage am Rande:
Ich habe eine Zelle die ich im moment jeden morgen wieder "nullen" muss. Also den Wert löschen. Wie kann ich VBA abgleichen lassen ob ein neuer Tag begonnen und wenn ja soll er diese eine Zelle auf 0 setzen...
Beste Grüße
Euer Hans