Hallo,

Excel trägt durch diesen Code automatisch daten in Zellen ein

Dim aCell As Range

Set TB1 = Worksheets("Tabelle3")
Set TB2 = Worksheets("Tabelle4")

'' Quittungsdaten in Quittungsliste eintragen
Set aCell = TB2.Cells(TB2.Cells.Rows.Count, 3).End(xlUp).Offset(1, 0)
aCell = Date

With aCell

.Offset(0, 1) = TB1.[d13]
.Offset(0, 2) = TB1.[e7]

End With

jetzt müßten die drei Zellen in die eingetragen wird, noch automatisch mit einen Rahmen formatiert werde.

geht das?

Danke schon mal

Gruß
Jessi