Zeilen per Makro markieren lassen

Hallo Zusammen,
ich habe eine Tabelle (Einnahmen/Ausgaben verschiedener Abteilungen) aus einem PDF erstellen lassen. Diese enthält ein paar Spalten (Sachkonto, Haben, Soll, Saldo). In den Zeilen sind die jeweiligen Werte für die Spalten enthalten. Die Abteilungen fangen in einer Zelle (z.b. Spalte A/Zeile2) mit "Abteilung 1" an und enden nach einigen Zeilen (je Abteilung unterschiedliche Anzahl an Zeilen) mit "Summe" (z.B. Spalte A/Zeile 26). Danach fängt die "Abteilung 2" (z.B. Spalte A/Zeile 28) und endet wiederum mit "Summe" (z.B. Spalte A/Zeile 47).
Jetzt soll mittels Makro der Bereich jeder Abteilung markiert und per cut/paste in ein neues Blatt eingefügt werden. Also zuerst Zeile 2 bis 26 markieren, cut/paste in Blatt "Abteilung 1". Dann markiere Zeile 28 bis 47, cut/paste in Blatt "Abteilung 2" usw. Wie gesagt, die Anzahl der Zeilen je Abteilung ist unterschiedlich.
Nochmal: such in Spalte X nach Abteilung 1 und Summe, markiere den Bereich dazwischen, cut/paste in neues Blatt "Abteilung 1". Geht das per Makro.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

das verwirrt etwas. du schriebst doch das du die Abteilungen bereits in der Tabelle hast. Und diese Abteilungen sind das Filterkriterium. Nun lese ich das du die Abteilungsnummern von Hand einträgst.
Grundsätzlich denke ich, das man die Abteilungen als eindeutige Liste erfasst und dann eine Programmschleife nutzt, die durch die Liste geht und jedesmal dein Filtermakro anwendet.
Hier hab ich dir mal etwas Ähnliches herausgesucht und kommentiert.


Sub EintraegeUmverteilen()
Dim arrSB
Dim SB
Application.ScreenUpdating = False
'--- Liste der SBs erstellen und in Array-Variable Speichern
'Spalte A filtern, eindeutige Werte nach I1 kopieren
Sheets("Tabelle1").Range("A:A").AdvancedFilter xlFilterCopy, , Sheets("Tabelle1").Range("i1").Cells, True
'Kopfzeile löschen
Sheets("Tabelle1").Range("i1").Delete shift:=xlUp
'wertebereich in Array schreiben
arrSB = Sheets("Tabelle1").Range("i1").CurrentRegion
'wertebereich in Tabellenblatt löschen
Sheets("Tabelle1").Range("i1").EntireColumn.Delete
'--- Jeden SB filtern und drucken
'array für schleife nutzen
For Each SB In arrSB
'Inhalte in Zielblatt löschen
Sheets(SB).Cells.Clear
'Kopfzeilen in Zielblatt kopieren
Sheets("Tabelle1").Range("A1:F1").Copy
Sheets(SB).Range("A1").PasteSpecial Paste:=xlPasteAll
'Filtern
Sheets("Tabelle1").Range("A:A").AutoFilter Field:=1, Criteria1:=SB
'Sichtbaren Bereich Kopieren
Sheets("Tabelle1").Range("A2:F" & Sheets("Tabelle1").UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
'In Zielblatt unterhalb Kopfzeile einfügen
Sheets(SB).Range("A2").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Next
'Filter zurücksetzen
Sheets("Tabelle1").ShowAllData
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen per Makro markieren lassen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread