2
VBA Neue Arbeitsmappe erstellen
Hallo zusammen,
ich möchte eine neue Arbeitsmappe erstellen. Die aktuelle heißt zum Beispiel "aktuelle". Ich möchte jeden Datensatz, der 2007 enthält in eine neue Arbeitsmappe schreiben.
Ich kann das einfach mit der aufzeichnungsfunktion machen (Filter etc.). Ich habe aber dann das Problem, dass diese Variante nur einmal geht. danach heißt das Register nicht mehr Tabelle2 sondern Tabelle3...
Wie kann ich das soweit machen? Ich muss wahrscheinlich der aktuellen Tabelle eine variable zuweisen oder?
Sub Makro5()
Selection.AutoFilter
Range("AG7").Select
Selection.AutoFilter Field:=30, Criteria1:="2007"
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("8:9").Select
Selection.Copy
Sheets("ASDaten").Select
Sheets.Add
Sheets("Tabelle1").Select
Application.CutCopyMode = False
Sheets("Tabelle1").Move After:=Sheets(2)
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "2007"
Range("A1").Select
Sheets("ASDaten").Select
Selection.Copy
Sheets("2007").Select
ActiveSheet.Paste
End Sub
Vielen dank im voraus
ich möchte eine neue Arbeitsmappe erstellen. Die aktuelle heißt zum Beispiel "aktuelle". Ich möchte jeden Datensatz, der 2007 enthält in eine neue Arbeitsmappe schreiben.
Ich kann das einfach mit der aufzeichnungsfunktion machen (Filter etc.). Ich habe aber dann das Problem, dass diese Variante nur einmal geht. danach heißt das Register nicht mehr Tabelle2 sondern Tabelle3...
Wie kann ich das soweit machen? Ich muss wahrscheinlich der aktuellen Tabelle eine variable zuweisen oder?
Sub Makro5()
Selection.AutoFilter
Range("AG7").Select
Selection.AutoFilter Field:=30, Criteria1:="2007"
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("8:9").Select
Selection.Copy
Sheets("ASDaten").Select
Sheets.Add
Sheets("Tabelle1").Select
Application.CutCopyMode = False
Sheets("Tabelle1").Move After:=Sheets(2)
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "2007"
Range("A1").Select
Sheets("ASDaten").Select
Selection.Copy
Sheets("2007").Select
ActiveSheet.Paste
End Sub
Vielen dank im voraus
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 125601
Url: https://administrator.de/contentid/125601
Printed on: April 23, 2024 at 06:04 o'clock
2 Comments
Latest comment
Hi,
also mit folgendem Code erstellt man eine neue Arbeitsmappe:
Application.Sheets.InNewworkbook = 1
Workbooks.Add
Gruss
Michael
also mit folgendem Code erstellt man eine neue Arbeitsmappe:
Application.Sheets.InNewworkbook = 1
Workbooks.Add
Gruss
Michael
Ich glaube, er will keine neue Arbeitsmappe, sondern eine neue Tabelle in einer Arbeitsmappe erstellen.
Bau dein Makro mal mit diesem Code um:
Dieser Code erstellt die eine neue Tabelle an Position eins und gibt ihr als Namen das Datum von heute.
Bau dein Makro mal mit diesem Code um:
Sheets.Add Before:=Sheets(1)
Worksheets(1).Name = Date
