Das angeführte Makro soll in die erste freie Zelle in Spalte a Datum+Uhrzeit eintagen, nach rechts springen, ein Produkt eingeben und nach rechts springen.
Klappt alles bis auf den Eintrag, ich erhalte in Spalte b immer eine leere Zelle ...
Tastenkombination: Strg+a
'
[A:A].SpecialCells(xlBlanks).Cells(1).Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Activate
FormulaR1C1 = einlesen = InputBox("Produkt eingeben?")
ActiveCell.Offset(0, 1).Activate
End Sub
|