Kopieren in autom. erstellte neue Mappen

Hallo,
leider habe ich keine VBA-Erfahrung, aber eine Menge Daten zu verarbeiten.
In meiner Tabelle: https://www.herber.de/bbs/user/141062.xlsx gibt es einmal 'Tabelle 1' mit den Daten pro Vegetationseinheit. Nun möchte ich die Arten pro Einheit filtern (alle leeren Zellen ausschließen) und anschließend die Artnamen und die Zahlen (Zeile 3 bis 177) in ein neues Arbeitsblatt in A5 bis B64 reinkopieren. Dieses neue Arbeitsblatt soll eine Kopie des Blattes 'blank' sein und automatisch nummeriert werden, fortlaufend ab 5 bzw. nach Zeile 1 in 'Tabelle 1'.
In einem zweiten Arbeitsschritt würde ich dann gerne aus jeder blank-Kopie die Zellen A4 bis B74 in ein Worddokument kopieren...
Sofern das überhaupt möglich ist, würde ich mich sehr über eine Hilfestellung freuen. :-)
Vielen Dank schon mal und liebe Grüße,
Dorit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, Ralf!
Vielen Dank für Deine Hilfe. Die Arbeitsblätter hat das Makro hervorragend produziert, wie ich die automatische Blätterproduktion mit der Makroaufzeichnerei hinbekommen hätte, wüßte ich nicht. Nun wollte ich den Code so anpassen, daß nur die Werte und nicht die Formatierung kopiert werden und habe versucht, folgenden Code https://www.herber.de/forum/archiv/420to424/421901_Zellen_kopieren_ohne_Formatierung.html einzubauen:

Sub Kopieren()
Sheets("Datei1).Range("A4").Copy
Sheets("Datei2).Range("B4").PasteSpecial Paste:=xlPasteValues
End Sub

Mir ist allerdings nicht so klar, was da wie ersetzt werden soll, da ich in Deinem Code kein Paste finde. Ich habe verschiedene Varianten probiert, z. B. sieht es dann bei mir in Zeile 62 so aus:

wsTab1.Range(wsTab1.Cells(5, x), wsTab1.Cells(lrow, x)).SpecialCells(xlCellTypeVisible).Copy .Range("B5").PasteSpecial _Operation:=xlPasteValues

und funktioniert nicht...
Ich wäre Dir nochmal sehr dankbar für eine Hilfestellung.
Liebe Grüße
Dorit

Option Explicit Public Sub Versuch() Dim loZeile As Long, loSpalte As Long, i As Long Dim raBereich As Range Application.ScreenUpdating = False With Worksheets("Tabelle1") loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column For i = 3 To loSpalte Sheets("blank").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = i + 2 loZeile = .Cells(.Rows.Count, i).End(xlUp).Row Set raBereich = Union(.Range(.Cells(3, i), .Cells(loZeile, i)) _ .SpecialCells(xlCellTypeConstants).Offset(, -i + 1), _ .Range(.Cells(3, i), .Cells(loZeile, i)).SpecialCells(xlCellTypeConstants)) raBereich.Copy Worksheets(i + 2).Range("A5").PasteSpecial Paste:=xlPasteValues Set raBereich = Nothing Next i End With Set raBereich = Nothing Application.CutCopyMode = False End Sub

wsTab1.Range(wsTab1.Cells(5, 1), wsTab1.Cells(lrow, 1)).SpecialCells(xlCellTypeVisible).Copy .Range("A5").PasteSpecial Paste:=xlPasteValues wsTab1.Range(wsTab1.Cells(5, x), wsTab1.Cells(lrow, x)).SpecialCells(xlCellTypeVisible). _ Copy .Range("B5").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False

Beliebteste Forumthreads (12 Monate)

Kopieren in autom. erstellte neue Mappen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread