VBA Tabelle Kopieren und Einfügen

Wie bekomme es jetzt hin, das der Tabelleninhalt der "Tabelle1" in die hier erzeugte Tabelle ""Originalkopie" 1:1 eingefügt wird?
Folgendes Modul entspricht meinen Erwartungen- jedoch fehlt noch der Befehl Kopieren.
Nach dem Ausführen sollte aber die "Tabelle1" Aktiv bleiben.
Kann wer Nachhilfe geben?

Sub Kopie_Tabelle1()
'** neues Blatt Anlegen
Dim blatt As Object
Dim BlattName As String
Dim bloFlg As Boolean
'** Blattname festlegen
BlattName = "Originalkopie"
'** Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'** Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
If blatt.Name = BlattName Then bolflg = True
Next blatt
'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolflg = False Then
With ThisWorkbook
.Sheets.Add After:=Sheets(Worksheets.Count)
.ActiveSheet.Name = "Originalkopie"
End With
End If
End Sub

Hallo Andreas
Bleiben wir nun in diesem Zweig der Baumstruktur.
Einen Hinweis /Tipp habe ich noch für Deine Schleife.
Du benutzt Folgende:

'** Blattname festlegen
BlattName = "Originalkopie"
'** Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'** Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
If blatt.Name = BlattName Then bolflg = True
Next blatt
'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolflg = False Then

Es ist eigentlich nicht nötig die Schleife fortzusetzen, wenn es das Blatt mit diesem Namen schon gibt!
Ich würde die Schleife verlassen/Prozedur beenden, wenn es den Namen schon gibt.
Warum also weiteren Blätter abfragen?
so geht das:

For Each blatt In Sheets
If blatt.Name = BlattName Then bolFlg = True
MsgBox "Blatt ist schon vorhanden, Prozedur beenden", vbInformation, BlattName
Exit Sub
Next blatt

oder gleich:

If blatt.Name = BlattName Then Exit Sub

Mit Exit Sub verlässt Du einfach die Prozedur, wenn es das Blatt schon gibt
Es macht ja keinen Sinn z.B. noch 800 Blätter nach deren Namen zu prüfen, wenn
bekannt ist das es den Blattnamen schon gibt.
Verstehst Du was ich meine?
Gruß Matthias

VBA Tabelle Kopieren und Einfügen

Forumthread: VBA Tabelle Kopieren und Einfügen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial