Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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?
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
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
Anzeige

309 Forumthreads zu ähnlichen 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
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
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 Beiträge
Anzeige
VBA Spalte kopieren und mehrfach (X-mal) einfügen
Sebastian

Hallo,
ich habe folgendes Problem:
Ich habe ein Excel Tabelle und möchte dort die komplette Spalte M kopieren und direkt rechts daneben mehrmals wieder einfügen (wenn möglich nicht nur die Inhalte sondern inkl. aller Formatierungen).
Die Menge, wie oft diese Spalte wieder eingefügt...
21.07.2010 15:44:35
Thread-ID: 1168151
6 Beiträge
Makro Tabellenblatt kopieren als Datei speichern
Milan

Hallo liebe Excel Helfer,
habe folgendes Problem:
Möchte aus eine Datei ein Tabellenblatt kopieren,
Tabellenblatt umbenennen und als neue Datei speichern.
Folgende Aufgabenstellung:
Dateiname: Wareneingang
Tabellenname: Auftrag
Tabellenblatt (Name: Auftrag) kopieren...
22.12.2010 18:02:21
Thread-ID: 1192575
8 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 - Blatt x mal kopieren, umbenennen, ausfüllen
Wurstmensch

Hallo zusammen,
ich habe folgendes Problem:
In meinem Blatt "!!Steuerung!" befindet sich von C26 bis C36 (also max. 10 Einträge) eine Liste (keine Listbox, einfache, normale Zellen) mit Namen für neu anzulegende Arbeitsblätter. Ich möchte nun, dass für jeden Eintrag in der Liste eine Ko...
16.09.2011 12:36:40
Thread-ID: 1230158
4 Beiträge
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
2
3
5
5
7
2
3
2
17
2
5
6
2
3
2
5
13
8
6
9
4
1
1