Ich will alle Teile von Tabelle1Spalte1 in Tabelle4Spalte1 einlesen( ab den nächst freien Feld). Das klappt auch schon ganz gut
Nun sollen aber nur die Teile von Tabelle1Spalte1 eingelesen werden die in Tabelle4Spalte1 noch nicht existieren. Der Rest nicht
Qellcode:
Sub kopieren()
Dim lngRowLast As Long
endtbl1 = Worksheets("100").Range("A65536").End(xlUp).Row
endtbl2 = Worksheets("101").Range("A65536").End(xlUp).Row
endtbl3 = Worksheets("102").Range("A65536").End(xlUp).Row
endtbl = Worksheets("Tabelle4").Range("A65536").End(xlUp).Row
Worksheets("100").Select
Range("A1:A" & endtbl1).Select
Selection.Copy
Worksheets("Tabelle4").Select
Range("A" & endtbl + 1).Select
ActiveSheet.Paste
endtbl = Worksheets("Tabelle4").Range("A65536").End(xlUp).Row
Worksheets("101").Select
Range("A1:A" & endtbl2).Select
Selection.Copy
Worksheets("Tabelle4").Select
Range("A" & endtbl + 1).Select
ActiveSheet.Paste
endtbl = Worksheets("Tabelle4").Range("A65536").End(xlUp).Row
Worksheets("102").Select
Range("A1:A" & endtbl3).Select
Selection.Copy
Worksheets("Tabelle4").Select
Range("A" & endtbl + 1).Select
ActiveSheet.Paste
endtbl = Worksheets("Tabelle4").Range("A65536").End(xlUp).Row
Worksheets("Tabelle4").Range("A1:A65536").Sort Key1:=Range("A1")
'ActiveSheet.Range("A1:Z99").Sort Key1:=Range("B1") Order1:=xlAscending
End Sub
Könnt ihr da helfen? wäre echt Super.
Danke