PDA

Vollständige Version anzeigen : Makro, Spalte mit Datum


jan_30
17.07.2014, 07:56
Hallo,

kann ich folgenden Code umstellen, das in der „Tabelle1“ die Spalte AP2:AP300 ein Datum automatisch eintragen wird.

Das Datum soll von der Tabelle „Menü“ Zelle D1 übernommen werden.

Selection.NumberFormat = "@"
Sheets("Tabelle1").Select
Range("F1:AO300").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.NumberFormat = "@"
Sheets("Menü").Select
End Sub


VG
Jan

Mc Santa
17.07.2014, 08:00
Hallo,

schau mal, ob dir das hilft:
Sheets("Tabelle1").Range("AP2:AP300") = Sheets("Menü").Range("D1")

VG