Thema Datum  Von Nutzer Rating
Antwort
03.02.2007 23:59:18 Jack
NotSolved
06.02.2007 18:39:32 Stef_113
NotSolved
Rot Aw:Frage
 06.02.2007 20:36:28 Jack Bauer
NotSolved

Ansicht des Beitrags:
Von:
Jack Bauer		 Datum:
06.02.2007 20:36:28		 Views:
999		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Frage
Hallo Stefan, habe das Problem forgendermaßen gelöst.

Sub Data_Transfer()
Application.ScreenUpdating = False
Dim Daten(20) As Variant
Qname = ActiveWorkbook.Name
Range("A2").Select
Zname = "C:\Ziel.xls"
Workbooks.Open Filename:=Zname
ZnameS = ActiveWorkbook.Name
Range("A2:S65000").Select
Selection.ClearContents
Range("A2").Select
Windows(Qname).Activate
Do
If ActiveCell.Offset(0, 2) = "z" Or ActiveCell.Offset(0, 2) = "x" Then
P = 1
Do
Daten(P) = ActiveCell.Offset(0, P - 1)
P = P + 1
Loop While P ""


Application.ScreenUpdating = False
End Sub

Stef_113 schrieb am 06.02.2007 18:39:32:

Hallo Jack,

versteht ich das richtig, du willst zwei Tabellen syncronisieren, aber mit einem Filter, der nur bestimmte Werte exportiert? - Falls ja, würde ich es mit einer Schleife umsetzen, die bei jedem einzelnen Datensatz checkt, ob die Werte von der einen (d:) x und z lauten und sie kopiert. Falls du dabei hilfe brauchst kannst du ja nochmal fragen.

Stefan



Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.02.2007 23:59:18 Jack
NotSolved
06.02.2007 18:39:32 Stef_113
NotSolved
Rot Aw:Frage
 06.02.2007 20:36:28 Jack Bauer
NotSolved