Herbers Excel-Forum - das Archiv

Daten gefiltert in Tab. einlesen

Bild

Betrifft: Daten gefiltert in Tab. einlesen
von: Matthias

Geschrieben am: 06.04.2005 15:08:37
Hallo folgendes Problem hat sich zugetragen.
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
Bild

Betrifft: AW: Daten gefiltert in Tab. einlesen
von: Tobias Marx

Geschrieben am: 06.04.2005 15:30:18
Servus!
Im Prinzip einfach ueber eine for...next-Schleife, die ueberprueft, ob ein Wert schon vorhanden ist, aber ich hab jetzt keine Zeit mehr, dir das zu beantworten, weil ich gleich _FEIERABEND_ hab! :-)

Gruss

Tobias
 Bild
Excel-Beispiele zum Thema "Daten gefiltert in Tab. einlesen"
Summe gefilterter Zeilen Gefilterte Daten in eine ListBox einlesen
Gefilterte Daten ohne Zwischenablage übertragen Gefilterte Daten in neues Tabellenblatt übertragen
HTML-Datei aus gefilterten Daten mit Hyperlinks aufbauen Modalwert einer gefilterten Reihe berechnen
Den ersten Wert einer gefilterten Spalte ermitteln Gefilterte Daten in Array ein und aus Array auslesen
Gefilterte Daten summieren Tabellenblattnamen in ein Listenfeld einlesen