Automatisch Zelle Rahmen
05.09.2003 15:44:46
Jessi
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