Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
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
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Tabellennamen ändern

VBA Tabellennamen ändern
amintire
Hallo alle zusammen,
ich würde gerne in Tabelle1 Eingaben machen, z.B. A1 = 000347 und dann soll automatisch der Tabellenname Tabelle2 auf 000347 geändert werden, Zelle A2 = 000AA7, Tabelle 3 soll dann auch so heißen....
Habe etliche Tabellenblätter die jedes Jahr umbenannt werden müssten, gibt es hierzu eine vereinfachte Makrolösung bzw. VBA Lösung?
Bin Euch echt Dankbar für Eure Hilfe.
Schönen Gruß
Amina

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

Betreff
Benutzer
Anzeige
AW: VBA Tabellennamen ändern
02.06.2010 12:34:23
Hajo_Zi
Hallo Amina,
ich würde den Namen in die Tabelle Eintragen z.B. in A1. Vielleicht aht jemand der Tabelle schon einen anderen Namen gegeben.
Unter dieseArbeitsmappe. 
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then ActiveSheet.Name = Target
End Sub

AW: VBA Tabellennamen ändern
02.06.2010 12:47:03
amintire
Hallo Hajo,
vielen Dank für Deine schnelle Antwort.
Die Eingabe sollte aber erst ab Tabelle2 geändert werden,
wie führe ich den Code weiter aus wenn A2 auf Tabelle3 geändert werden soll, A3 = Tabelle4 Änderung, usw.
Bin Dir echt dankbar für Deine Hilfe
Gruß Amina
Anzeige
AW: VBA Tabellennamen ändern
02.06.2010 12:53:08
Rudi
Hallo,
in Tabelle1: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row + 1

Gruß
Rudi
AW: VBA Tabellennamen ändern
03.06.2010 03:37:21
amintire
Hallo Rudi,
bis jetzt taugt mir dein Code, kann ich hernehmen, aber wo ändere ich den code wenn ich ab Zeile fünf aufwärts dann die Tabellennamen stehen haben möchte.
Also wenn ich hier If Target.Column = 1 anstatt 1 eine 5 schreibe muss die Eingabe ab Spalte fünf gemacht werden, wie bekomme ich es ab Zeile fünf hin?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row + 1

Danke für Hilfe
Gruß Amina
Anzeige
AW: VBA Tabellennamen ändern
03.06.2010 22:02:56
Rudi
Hallo,
ganz einfach: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row -3

Gruß
Rudi
AW: VBA Tabellennamen ändern
03.06.2010 23:04:43
amintire
Hallo Rudi,
vielen Dank für Deine Antwort.
Kann man in dem Code auch eine Msg Box mit einbauen, z.B. springt es immer zum VBA Modus wenn man die Zelle löscht und nichts eingibt (da ja keine Tabellen ohne Namen erstellt werden können) oder evtl. wenn die Zelle leer ist soll die Tabelle ausgeblendet werden...
Also, es kann sein dass es mal 50 Eingaben gibt, sprich 50 Tabellennamen, und ein anderes Mal gibt es dann nur noch 30 Tabellennamen. Die restlichen 20 sollen aber nicht gelöscht werden, insgesamt bleiben aber nur 50 Tabellen. Nur wenn es eben mal weniger sind dann kommt immer die Fehlermeldung, auch dass es keine zwei identischen Tabellennamen geben kann.
Gruß Amina
Anzeige
AW: VBA Tabellennamen ändern
02.06.2010 12:59:02
Hajo_Zi
Hallo amina,
und was ist falls jemand die 6 Tabellle an die zweite Position schiebt, dann wird der Name nich in A6 sondern A2 eingeben?
Gruß Hajo
AW: VBA Tabellennamen ändern
02.06.2010 13:34:06
amintire
Hallo Hajo,
also die Tabellenblätter sollen auch nicht verschoben werden,
aber irgendwie funktioniert der Code nicht, weil Standartmäßig nur 3 Tabellenblätter vorhanden sind.
Bei Eingabe in A1 soll eine Vorlage (Tabelle2) kopiert werden und dann auf die kopierte Tabelle soll dann der Zellinhalt von A1 stehen. Ist dies möglich?
Hört sich vielleicht einwenig kompliziert an.
Hoffe auf Hilfe.
Gruß Amina
Anzeige
AW: VBA Tabellennamen ändern
02.06.2010 13:36:05
Hajo_Zi
Hallo Amina,
das ist jetzt eine andre Aufgabe, jetzt geht es nicht mehr um den Tabellennamen?
Gruß Hajo
AW: VBA Tabellennamen ändern
02.06.2010 13:49:45
amintire
Hallo Hajo,
ich habe nur weiter gedacht was ich eigentlich erreichen möchte, und das wäre so ein Beispiel gewesen.
Hauptsächlich geht es ja um die Änderung vom Tabellenblatt durch Eingabe in A1, A2, A3 usw...
Vielleicht eine einfache VBA Lösung?
Gruß Amina
PS Bin Euch echt dankbar
AW: VBA Tabellennamen ändern
02.06.2010 20:11:37
fcs
Hallo Amina,
ich habe nur weiter gedacht was ich eigentlich erreichen möchte
Bevor man hier eine Frage stellt, sollte man seine Probleme/Wünsche/Ziele möglichst weit durchdacht haben und klar beschreiben. Das vermeidet Mißverständnisse und unnötige Arbeit der antwortenden User.
Hier eine kleine Beispieldatei,die Kopieren/Umbenennen einer Vorlage ermöglicht als Umbenennen vorhandenenr Blätter.
https://www.herber.de/bbs/user/69856.xls
Gruß
Franz
Anzeige
AW: VBA Tabellennamen ändern
02.06.2010 22:07:05
amintire
Hallo Franz,
Du hast Recht. Dein Beispiel ist nicht schlecht, nur wenn ich schon einen vorhandenen Namen bzw. Tabellennamen änder dann wird bei Deinem Beispiel eine neue Tabelle erstellt, geht es hier auch wenn ich A3 änder dass die vorhandene Tabellenmappe mit dem Namen geändert wird anstatt dass eine neue entsteht?
Gruß Amina

26 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
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
04.02.2010 17:53:06
Thread-ID: 1135878
7 Beiträge
Anzeige
Mit Inputbox Tabellenname ändern
Thomas

Guten Morgen hier im Forum,
ich weis leider nicht weiter und bitte um Hilfe.
Ich möchte gerne mittels einer sich öffnenden Inputbox den Namen des aktuellen Tabellenblates ändern. Sehr gut wäre noch wenn der "alte" Name erscheinen könnte.
Wer kann mir bitte helfen.
Danke Gruß Tho...
18.01.2011 09:42:15
Thread-ID: 1196100
3 Beiträge
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
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
6
8
2
2
8
18
3
3
11
7
2
5
3
1
1
1
2
3
2
6
3
3