Hallo zusammen,
ihr seit echt die besten. Danke :-)
Bei diesem Code ist das Problem fast das gleiche. Sobald er nur eine Zeile hat macht er ein Problem.
Kann man hier dies auch irgendwo mit einfügen ?
Wenn ja wo ?
Sub TB_Zusammenfassung_Aktualisieren()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim letzteZ As Long
With Worksheets("Zusammenfassung ")
If .FilterMode Then Call .ShowAllData
End With
Range("A3:J1000000").ClearContents
Range("A3").Select
Set wksQ = Worksheets("Daten aus CSV")
Set wksZ = Worksheets("Zusammenfassung ")
letzteZ = Application.Max(3, wksZ.Cells(Rows.Count, 1).End(xlUp).Row + 1) 'Rows.Count, 1 welche _
Spalte in Zusammenfassung
wksQ.Range("A2:A" & wksQ.Cells(Rows.Count, 1).End(xlUp).Row).Copy wksZ.Cells(letzteZ, 1) ' _
wksZ.Cells(letzteZ, 1 welche Spalte in Zusammenfassung
letzteZ = Application.Max(3, wksZ.Cells(Rows.Count, 7).End(xlUp).Row + 1) 'Rows.Count, 1 welche _
Spalte in Zusammenfassung
wksQ.Range("C2:C" & wksQ.Cells(Rows.Count, 1).End(xlUp).Row).Copy wksZ.Cells(letzteZ, 7) ' _
wksZ.Cells(letzteZ, 1 welche Spalte in Zusammenfassung
letzteZ = Application.Max(3, wksZ.Cells(Rows.Count, 3).End(xlUp).Row + 1) 'Rows.Count, 1 welche _
Spalte in Zusammenfassung
wksQ.Range("G2:G" & wksQ.Cells(Rows.Count, 1).End(xlUp).Row).Copy wksZ.Cells(letzteZ, 3) ' _
wksZ.Cells(letzteZ, 1 welche Spalte in Zusammenfassung
letzteZ = Application.Max(3, wksZ.Cells(Rows.Count, 4).End(xlUp).Row + 1) 'Rows.Count, 1 welche _
Spalte in Zusammenfassung
wksQ.Range("H2:H" & wksQ.Cells(Rows.Count, 1).End(xlUp).Row).Copy wksZ.Cells(letzteZ, 4) ' _
wksZ.Cells(letzteZ, 1 welche Spalte in Zusammenfassung
letzteZ = Application.Max(3, wksZ.Cells(Rows.Count, 9).End(xlUp).Row + 1) 'Rows.Count, 1 welche _
Spalte in Zusammenfassung
wksQ.Range("i2:i" & wksQ.Cells(Rows.Count, 1).End(xlUp).Row).Copy wksZ.Cells(letzteZ, 9) ' _
wksZ.Cells(letzteZ, 1 welche Spalte in Zusammenfassung
letzteZ = Application.Max(3, wksZ.Cells(Rows.Count, 8).End(xlUp).Row + 1) 'Rows.Count, 1 welche _
Spalte in Zusammenfassung
wksQ.Range("d2:d" & wksQ.Cells(Rows.Count, 1).End(xlUp).Row).Copy wksZ.Cells(letzteZ, 8) ' _
wksZ.Cells(letzteZ, 1 welche Spalte in Zusammenfassung
Range("A2:J100000").Select
ActiveWorkbook.Worksheets("Zusammenfassung ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Zusammenfassung ").Sort.SortFields.Add Key:= _
Range("A3:A100000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Zusammenfassung ").Sort
.SetRange Range("A2:J100000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B3") = "=IFERROR(VLOOKUP(RC[5],'Daten aus SAP '!C[-1]:C[2],2,FALSE),""Daten prü _
fen"")"
Range("E3") = "=IFERROR(VLOOKUP(RC[2],'Daten aus SAP '!C[-4]:C[-1],4,FALSE),""Daten prü _
fen"")"
Range("F3") = "=IFERROR(VLOOKUP(RC[1],'Daten aus SAP '!C[-5]:C[-3],3,FALSE),""Daten prü _
fen"")"
Range("F4").Select
Range("B3:B3").AutoFill Destination:=Range("B3:B" & Cells(Rows.Count, "A").End(xlUp).Row), _
Type:=xlFillDefault
Range("E3:F3").AutoFill Destination:=Range("E3:F" & Cells(Rows.Count, "A").End(xlUp).Row), _
Type:=xlFillDefault
Range("I3") = "=IFERROR(VLOOKUP(RC[-4],'Daten aus SAP '!C[-5]:C[-4],2,FALSE),""Fehler"")" _
Range("i3:i3").AutoFill Destination:=Range("i3:i" & Cells(Rows.Count, "A").End(xlUp).Row), _
Type:=xlFillDefault
End Sub
Danke :-)