Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit Makro Tabellenblatt kopieren

Forumthread: mit Makro Tabellenblatt kopieren

mit Makro Tabellenblatt kopieren
10.01.2021 16:50:44
Udo
Hallo liebe Leute!
Ich bräuchte ein Makro, dass mir ein Tabellenblatt komplett kopiert und mich um den Namen des neuen tabellenblatt frägt. Gut wäre noch, eine Meldung mt Name bereits vorhanden sollte ich 2 mal den selben Namen vergeben wollen.
LG Udo
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit Makro Tabellenblatt kopieren
10.01.2021 17:27:33
Werner
Hallo,
und welches Tabellenblatt bitte? Ein ganz bestimmtes? Dann bitte den Namen des Blattes.
Oder das gerade aktive Tabellenblatt?
Gruß Werner
AW: mit Makro Tabellenblatt kopieren
10.01.2021 17:28:18
Udo
Hallo sorry ein bestimmtes, nennen wir es Vorlage
LG
AW: mit Makro Tabellenblatt kopieren
10.01.2021 17:33:54
Hajo_Zi
Prüfung ob vorhanden 
feststellen, ob Worksheet vorhanden ist
hier ein Beispiel, welches Du relativ einfach entsprechend abändern kannst:
Option Explicit
Sub TabAuswahl()
Dim BoVorhanden As Boolean
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
If WsTabelle.Name = "Tabelle1" Then
BoVorhanden = True
Exit For
End If
Next WsTabelle
If BoVorhanden Then
'vorhanden
Else
'nicht vorhanden
End If
End Sub
kopieren Makrorecorder.

Anzeige
AW: mit Makro Tabellenblatt kopieren
10.01.2021 17:45:00
Udo
Sorry, da bin i zu unerfahen
DAnke für deine Mühe
LG
AW: mit Makro Tabellenblatt kopieren
10.01.2021 18:29:21
Werner
Hallo,
der komplette Code gehört in ein allgemeines Modul.
Die Function ist nicht von mir, ist von deinem "Namensvetter" Udo, hier aus dem Forum. 
Function LegalSheetName(strName As String) As String
Dim arrNotAllowed As Variant, n As Integer
arrNotAllowed = Array(":", "\", "/", "?", "*", "[", "]")
For n = 0 To UBound(arrNotAllowed)
strName = Replace(strName, arrNotAllowed(n), "")
Next
LegalSheetName = Left(strName, 31)
End Function
Public Sub Blatt_erstellen()
Dim ws As Worksheet, strBlattname As String
Application.ScreenUpdating = False
strBlattname = InputBox("Bitte Blattname erfassen.", "Neues Tabellenblatt")
If Not strBlattname = vbNullString Then
strBlattname = LegalSheetName(strBlattname)
For Each ws In ThisWorkbook.Worksheets
If ws.Name = strBlattname Then
MsgBox "Das Blatt " & strBlattname & " existiert bereits."
Exit Sub
End If
Next ws
Worksheets("Vorlage").Copy after:=Worksheets(Sheets.Count)
ActiveSheet.Name = strBlattname
End If
End Sub
Gruß Werner
Anzeige
AW: mit Makro Tabellenblatt kopieren
10.01.2021 18:52:02
Udo
Perfekt vielen Dank
LG
Gerne u. Danke für die Rückmeldung. o.w.T.
10.01.2021 21:48:42
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
11.01.2021 15:58:31
Udo
Eine Frage hätt ich noch, wie muss ich den Code ändern damit bei den kopierten blättern in H4 "offen" steht?
Anzeige
AW: mit Makro Tabellenblatt kopieren
11.01.2021 15:25:51
Udo
Eine Frage hätt ich noch, wie muss ich den Code ändern damit bei den kopierten blättern in H4 "offen" steht?
Danke LG
AW: mit Makro Tabellenblatt kopieren
11.01.2021 16:12:43
Werner
Hallo,
dann hier 
Worksheets("Vorlage").Copy after:=Worksheets(Sheets.Count)
ActiveSheet.Name = strBlattname
Worksheets(strBlattname).Range("H4")= "offen"
Gruß Werner
Anzeige
AW: mit Makro Tabellenblatt kopieren
11.01.2021 18:51:21
Udo
Sorry
Funktioniert perfekt
Dankesehr
Gerne u. Danke für die Rückmeldung und..
11.01.2021 19:04:16
Werner
Hallo,
...zumindest eine Rückantwort erwarte ich schon, wenn ich Hilfe angeboten habe.
Gruß Werner
;

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Sheet kopieren, einfügen und umbenennen
Mandy

Hi,
ich muss doch noch mal was fragen:
Ich möchte in meiner Datei von einem sheet einen Kopie machen , neu einfügen und mit Namen benennen. das mach ich so:
Sheets("Temp").Copy after:=Sheets("Temp")
ActiveSheet.Name = "Ablage"
Dazu nun zwei Fragen:
1. Das neue Sheet "Abl...
26.03.2009 22:31:22
Thread-ID: 1064423
5 Beiträge
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Probleme beim Kopieren eines Blatts mit VBA?
Kasimir

Hallo Leute,
ich benötige mal wieder Eure Hilfe.
Ich öffne über die Funktion „GetObject“ eine Exceldatei und möchte in dieser Datei ein vorhandenes Tabellenblatt kopieren. Leider bekomme ich beim Copy-Befehl immer einen Laufzeitfehler 1004 – Die Copy-Methode des Worksheets-Objektes konn...
13.07.2010 12:48:56
Thread-ID: 1166834
6 Beiträge
Makro/VBA Sheets kopieren und einfügen
Thomas

Hallo liebe EXCEL-Spezialisten,
ich würde gerne wissen, ob ihr mir bei folgendem Anliegen weiterhelfen könntet:
Ich habe eine EXCEL-Datei erstellt, in der Schaltflächen hinterlegt sind, die spezielle Aufgaben erfüllen, u.a. Dateien öffnen, dann fragen, wo man sie speichern möchte, um so...
02.02.2011 14:19:48
Thread-ID: 1198561
3 Beiträge
VBA kopieren und zeilen einfügen
dirk0011

Hallo zusammen,
habe ein ganz kleines Problem. Mit dem Button Werte Kopieren in dem Reiter "zusammenfassung" kopiert mir das Script wunderbar jeden neuen Eintrag von den dahinter liegenden Reitern. Jetzt kommt die Frage dazu.
Ich möchte gerne eigentlich immer die in grau markierten Über...
17.12.2012 14:53:15
Thread-ID: 1291240
18 Beiträge
VBA: Blatt anlegen und kopieren - Fehlersuche
WalterK

Hallo,
und wieder einmal komme ich nicht weiter.
Der Code soll ein neues Blatt anlegen und dann Daten vom ursprünglichen Blatt in das neu angelegte Blatt kopieren. Es kommt allerdings der Fehler: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Option Expl...
30.07.2013 19:21:25
Thread-ID: 1324947
3 Beiträge
Anzeige
VBA Zeile mit Werten in ein anderes Blatt kopieren
Dip

Guten Tag Allerseits,
Gerne würde ich folgende Problemstellung in das Forum einbringen, in der Hoffnung, jemand kann mir weiterhelfen :)
Hier findet Ihr die Musterdatei:
Die Datei https://www.herber.de/bbs/user/88668.xlsx wurde aus Datenschutzgründen gelöscht
Im Blatt "Input" w...
04.01.2014 11:49:28
Thread-ID: 1344087
7 Beiträge
Inhalt Tabellenblatt kopieren und einfügen
Chris

Hallo zusammen!
Ich bräche etwas Hilfe von euch spezialisten (:
In der Excel Datei in der gearbeitet wird gibt es ein Tabellenblatt in dem alle Informationen stehen die dann per Makro in andere Tabellenblätter innerhalb der selben Datei gefiltert übertragen werden.
Nun soll aber da...
20.02.2014 12:10:26
Thread-ID: 1350487
3 Beiträge
VBA, Fehlermeldung bei Zeile kopieren und einfügen
André

Hallo,
ich möchte über der aktuellen Cursorposition eine Zeile einfügen und die Zeile 4 dort hinein kopieren. Die Zeile 4 ist ausgeblendet.
...
Worksheets("LH").Rows(ActiveCell.Row).Insert
Worksheets("LH").Rows(4).Copy Destination:=Worksheets("LH").Rows(ActiveCell.Row)
Works...
29.06.2014 17:45:38
Thread-ID: 1368013
4 Beiträge
Tabellenblatt mehrmals kopieren mit VBA
Stefan
Hallo!
Ich benötige ein Makro mit dem ich das Arbeitsblatt mit den gleichen Formatierungen 50 mal kopieren kann. Das heißt es soll automatisch den Namen KW1, KW2, KW3 usw vergeben.
Ich habe bereits eine Vorlage gefunden, die funktioniert ansich super, nur wird es mit 1,2,3 _ fortlaufend nu...
07.09.2014 17:59:07
Thread-ID: 1380365
3 Beiträge
Anzeige
VBA Tabellenblatt erkennen und kopieren
Tanja
Hallo Zusammen,
für mich das erste Mal in einem Forum zu schreiben, normal lese ich immer nur und ich tue mein Bestes mein Problem richtig zu erklären ;-)
Ich habe eine Datei, deren erstes Tabellenblatt aus mehreren Hundert Zeilen besteht. Jede Zeile gehört zu einem bestimmten Teilkonzern v...
06.10.2014 18:12:30
Thread-ID: 1385152
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige