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

Beiträge aus den Excel-Beispielen zum Thema "Daten gefiltert in Tab. einlesen"