Hallo Ihr Profis,
Problem: Datei „Reklamation-STW.xls“ enthält variable Datensätze im Blatt „Ausdruck“
von A6:S23 (variabel, bis max S23). Diese Datensätze sollen für eine Auswertung
(vor dem löschen) in die Datei ("Statistik-Reklamation.xls") kpl. Als WERTE übernommen werden und unter den letzen Datensatz angefügt werden.
Das funktioniert auch aber leider nur mit EINEM (den letzten) Datensatz ,
was habe ich falsch gemacht??
In der Datei „Reklamation-STW.xls“ werden unterschiedliche Mengen 1-17 Datensätze
stehen.
Ich möchte keine leeren Zeilen nach "Statistik-Reklamation.xls" übertragen !!
Wie kann ich das lösen ?????
Sub Löschen_Eingabe_Reklamation_STW()
'
' Löschen_Eingabe_Reklamation_STW Makro
' Tastenkombination: Strg+l
'ub Tranfer_Dat()
Dim Ziel As Object, Quelle As Object
Dim LZ As Long
Workbooks.Open Filename:="K:\ST-Reklamation\Statistik-Reklamation.xls"
Set Ziel = Workbooks("Statistik-Reklamation.xls")
Set Quelle = Workbooks("Reklamation-STW.xls").Sheets("Ausdruck")
'Windows("Reklamation-STW").Activate
'Sheets("Ausdruck").Select
LZ = Ziel.Sheets("STW-Reklamation").Range("A65536").End(xlUp).Row + 1
Ziel.Sheets("STW-Reklamation").Range("A" & LZ & ":S" & LZ).Value = _
Quelle.Range("A6:S23").Value
Ziel.Close True
Sheets("Eingabe").Select
ActiveWindow.SmallScroll Down:=-6
Range("A6:G23").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-21
Range("A6").Select
End Sub
