Inhalte einfügen
05.11.2020 13:57:38
Michael
ich kopiere per STRG+C einen Datensatz aus einer Datenbank und möchte dann diesen in einer Excel Tabelle einfügen.
Da in mehrere Tabellen Inhalte eingefügt werden sollen, ist die Spalte nicht ausgewählt. Ich klicke somit die Spalte selbst ein und füge es über einen Button ein. Dabei soll er die Daten in die erste freie Spalte einfügen und danach im Feld N1 das aktuelle Datum und in Feld P1 die aktuelle Uhrzeit setzen.
Verwendetes Script:
Sub PasteUpdate()
Range("A" & Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Range("N1").Select
ActiveCell.FormulaR1C1 = Date
Range("P2").Select
Range("P1").Select
ActiveCell.FormulaR1C1 = Time
End Sub
Fehlermeldung:
Laufzeitfehler 1004: Die PasteSpecial Methode des Range Objektes konnte nicht ausgeführt werden