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

Tabellenblatt umbenennen aus Zelle

Forumthread: Tabellenblatt umbenennen aus Zelle

Tabellenblatt umbenennen aus Zelle
31.01.2024 10:51:26
hkoepp63
Hallo Zusammen,
ich möchte gern den Tabellenblatt Namen aus einer Zelle auslesen und dann entsprechend umbenennen.
Dieser Part funktioniert. 
If Target.Address = "$A$6" Then

Worksheets(2).Name = Range("A6")

Nun soll aber, wenn ich den Eintrag in A6 lösche, das Tabellenblatt wieder in "Tabelle1" umbenannt werden.

Vielen Dank im Voraus für Eure Unterstützung.
Beste Grüße
Hinnerk
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt umbenennen aus Zelle
31.01.2024 10:59:23
daniel 


If Target.Address = "$A$6" Then

    if Target.Value = "" Then 

        Worksheets(2).Name = "Tabelle1"

    else

        Worksheets(2).Name = Target.Value

    end if

end if

oder für die Fans von kurzem Code mit wenigen Zeilen 
If Target.Address = "$A$6" Then   Worksheets(2).Name =IIF(Target.Value = "", "Tabelle1", Target.Value)
Anzeige
AW: Tabellenblatt umbenennen aus Zelle
31.01.2024 11:19:56
hkoepp63
Hat Super funktioniert. Vielen Dank.
AW: Tabellenblatt umbenennen aus Zelle
31.01.2024 13:36:33
hkoepp63
Hallo Zusammen,
leider hat das nur bei der ersten Zelle funktioniert.
Ich habe aber 15 Zellen und dementsprechend 15 Tabellenblätter

Trotz zusätzlicher "EndIf" klappt es nicht.. 

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$6" Then

If Target.Value = "" Then

        Worksheets(3).Name = "Tabelle1"

    Else

        Worksheets(3).Name = Target.Value

End If

If Target.Address = "$A$7" Then

If Target.Value = "" Then

        Worksheets(4).Name = "Tabelle2"

    Else

        Worksheets(4).Name = Target.Value

End If



End If

End If





End Sub


Vielen Dank im Voraus für Eure Hilfe.
Beste Grüße
Hinnerk
Anzeige
AW: Tabellenblatt umbenennen aus Zelle
31.01.2024 14:46:11
GerdL
Moin Hinnerk 
Private Sub Worksheet_Change(ByVal Target As Range)



    Dim C As Range

    

    

    If Not Intersect(Target, Range("A6:A20")) Is Nothing Then

    

        For Each C In Intersect(Target, Range("A6:A20")).Cells

            If IsEmpty(C) Then

                Worksheets(C.Row - 3).Name = "Tabelle" & C.Row - 5

            Else

                Worksheets(C.Row - 3).Name = C.Text

            End If

        Next

    

    End If





End Sub

Gruß Gerd
Anzeige
AW: Tabellenblatt umbenennen aus Zelle
31.01.2024 14:02:01
hkoepp63
Habe es doch hinbekommen. Trotzdem Danke an das Forum. 

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$6" Then

If Target.Value = "" Then

        Worksheets(3).Name = "Tabelle1"

    Else

        Worksheets(3).Name = Target.Value

End If

Else



If Target.Address = "$A$7" Then

If Target.Value = "" Then

        Worksheets(4).Name = "Tabelle2"

    Else

        Worksheets(4).Name = Target.Value

End If

Else



If Target.Address = "$A$8" Then

If Target.Value = "" Then

        Worksheets(5).Name = "Tabelle3"

    Else

        Worksheets(5).Name = Target.Value

End If

Else



If Target.Address = "$A$9" Then

If Target.Value = "" Then

        Worksheets(6).Name = "Tabelle4"

    Else

        Worksheets(6).Name = Target.Value

End If

Else



If Target.Address = "$A$10" Then

If Target.Value = "" Then

        Worksheets(7).Name = "Tabelle5"

    Else

        Worksheets(7).Name = Target.Value

End If

Else



If Target.Address = "$A$11" Then

If Target.Value = "" Then

        Worksheets(8).Name = "Tabelle6"

    Else

        Worksheets(8).Name = Target.Value

End If

Else



If Target.Address = "$A$12" Then

If Target.Value = "" Then

        Worksheets(9).Name = "Tabelle7"

    Else

        Worksheets(9).Name = Target.Value

End If

Else



If Target.Address = "$A$13" Then

If Target.Value = "" Then

        Worksheets(10).Name = "Tabelle8"

    Else

        Worksheets(10).Name = Target.Value

End If

Else



If Target.Address = "$A$14" Then

If Target.Value = "" Then

        Worksheets(11).Name = "Tabelle9"

    Else

        Worksheets(11).Name = Target.Value

End If

Else



If Target.Address = "$A$15" Then

If Target.Value = "" Then

        Worksheets(12).Name = "Tabelle10"

    Else

        Worksheets(12).Name = Target.Value

End If

Else



If Target.Address = "$A$16" Then

If Target.Value = "" Then

        Worksheets(13).Name = "Tabelle11"

    Else

        Worksheets(13).Name = Target.Value

End If

Else



If Target.Address = "$A$17" Then

If Target.Value = "" Then

        Worksheets(14).Name = "Tabelle12"

    Else

        Worksheets(14).Name = Target.Value

End If

Else



If Target.Address = "$A$18" Then

If Target.Value = "" Then

        Worksheets(15).Name = "Tabelle13"

    Else

        Worksheets(15).Name = Target.Value

End If

Else



If Target.Address = "$A$19" Then

If Target.Value = "" Then

        Worksheets(16).Name = "Tabelle14"

    Else

        Worksheets(16).Name = Target.Value

End If



Else



If Target.Address = "$A$20" Then

If Target.Value = "" Then

        Worksheets(17).Name = "Tabelle15"

    Else

        Worksheets(17).Name = Target.Value

End If



End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If



End Sub
Anzeige
AW: Tabellenblatt umbenennen aus Zelle
31.01.2024 15:21:26
daniel
hi
da würde ich aber die einzeilige Version bevorzugen.
die Zeile kopiert du einfach nach unten und passt dann nur noch Zeilennummer und Tabellenblattname an.

Gruß Daniel

Forumthreads zu verwandten Themen

Arbeitsblattnamen in Zelle auslesen
Lemmi

Hallo zusammen,
ich möchte ein Arbeitsblatt auf das vorher gehende Arbeitsblatt referenzieren!
Meine Datei ist folgendermaßen Strukturiert:
Arbeitsblatt 1 : Tabelle A
Arbeitsblatt 2 : Tabelle A+ Adressen
Arbeitsblatt 3 : Tabelle B
Arbeitsblatt 4 : Tabelle B+ Adressen
30.08.2008 07:38:00
Thread-ID: 1006010
6 Beiträge
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
Namen anderer Excel-Datei in Zelle übernehmen
alphaomega

Hallo,
ich habe hier Excel 2002 und 12 Excel-Dateien mit den Namen 2008-01, 2008-02, ..., 2008-12.xls.
Nun möchte ich eine weitere Excel-Datei als Übersicht anlegen, wo einige Daten aus den o.g. Zellen übernommen werden sollen. Wie das geht, weiß ich bereits: Das geht manuell durch copy...
19.09.2008 10:33:37
Thread-ID: 1010950
3 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Name Register in Zelle Einfügen ?
SvenB.

Guten tag,
ich habe mehrere Arbeitsblätter.
TAB1; TAB2; TAB3;
Ich möchte auf dem ersten Arbeitsblatt den Register/Arbeitsblattnamen in eine Zelle schreiben/verweisen.
Gibt es hier eine einfache Möglichkeit?
29.10.2008 10:56:00
Thread-ID: 1020183
7 Beiträge
Sheet-Name in Zelle
Frank

Hallo,
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change() End Sub
Private Sub CommandButton1_Click() Application.Sc...
30.10.2008 11:39:38
Thread-ID: 1020547
4 Beiträge
Name von best. Tabellenblatt in Zelle
best.

Guten ABend ...
ich würde gerne in einer Zelle den Namen einer anderen Tabelle haben, und außerdem noch einen Hyperlink zu Ihm.
Der Linkname sollte dann auch den Tabellennamen haben (müsste das dann für versch. TB machen) .... außerdem würde ich gerne in einer modifizierten version nur...
11.11.2008 16:49:00
Thread-ID: 1023613
2 Beiträge
blattname in zelle übernehmen
soendi

hallo excelianer!
gibts eine möglichkeit per formel den blattnamen in eine zelle zu übertragen?
darf nicht per makro sein, denn die tabelle wird auch von amerikanern benutzt... ;-) die kommen sonst nicht mehr draus... :-)
danke & grüsse
soendi
03.12.2008 15:38:00
Thread-ID: 1029872
6 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
Namen in Zelle trennen
Rauscher

Hallo,
ich habe folgendes Problem.
Ich habe in Zelle A1 den Nachnamen und den Vornamen stehen.
Ich möchte nun dass in B1 der Nachname steht und in C1 der Vorname steht.
Welche Formel muss ich anwenden um die beiden Namen aus der Zelle A1 zu filtern ?
mfg.
L. Rauscher
10.04.2009 10:11:41
Thread-ID: 1068153
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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