Hilfe bei Schleife für mein Macro

  • Excel

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Hilfe bei Schleife für mein Macro

    Hallo ich bin nicht sehr gut in VBA und komme selbt mit Hilfe nicht zu meinen Ziel

    Ich bräuchte eine Schleife die mein Macro so lange wiederholt bis in Zelle A nichts mehr steht bzw mein Macro nur dann anwendet wenn in Zelle A ein Wert (Datum) steht



    mein Ansatz

    Visual Basic-Quellcode

    1. Sub Makro1()
    2. '
    3. ' Makro1 Makro
    4. '
    6. '
    8. Range("A2,F2,G2").Select
    9. Range("G2").Activate
    10. Selection.Copy
    11. Windows("Batchverbrauchrev1_test06.09.2012.xls").Activate
    12. Range("D1").Select
    13. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    14. :=False, Transpose:=False
    15. Range("C4").Select
    16. Application.CutCopyMode = False
    17. Selection.Copy
    18. Windows("Produktionsauswertung_test06.09.2012.xlsx").Activate
    19. Range("N2").Select
    20. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    21. :=False, Transpose:=False


    ***

    End Sub

    ***

    Nexter Schritt wäre dann



    Visual Basic-Quellcode

    1. Range("A3,F1033,G3").Select
    2. Range("G3").Activate
    3. Selection.Copy
    4. Windows("Batchverbrauchrev1_test06.09.2012.xls").Activate
    5. Range("D1").Select
    6. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    7. :=False, Transpose:=False
    8. Range("C4").Select
    9. Application.CutCopyMode = False
    10. Selection.Copy
    11. Windows("Produktionsauswertung_test06.09.2012.xlsx").Activate
    12. Range("N3").Select
    13. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    14. :=False, Transpose:=False



    (der umfang beträgt ca. 2000 Zeilen )



    ich hoffe es kann geholfen werden

    MfG Sunny

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Sunny0312“ ()

    ok erste erfolge mit hilfe aber immer noch nicht ganz fertig :D


    Visual Basic-Quellcode

    1. Sub daten_kopieren()
    2. Dim Zieldatei As String
    3. Dim lzeile, zeile As Long
    5. 'Bildschirmaktualisierung ausschalten:
    6. Application.ScreenUpdating = False
    8. 'Name der anderen Datei festlegen
    9. Zieldatei = "Batchverbrauchrev1_test06.09.2012.xls"
    11. 'letzte Zeile in der aktiven Tabelle ermitteln
    12. lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    14. For zeile = 3 To lzeile
    15. 'A wird kopiert
    16. Workbooks(Zieldatei).Sheets("Synthese").Cells(1, 2) = ThisWorkbook.ActiveSheet.Cells(zeile, 1).Value
    17. 'F wird kopiert
    18. Workbooks(Zieldatei).Sheets("Synthese").Cells(2, 2) = ThisWorkbook.ActiveSheet.Cells(zeile, 6).Value
    19. 'G wird kopiert
    20. Workbooks(Zieldatei).Sheets("Synthese").Cells(3, 2) = ThisWorkbook.ActiveSheet.Cells(zeile, 7).Value
    21. 'Wert in N schreiben
    22. ThisWorkbook.ActiveSheet.Cells(zeile, 14) = Workbooks(Zieldatei).Sheets("Synthese").Cells(4, 2).Value
    23. Next zeile
    25. 'Bildschirmaktualisierung einschalten:
    26. Application.ScreenUpdating = True
    28. End Sub







    es läuft ohne fehlermeldung und es läuft auch aber die daten welche in spalte N übertragen werden sollen sind am ende nicht mehr da

    ??? gibt es eine lösund das der wert der in n ankommt fest gemacht wird egal was in den anderen arbeitsblatt steht ???


    mfg

    was ?
    kleiner Tip noch...
    Definiere am Anfang deine Workbooks und Worksheets.. kannste später einfacher drauf zugreifen. Und ThisWorkbook und ActiveWorksheet geht schon mal in die Hose..

    Visual Basic-Quellcode

    1. Dim wbUrsprung as Workbook
    2. Set wbUrsprung = Workbooks("Holla")
    3. Dim wsUrsprung as worksheet
    4. Set wsUrsprung = wbUrsprung.Worksheets("Tabelle123")

    haste vielleicht die Zuordnung in der letzten Zeile vertauscht

    Visual Basic-Quellcode

    1. xlCellTypeLastCell


    ist das die Variable, die das gleiche bewirkt wie Str Ende?

    Dann könnte es auch vorkommen, dass die Tabelle zwar nur 3 Zeilen hat,
    aber die letzte benutzte Zeile viel weiter unten liegt, falls vorher
    dort etwas stand.