Dateiübergreifendes kopieren

Hi,
ich habe mich mit meinem Problem schon einmal an die Experten in diesem Forum gewandt. Leider ohne hilfreiche Antwort. Wahrscheinlich hab ich mich unverständlich ausgedrückt. Also, neuer Versuch:
In einer Datei (list.xls; sheet:Artikel) sind in Spalte "A" 5-stellige und 9-stellige Werte untereinander eingetragen. Die 5-stelligen möchte ich nun beim Klick auf einen Button in eine andere Datei kopieren (übersicht.xls; sheet:übersicht). Die 9-stelligen müssten irgendwie mit einer if-Abfrage o.ä. außen vor gelassen werden. Die Daten stehen also in 'list.xls' ab Zelle A8 abwärts und sollen in 'übersicht.xls' ab A10 abwärts eingetragen werden.
Hoffe auf eure Fachkenntnis, da ich selbst (fast) kein VBA kann.
Tom

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Fuenfer_Sort() Dim lngQZeil As Long Dim lngZZeil As Long Dim wksQ As Worksheet Dim wksZ As Worksheet Set wksQ = ActiveWorkbook.Sheets("Artikel") Set wksZ = Workbooks("übersicht.xls").Worksheets("übersicht") lngZeil = 8 lngQZeil = 10 Do If Len(wksQ.Cells(lngZeil, 1)) = 5 Then wksQ.Cells(lngQZeil, 1).Copy wksZ.Cells(lngZZeil, 1) lngZZeil = lngZZeil + 1 End If Loop Until wksQ.Cells(lngZeil, 1) = "" End Sub

Sub Fuenfer_Sort() Dim lngQZeil As Long Dim lngZZeil As Long Dim wksQ As Worksheet Dim wksZ As Worksheet Set wksQ = ActiveWorkbook.Sheets("Ettlin Verkaufsartikel") Set wksZ = Workbooks("Spiel-Ett.xls").Worksheets("übersicht") lngZeil = 8 lngQZeil = 10 Do If Len(wksQ.Cells(lngZeil, 1)) = 5 Then wksQ.Cells(lngQZeil, 1).Copy wksZ.Cells(lngZZeil, 1) 'Hier kommt der Fehler!!! lngZZeil = lngZZeil + 1 End If Loop Until wksQ.Cells(lngZeil, 1) = "" End Sub

Sub Fuenfer_Sort() Dim lngQZeil As Long Dim lngZZeil As Long Dim wksQ As Worksheet Dim wksZ As Worksheet Set wksQ = ActiveWorkbook.Sheets("Ettlin Verkaufsartikel") Set wksZ = Workbooks("Spiel-Ett.xls").Worksheets("übersicht") lngZZeil = 8 lngQZeil = 10 Do If Len(wksQ.Cells(lngZeil, 1)) = 5 Then wksQ.Cells(lngQZeil, 1).Copy wksZ.Cells(lngZZeil, 1) 'Hier kommt der Fehler!!! lngZZeil = lngZZeil + 1 End If Loop Until wksQ.Cells(lngZeil, 1) = "" End Sub

Hi,
habs heut morgen selbst gemerkt, dass da wohl ein Z zuviel oder zuwenig ist. Leider hats trotzdem nicht funktioniert. Hab dann selber n bissl rumgebastelt. Jetzt kommt zwar kein Fehler aber es macht auch nix. Läuft auch nur sehr kurz. Sieht so aus als ob die Schleife gleich abbricht. Zelle A7 ist übrigens leer, aber die Schleife geht doch erst ab A8 los, oder hab ich das falsch verstanden?


Sub Fuenfer_Sort()
Dim lngQZeil As Long
Dim lngZeil As Long
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = ActiveWorkbook.Sheets("Ettlin Verkaufsartikel")
Set wksZ = Workbooks("Spiel-Ett.xls").Worksheets("Übersicht")
lngZeil = 10    'hab die beiden vertauscht, Ziel ist 10 Quell ist 8
lngQZeil = 8
Do
lngQZeil = lngQZeil + 1   'lngQZeil muss sich doch auch erhöhen, oder?
If Len(wksQ.Cells(lngZeil, 1)) = 5 Then
wksQ.Cells(lngQZeil, 1).Copy wksZ.Cells(lngZeil, 1)
lngZeil = lngZeil + 1
End If
Loop Until wksQ.Cells(lngQZeil, 1) = ""  'hier hat ein Q gefehlt
End Sub

Vielleicht findest du den Fehler. Schonmal vielen Dank für die Mühe.
Tom

Sub Fuenfer_Sort() Dim lngQZeil As Long Dim lngLZeil As Long Dim lngZZeil As Long Dim wksQ As Worksheet Dim wksZ As Worksheet Set wksQ = ActiveWorkbook.Sheets(4) Set wksZ = Workbooks("Test.xls").Worksheets(1) lngZZeil = 8 lngQZeil = 10 lngLZeil = wksQ.Cells(wksQ.Rows.Count, 1).End(xlUp).Row Do If Len(wksQ.Cells(lngZeil, 1)) = 5 Then wksQ.Cells(lngQZeil, 1).Copy wksZ.Cells(lngZZeil, 1) lngZZeil = lngZZeil + 1 End If lngQZeil = lngQZeil + 1 Loop Until lngQZeil = lngLZeil End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread