AW: Format Datum
01.02.2017 13:57:51
UweD
Hallo
1)
Das Datum ist in Spalte 1 nicht vorhanden, kann also im match kein Ergebnis liefern.
Also erst mal prüfen, ob es da ist.
2)
Du willst was einfügen, hast aber vorher nichts kopiert.
Da kann ich dir nicht helfen, da ich nicht erkennen kann was du kopieren möchtest
Sub Übertrag_aktJahr()
On Error GoTo Fehler
Application.ScreenUpdating = False
Application.EnableEvents = False
usrDatum.Show
Zieldatei = "Tabelle1"
Quelldatei = "Tabelle2"
If WorksheetFunction.CountIf(Worksheets(Quelldatei).Rows(1), CLng(Datum_Ziel)) = 0 Or _
WorksheetFunction.CountIf(Worksheets(Quelldatei).Rows(1), CLng(Datum_Ziel1)) = 0 Then
MsgBox "Datum in Quelldatei nicht vorhanden"
Else
Spalte_Datum = Application.Match(CLng(Datum_Ziel), Worksheets(Quelldatei).Rows(1), 0)
Spalte_Datum1 = Application.Match(CLng(Datum_Ziel1), Worksheets(Quelldatei).Rows(1), 0)
With Worksheets(Zieldatei)
For Start = 4 To 115
If WorksheetFunction.CountIf(.Rows(3), CDate(Datum_Ziel)) = 0 Then
MsgBox "Datum " & CDate(Datum_Ziel) & " in Zieldatei nicht vorhanden"
Else
Spalte_Ziel_Copy = Application.Match(CLng(Datum_Ziel), .Rows(3), 0)
'Irgendwo fehlt das copieren.
'du kannst nichts einfügen, was vorher nicht kopiert wurde
.Cells(Start, Spalte_Ziel_Copy).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
Next Start
End With
End If
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number <> 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD