Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatischer Sprung ans Ende der neuen Tabelle

Automatischer Sprung ans Ende der neuen Tabelle
15.08.2007 14:44:00
Christian
Hi!
Ich kopiere über ein Makro schrittweise Daten in ein neues Excel-Sheet. Nachdem die erste Datenzeile in das neue Sheet eingefügt ist, löscht das Macro autom. diese Zeile im Original. Jetzt starte ich das Macro erneut und er beginnt natürlich von vorne. Soweit so gut. Jetzt überschreibt er aber die Daten vom ersten Kopiervorgang ohne an das Ende der Tabelle zu springen! Wie kann ich dem Macro mitteilen, das es genau das tun soll und wie kann ich das macro autom. so lange ausführen lassen bis das Original "leer" ist, d.h. alle Zeilen, nach dem kopieren, gelöscht wurden.
  • 
    Sub Schritt1Uhrzeit()
    ' Schritt1Uhrzeit Makro
    ' Makro am 15.08.2007 von Christian Sprenger aufgezeichnet
    Range("C1:Z1").Select
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    Sheets("01.10.05 - 29.10.05").Select
    Range("A2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("A1:A24").Select
    ActiveSheet.Paste
    Sheets("01.10.05 - 29.10.05").Select
    Range("C2:Z2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    Sheets("01.10.05 - 29.10.05").Select
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    End Sub
    

    Vielen Dank für eure Hilfe schon einmal im vorraus.


  • 1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Automatischer Sprung ans Ende der neuen Tabell
    15.08.2007 15:28:00
    Ramses
    Hallo
    Probier mal

    Sub Schritt1Uhrzeit()
        Dim lastRow As Long
        Dim qWks As Worksheet, tarWks As Worksheet
        Set qWks = ActiveSheet
        Set tarWks = Worksheets("Tabelle1")
        With qWks
            lastRow = tarWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 26)).Copy Destination:=tarWks.Cells(lastRow, 1)
            .Rows(ActiveCell.Row).Delete
        End With
    End Sub

    Das Makro kopiert aus der aktiven !! Tabelle in die unter "tarWks" angegebene Tabelle den Bereich von A-Z. Musst du mehr oder weniger haben, einfach die "26" entsprechend abändern.
    Gruss Rainer
    Anzeige

    308 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige