Datum kurz formatieren
26.01.2019 22:46:52
Christian
ich möchte gerne per VBA bestimmten Spalte mit dem Format "Datum Kurz" formatieren. Leider meckert der Compiler bei meinen Versuch die Spalten zu formatieren (Schwarz markiert). Wo könnte mein Fehler liegen?
Beste Grüße und vielen Dank
Christian
Option Explicit
Private Sub CommandButton1_Click()
Dim loLetzte As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Worksheets("WO Monitor").Range("B11:H200").Clear
With Worksheets("Shipset")
If .AutoFilterMode = True Then
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Else
.Columns("A:U").AutoFilter
End If
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("$A$1:$U$" & loLetzte).AutoFilter Field:=1, Criteria1:=Worksheets("WO Monitor") _
.Range("C3")
.Range("$A$1:$U$" & loLetzte).AutoFilter Field:=17, Criteria1:=Worksheets("WO Monitor") _
.Range("C4")
.Range("$A$1:$AD$2400").AutoFilter Field:=12, Criteria1:=">1299999", Operator:=xlAnd, _
Criteria2:=" 1 Then
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns(3).Copy ' KIT
Worksheets("WO Monitor").Range("B11").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns(12).Copy 'WO
Worksheets("WO Monitor").Range("C11").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns(14).Copy 'WO Status
Worksheets("WO Monitor").Range("D11").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns(19).Copy 'Factory Status
Worksheets("WO Monitor").Range("E11").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns(15).Copy 'WO Start
Worksheets("WO Monitor").Range("F11").PasteSpecial Paste:=xlPasteValues
.Offset(1).Resize(.Rows.Count - 1).Columns(16).Copy 'WO Ende
Worksheets("WO Monitor").Range("G11").PasteSpecial Paste:=xlPasteValues
Worksheets("WO Monitor").Range("F11:F").NumberFormat = "m/d/yyyy"
Worksheets("WO Monitor").Range("G11:G").NumberFormat = "m/d/yyyy"
End With
Else
MsgBox "Kein Treffer."
End If
.ShowAllData
End With
End sub