Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt kopieren und umbenennen

Forumthread: Tabellenblatt kopieren und umbenennen

Tabellenblatt kopieren und umbenennen
13.03.2008 20:29:29
topdog
Servus da draussen!!!
Heute brauche ich mal etwas "heftiger" eure Hilfe...
https://www.herber.de/bbs/user/50721.xls
Und zwar versuche ich folgendes:
Über ein UF möchte ich ein Sheet kopieren (Sheet Vorlage incl. Formate, Gültigkeiten, daran verzweifel ich schon), die Daten aus der UF in das kopierte Sheet einfügen
(wo die Daten aus derm UF eingetragen werden müssen habe ich die Textbox bzw Combobox des UF eingefügt),
das Sheet umbennen und zwar soll sich der Name des Sheets aus Zelle Q2 und D2 zusammensetzen
(z.B. Proj_2_T22)
Was jetzt noch total klasse wäre, wenn der Sheetname incl Hyperlink auf das neue Sheet, in Sheet "Übersicht" Spalte A ab Zelle 5
eingetragen wird.
Vllt. isses ein wenig viel verlangt, habe mir gedacht ich frage mal...
Mein Wissen reicht hier leider nicht dafür, und der Makrorecorder liefert auch nur bedingt seine Dienste.
thx TopDog

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt kopieren und umbenennen
13.03.2008 21:22:29
topdog
Hallo
[...] Name des Sheets aus Zelle Q2 und D2 zusammensetzen [...]
da hat sich ein Fehler eingeschlichen. Muss natürlich D5 heissen und nicht D2...
sorry
LG TopDog

AW: Tabellenblatt kopieren und umbenennen
13.03.2008 21:26:35
Tino
Hallo,
hiermit kannst du diese Tabelle "Vorlage" kopieren.

Dim Name As String
Name = Range("D5") & Range("D2")
Sheets("VORLAGE").Copy
If Name > "" Then ActiveSheet.Name = Name


Gruß
Tino

Anzeige
AW: Tabellenblatt kopieren und umbenennen
13.03.2008 21:48:00
topdog
hallo...
Danke, also das funzt schon mal... allerdings öffnet er nochmal Excel und legt eine neue Arbeitsmappe an.
Vllt. habe ich nicht richtig geschrieben, aber ich wollte das das neue Sheet bei der bestehenden Arbeitsmappe eingefügt wird.
LG

AW: Tabellenblatt kopieren und umbenennen
13.03.2008 22:00:00
Tino
Hallo,
demnach schreibe.

Dim Name As String
Name = Range("D5") & Range("D2")
Sheets("VORLAGE").Copy After:=Sheets(Sheets.Count) 'wird ans ende gestellt
If Name > "" Then ActiveSheet.Name = Name


Gruß
Tino

Anzeige
AW: Tabellenblatt kopieren und umbenennen
13.03.2008 22:18:04
topdog
SERS
Irgendwas mache ich falsch... er benennt mein Blatt immer VORLAGE(1) dann VORLAGE(2) usw... obwohl ich in der Vorlage die UF richtig eintrage... kann es an den verbundenen Zellen liegen?
LG

*gelöst*
14.03.2008 09:56:58
TopDog
Thx for all
habs selber (natürlich mit dem "Schubser" von Tino) hinbekommen.
Habe die beiden Zellen aus der der Sheetname bestehen soll in einer Zelle mit
=Q2&" "&D5
zusammengefasst und lese das nu so aus:

Private Sub CommandButton1_Click()
Sheets("VORLAGE").Range("D2") = ComboBox1.Text
Sheets("VORLAGE").Range("D5") = TextBox1.Text
Dim Name As String
Sheets("VORLAGE").Copy After:=Sheets(Sheets.Count) 'wird ans ende gestellt
Name = Range("Q4")
If Name > "" Then ActiveSheet.Name = Name
Sheets("VORLAGE").Range("D2") = ""
Sheets("VORLAGE").Range("D5") = ""
Call Übersicht
Unload Me
End Sub


Und das hier ist der Code für das "Inhaltsverzeichnis"
Sub Übersicht()
Dim wks As Worksheet
Dim i As Integer
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Set wks = wb.Worksheets("Übersicht")
a = 5
For Each ws In wb.Worksheets
If ws.Name wks.Name Then
wks.Cells(a, 2) = ws.Name
wks.Hyperlinks.Add Anchor:=wks.Cells(a, 7), Address:="", SubAddress:= _
"'" & ws.Name & "'!a1", TextToDisplay:=""
wks.Cells(a, 3) = ws.Range("D5")
wks.Cells(a, 4) = ws.Range("D7")
wks.Cells(a, 5) = ws.Range("D9")
wks.Cells(a, 6) = ws.Range("N10")
a = a + 1
End If
Next ws
End Sub


LG TopDog

Anzeige
AW: *gelöst*
14.03.2008 11:14:03
Tino
Hallo,
hier der Code etwas optimiert.

Private Sub CommandButton1_Click()
Dim Name As String
With Sheets("VORLAGE")
.Range("D2") = ComboBox1.Text
.Range("D5") = TextBox1.Text
.Copy After:=Sheets(Sheets.Count) 'wird ans ende gestellt
Name = Range("Q4")
If Name > "" Then ActiveSheet.Name = Name
.Range("D2,D5") = ""
End With
Call Übersicht
Unload Me
End Sub


Gruß
Tino

Anzeige
;

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
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
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
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
Anzeige
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
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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige