letzte Zeile aus verschiedenen Tabellenblättern
Mandy
ich möchte aus allen Tabellenblätter, die mit "Bestand" beginnen, jeweils die letzte Zeile kopieren (als TEXT, weil Inhalt kann auch eine Formel sein) und den Inhalt (Zeile) nach "Auswertung" kopieren.
Dann zum nächsten Blatt mit "Bestand" letzte Zeile kopieren, und in "Auswertung" unterhalb der ersten einfügen, dann zur dritten Seite, letzte Zeile kopieren, rüber nach "Auswertung", einfügen....usw.
Dazu das Beispiel von Hajo:
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
If Left(WsTabelle.Name, 7) = "Bestand" Then
With WsTabelle
' Makro, letzte Zeile kopieren
End With
End If
Next WsTabelle
End Sub
wie kann ich mit dem oberen Beispiel diese Aufgabe bewältigen ?
danke mal
Mandy
Anzeige