letzte Zeile Werte übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Marco,
mit folgendem Makro kannst Du im aktiven Worksheet hinter die letzte Zeile eine formatierte Zeile anhängen:

Sub Zeile_anfügen()
    Letzte = ActiveSheet.Range("A65536").End(xlUp).Row      ' letzte Zeile ermitteln
    Rows(Letzte).Copy Rows(Letzte + 1)                      ' letzte Zeile kopieren
    Rows(Letzte + 1).ClearContents                          ' Inhalt löschen
    Application.CutCopyMode = False                         ' Zwischenablage löschen
End Sub

mit dem zweiten Makro kannst du auf dem Sheet "Ergebnis" die Ergebnisse zusammentragen:

Sub Werte_sammeln()
Dim ws As Worksheet
Dim Zeile As Integer
Dim Letzte As Integer
   Worksheets("Ergebnis").Select
   Zeile = 2                                         ' Zeile der Zielliste
   For Each ws In ActiveWorkbook.Worksheets
     x = ws.Name
     If ws.Name <> "Filter" And ws.Name <> "Muster" And ws.Name <> "Ergebnis" Then
        Letzte = ws.Range("A65536").End(xlUp).Row    ' letzte Zeile des ws ermitteln
        Range("E" & Zeile) = ws.Range("A" & Letzte)  ' Werte zuweisen
        Range("F" & Zeile) = ws.Range("B" & Letzte)
        Range("G" & Zeile) = ws.Range("H" & Letzte)
        Range("C" & Zeile) = ws.Range("I" & Letzte)
        Range("D" & Zeile) = ws.Range("J" & Letzte)
        Zeile = Zeile + 1
     End If
   Next ws
End Sub

Unschön am zweiten Makro ist, dass er die Worksheets der Reihe nach abarbeitet und in Deiner Ergebnisliste untereinander schreibt. Er überprüft nicht, ob der Name des Worksheets mit der Ergebniszeile übereinstimmt. Dies solltest Du noch einbauen - aber dazu müsstest Du die Namen der Worksheets ändern oder die Ergebniszeilen um "Zuluftfilter" statt "Zul." erweitern. Andernfalls wird die Suche recht komplex.
viele Grüße. Heide

hallo Marco,
Falls auf den einzelnen Sheets die Zeile für Filterkontrolle und Filterwechsel nicht komplett gefüllt wird (Filterkontrolle ist schon neu, Filterwechsel endet irgendwo vorher), dann das zweite Makro so:

Sub Werte_sammeln()
Dim ws As Worksheet
Dim Zeile As Integer
Dim Letzte As Integer
   Worksheets("Ergebnis").Select
   Zeile = 2                                         ' Zeile der Zielliste
   For Each ws In ActiveWorkbook.Worksheets
     x = ws.Name
     If ws.Name <> "Filter" And ws.Name <> "Muster" And ws.Name <> "Ergebnis" Then
        Letzte = ws.Range("A65536").End(xlUp).Row    ' letzte Zeile Filterkontrolle
        Range("E" & Zeile) = ws.Range("A" & Letzte)  ' Werte zuweisen
        Range("F" & Zeile) = ws.Range("B" & Letzte)
        Range("G" & Zeile) = ws.Range("H" & Letzte)
        Letzte = ws.Range("I65536").End(xlUp).Row    ' letzte Zeile Filterwechsel
        Range("C" & Zeile) = ws.Range("I" & Letzte)
        Range("D" & Zeile) = ws.Range("J" & Letzte)
        Zeile = Zeile + 1
     End If
   Next ws
End Sub

viele Grüße. Heide

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

letzte Zeile Werte übertragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread