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
1132to1136
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
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopierte Tabelle Sheetname ändern

kopierte Tabelle Sheetname ändern
Peter
Guten Abend
Ich möchte das Sheet "Daten" duplizieren und dem Duplikat den Namen "Kopie" geben. Wie muss ich das anstellen?
Danke und gruss, Peter 
Sub Kopie()
With ActiveWorkbook
.Sheets("Daten").Copy after:=.Sheets("Daten")
End With
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: kopierte Tabelle Sheetname ändern
04.02.2010 17:53:06
JOWE
Hallo Peter,
so? 
Sub Kopie()
With ActiveWorkbook
.Sheets("Daten").Copy after:=.Sheets("Daten")
End With
activesheet.name ="Kopie"
End Sub

Gruß
Jochen
AW: kopierte Tabelle Sheetname ändern
04.02.2010 17:54:44
Josef
Hallo Peter,

ohne Prüfung, ob es vielleicht schon ein Blatt "Kopie" gibt.

Sub Kopie()
  Dim objSh As Worksheet
  
  With ActiveWorkbook
    Set objSh = .Sheets("Daten").Copy(after:=.Sheets("Daten"))
    objSh.Name = "Kopie"
  End With
  
  Set objSh = Nothing
End Sub

Gruß Sepp

Anzeige
ActiveSheet.Name = "Kopie" 'Vor End With _oT
04.02.2010 17:54:54
NoNet
_oT = "ohne Text"
AW: kopierte Tabelle Sheetname ändern
04.02.2010 18:29:00
Peter
Hallo
Danke für die Rückmeldungen
@ Josef Ehrensberger
Set objSh = .Sheets("Daten").Copy(after:=.Sheets("Daten"))
Hier bringt mit der Code die Fehlermeldung "Objekt erforderlich"
Wenn ich den Errorhandler einschalte, sehe ich, dass objSh "Nothing" ist.
Wenn es jedoch immer so ist, dass nach dem Duplizieren einer Tabelle die neue Tabelle aktiv ist, könnte ich die anderen Varianten verwenden. Aber wenn die Bildschirmaktualisierung deaktiviert ist, wird das wohl nicht mehr der Fall sein.
Gruss, Peter
AW: kopierte Tabelle Sheetname ändern
04.02.2010 19:06:12
Josef
Hallo Peter,

man(n) solte halt keinen ungetesteten Code posten ;-((
Natürlich läuft das auf einen Fehler, du kannst dich ruhig auf "Activesheet" beziehen, auch wenn .ScreenUpdating" auf False steht.

Gruß Sepp

Anzeige
AW: kopierte Tabelle Sheetname ändern
04.02.2010 20:17:39
Peter
Hallo Sepp
Danke für die Nachricht und die Hilfe!
Peter

25 Forumthreads zu ähnlichen Themen

Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Tabellennamen per Makro ändern
Elmar

Hallo zusammen,
kann mir jemand zeigen, welchen Code ich in ein Makro einbauen muss, wenn der aktuelle Tabellenname ausgelesen werden und dann in einen neuen Tabellenamen "Ausbreitung" umbenannt werden soll. Mein Problem ist, dass die zu bearbeitende Datei immer in der ersten Tabelle unters...
02.12.2009 21:16:08
Thread-ID: 1121480
7 Beiträge
Tabellennamen ändern mit 2 Übersichten
amintire

Hallo alle zusammen,
ich habe folgenden Code hier mal erhalten, um Tabellennamen automatisch zu ändern wenn etwas in der Zelle geschrieben wird. Der Code steht in Tabelle1 (Übersicht)
Ich benötige aber noch eine zweite Übersicht und da soll genau das gleiche passieren. Nur funktioniert...
09.06.2010 12:51:44
Thread-ID: 1160987
9 Beiträge
Anzeige
VBA: Tabellennamen ändern
Fritz_W

Hallo Forumsbesucher,
mit welchem Makro kann ich bei allen Tabellenblättern, die mit 1 enden um diesen Buchstaben kürzen.
Beispiele: Aus A1 wird A, aus B241 wird B24 usw.
Vielen Dank für Eure Unterstützung.
mfg
Fritz
19.10.2011 19:27:10
Thread-ID: 1234571
3 Beiträge
pivottabellennamen dynamisch ändern
Hewad

Sub Pivotnames_change() Dim wb As Workbook Dim ws As Worksheet Dim wsList As Worksheet Dim pt As PivotTable Dim lPT As Long On Error Resume Next Set wb = ActiveWorkbook Set wsList = Worksheets.Add With wsList .Range(.Cells(1, 1), .Cells(1, 4)).Value _ = Array("Sheet", "PivotTable", "Source Dat...
04.07.2014 11:27:53
Thread-ID: 1368925
9 Beiträge
Jeder Zelle einer Tabelle automatisch Namen geben
Barbara

Hallo
ich würde gerne jede Zelle einer Tabelle mit einem Namen versehen, der aus den Zellen der ersten Spalte und obersten Zeile zusammen gesetzt ist.
Unten ein Beispiel, das sich aber auf einen bestimmten Bereich bezieht, das ich in diesem Forum _
gefunden habe. Sub ErstelleNa...
30.07.2014 20:02:38
Thread-ID: 1373242
19 Beiträge
Währung je Tabellenblatt Name ändern
Chrostiffer

Hallo Zusammen,
folgendes Probleme würde ich gerne mit eurer Hilfe lösen.
Durch ein Makro habe ich für jedes Land einen eigenen Reiter (Name des Reiters z.B. DE, CH, ES, ...) wo Zahlen (Potential, Verkäufe etc.) in einem vorgefertigen Übersichtsblatt vorhanden ist.
Die Zahlen sin...
16.08.2016 11:00:37
Thread-ID: 1509490
4 Beiträge
Tabellenname automatisch ändern
Manuela

Hallo Zusammen,
ich habe eine Datei, in der ich ein Übersichtsblatt habe, in dem Verschiedene Positionen aufgelistet werden sollen.
Für jede dieser Positionen soll ein eigenes Tabellenblatt erstellt werden.
Ich hatte bereits einen Code gefunden der dafür sehr passend wäre, allerding...
25.04.2017 14:03:11
Thread-ID: 1554661
4 Beiträge
Anzeige

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
2
6
8
2
2
8
18
3
3
11
7
2
5
3
1
1
1
2
3
2
6
3
3
17