Private Sub Workbook_Open()
30.04.2003 15:43:35
Renate
Wer kann mir helfe?
Ich wollte wenn ich meine mappe aufmachen das folgende
Private Sub Workbook_Open()
'Das klappt bei mir nicht statt 30.04.2003 ist 37741, es egal was ich tut.
'Also was machen ich falsch?
Dim i As Integer
Sheets("Tabelle2").Columns("B:B").Select
' oder Sheets("Tabelle2").Columns("B").Select
Selection.NumberFormat = "mm/dd/yyyy"
With Selection
.HorizontalAlignment = xlGeneral
End With
Hier weitere Funktion von mir das funktionier auch sehr gut
End Sub
Gruß Renate