Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Neue Arbeitamappe erstellen-VBA

Neue Arbeitamappe erstellen-VBA
10.12.2007 15:29:00
michael

Herzliche Grüße ins Forum

Sub MeineTabellen()
Dim a As Byte
Application.ScreenUpdating = False
For a = 1 To 3 ……………….Anzahl der Tabellen
With Sheets(a)
.Range("A10:F53").Copy
Sheets(4).Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End With
Next a
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Das Makro habe ich aus dem Forum , es macht auch das was ich wollte
beim testen bin ich aber draufgekommen das ein--Workbooks.Add---
also eine neue Arbeitsmappe sinnvoller ist, nur da enden meine bescheidenen
VBA - Kenntnisse
Kann mir bitte jemand den Code erweitern.
Vielen Dank für eure Hilfe
michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neue Arbeitamappe erstellen-VBA
10.12.2007 16:08:05
Rudi
Hallo,
so:

Sub MeineTabellen()
Dim a As Byte, wks As Worksheet
Application.ScreenUpdating = False
Set wks = Workbooks.Add.Sheets(1)
For a = 1 To 3
With ThisWorkbook.Sheets(a)
.Range("A10:F53").Copy wks.Range("A6536").End(xlUp).Offset(1, 0)
End With
Next a
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Neue Arbeitamappe erstellen-VBA
10.12.2007 16:47:00
michael
Hallo Rudi
Herzlichen Dank für deine Mühe
Bin auf einem Bauernhof aufgewachsen-viele Kühe machen aber auch freude !
netten Gruß
michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige