Office: Tabelle kopieren und einfügen

Lilalauneandreas · 29. Oktober 2016

Hallo,

möchte diesen Code soweit erweitern, das nach dem Erstellen des "Tabellenblatt1" gleich das Tabellenblatt3 Kopiert und eingefügt wird.

Nach der Prozedur möchte ich jedoch aufs "Tabellenblatt4" springen.

Das Erstellen der Tabelle1 mit dem Code geht tadellos.
*nun fehlt der Kopiervorgang und das Springen in das andere Blatt

Wer kann helfen?

Code:

Option Explicit

Sub neue_Tbl_Tabelle1() 'Erstellt neue_Tabelle1_für_Drucken
Dim mySheetName As String, mySheetNameTest As String
mySheetName = "Tabelle1"

On Error Resume Next
mySheetNameTest = Worksheets(mySheetName).Name
If Err.Number = 0 Then
MsgBox "Die ''" & mySheetName & "'' existiert bereits in dieser Arbeitsmappe."
Else
Err.Clear
Worksheets.Add.Name = mySheetName
MsgBox "Die ''" & mySheetName & "'' wurde erstellt."
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG Lilalauneandreas

:)

Hajo_Zi · 30. Oktober 2016

das kopieren der Tabelle3 kannst Du mit dem Makrorecorder aufzeichnen.
Was dann eingefügt werden soll, kennst nur Du.

Worksheets("Tabellenblatt4").select

Lilalauneandreas · 30. Oktober 2016

Guten Morgen Hajo,

das aufzeichnen habe ich bereits erledigt- leider brachte mich dies nicht zum gewünschten Erfolg. Es fehlt die Formatierung. Aber genau die ist das wichtigste. Deshalb möchte ich das gesamte Tabellenblatt 1:1 mit Formaten und Grafiken dort eingefügt haben.

MfG Lilalauneandreas

Hajo_Zi · 30. Oktober 2016

warum geht die Formatierung verloren, beim kopieren der Tabelle.
Es wird ja die Tabelle kopiert, wie gefordert und nicht ein Teil der Tabelle.

Benutzername: · 30. Oktober 2016

Servus Andreas,

meinst Du so etwas hier?

Code:

Sub WsZeugs()

Dim sourceWsName As String 'name des ursprungs-sheets
Dim targetWsName As String 'name des neuen sheets
Dim selectedWsName As String 'name des sheets das selektiert werden soll

'==== hier namen anpassen =====
sourceWsName = "source name"
targetWsName = "target name"
selectedWsName = "select name"
'==============================

With ActiveWorkbook

.Sheets(sourceWsName).Copy After:=.Sheets(.Sheets.Count)

.Sheets(Sheets.Count).Name = targetWsName

.Sheets(selectedWsName).Select

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sheetnamen musst Du anpassen, es findet keinerlei Validierung/Fehlerhandling statt betreffend existierender Sheetnamen.

Gruss,
Stephan

Lilalauneandreas · 30. Oktober 2016

Hallo Stephan,
ja das geht auch- hätte aber trotz alledem hätte schon die vorhandene MSG -Box mit eingearbeitet.

Ich komme schon noch ans Ziel.

MfG Andreas

Benutzername: · 31. Oktober 2016

Servus Andreas,

Ich weiss nicht genau was Du alles Validieren (Existenz? Nichtexistenz?) willst und was die Konsequenzen (Überschreiben? Löschen? Messagebox?) daraus wären.

Füge doch einfach folgende Funktion hinzu und arbeite mit den Rückgabewerten.

Code:

'returns true if worksheet with name wsName exists already
Function CheckWorksheetNameExistence(wsName As String) As Boolean

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If ws.Name = wsName Then
CheckWorksheetNameExistence = True
Exit Function
End If
Next

CheckWorksheetNameExistence = False

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ausführungsbeispiele:
Code:

If CheckWorksheetNameExistence("blabla") Then
MsgBox "gibts schon"
Else
MsgBox "gibts nicht"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss,
Stephan

Office: Tabelle kopieren und einfügen

Tabelle kopieren und einfügen

Tabelle kopieren und einfügen

Tabelle kopieren und einfügen

Tabelle kopieren und einfügen - Similar Threads - Tabelle kopieren einfügen

Excel Tabelle mit Formel in Word Einfügen

Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen

Tabelle in die nächste leere Zeile einfügen

Gefilterte Zellen kopieren und in anderer Tabelle einfügen

Zeile kopieren und Werte in anderer Datei in vorhandener Tabelle einfügen

Bestimmte Zellen aus ALLEN Tabellen kopieren und einfügen

Bestimmte Namen in der Tabelle suchen kopieren und einfügen