Office - Word, Excel und Co. 9.735 Themen, 41.335 Beiträge

Verfolgung starten Optionen

Probleme bei Makro für Datenübername

svent / 1 Antworten / Flachansicht Nickles

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

bei Antwort benachrichtigen
Uli M svent „Probleme bei Makro für Datenübername“
Optionen

Tja - immer die Probleme mit den Ranges in Excel. Versuch's mit C&P:
Sub Löschen_Eingabe_Reklamation_STW()
Dim oWbQuelle As Workbook, oWbZiel As Workbook
Dim oShQuelle As Worksheet, oShZiel As Worksheet
Dim lLastRowQuelle As Long, lLastRowZiel As Long
Dim oRgQuelle As Range, oRgZiel As Range

Set oWbQuelle = ActiveWorkbook ' scheint ja das akt. zu sein (?)
Set oShQuelle = oWbQuelle.Sheets("Ausdruck")
Set oWbZiel = Workbooks.Open("K:\\ST-Reklamation\\Statistik-Reklamation.xls")
Set oShZiel = oWbZiel.Sheets("STW-Reklamation")

oShQuelle.Activate
lLastRowQuelle = oShQuelle.Range("A6").End(xlDown).Row
oShZiel.Activate
lLastRowZiel = oShZiel.Range("A65536").End(xlUp).Row + 1
Set oRgQuelle = oShQuelle.Range("A6: S" & lLastRowQuelle)
Set oRgZiel = Range("A" & lLastRowZiel)
oRgQuelle.Cut
oRgZiel.Select
oShZiel.Paste
oRgQuelle.EntireRow.Delete xlShiftDown
oWbZiel.Close True
End Sub

bei Antwort benachrichtigen