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

Anpassung Tabellenblattname mit VBA

Anpassung Tabellenblattname mit VBA
23.11.2004 11:08:53
Basch
Hallo Leute,
ich habe im Tabellenblatt „Auslastung“ in den Zellen E5 bis J5 sechs Monatsnamen die veränderlich sind. Daneben habe ich sechs Tabellenblätter dessen Tabellenblattnamen sich entsprechend der Texteinträge in Zelle E5 bis J5 anpassen sollen. Ich habe nun aus der Recherche den Code
sheets(1).name = sheets("Tabelle1").range("A1").value
genommen und ihn so für das erste der sechs Tabellenblätter angepasst:
Sheets(1).Name = Sheets("Auslastung").Range("E5").Value
Dafür habe ich mit der rechten Maustaste auf den Tabelleblattname „Tabelle 1“ geklickt und unter Code anzeigen im Visual Basic-Editor den Code im rechten Fenster eingegeben.
Was passiert? Nichts!
Leider passt sich der Blattname von Tabelle 1 nicht an. Was habe ich falsch gemacht. Bitte um Hilfe.
Gruß und vorab ein Dankeschön, Basch

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anpassung Tabellenblattname mit VBA
Dr.
Du musst auch irgendwo die Routine starten. Wann soll das sein? Automatisch? Zu bestimmten Ereignissen?
AW: Anpassung Tabellenblattname mit VBA
23.11.2004 11:23:32
Basch
Hallo,
schön wäre es wenn die Routine sich sofort bei Änderung der Zellen E5 bis J5, also bei Änderung des Zelleninhalts starten würde. Bei Änderung der Zellen E5 bis J5, ändern sich auch die Tabellenblattnamen automatisch.
Geht das?
Basch
AW: Anpassung Tabellenblattname mit VBA
Dr. 

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 6
Sheets(i + 1).name = ActiveSheet.Range("A" & i).Value
Next i
End Sub

Auf e5 bis j5 kannst Du den Code sicher selbst anpassen ;-)
Anzeige
AW: Anpassung Tabellenblattname mit VBA
23.11.2004 12:17:49
Basch
Erst mal Danke.
Irgendwie funtioniert es nicht und verstehen kann ich den Code auch nicht.
Ich habe ihn jetzt in das 1. Tabellenblatt mit dem Namen "Auslastung" kopiert. Nicht in ein Modul, ok?, sondern in das Tabellenblatt im Visual Basic-Editor (nennt man das dann ein Klassenmodul?).
Ins Auslastungsblatt habe ich den Code kopiert, da das ja das aktive Blatt bei Ausführung sein soll.
Nun zählt die Schleife von 2 bis 7, spricht also den Blattnamen des 2. bis 7. Arbeitsblattes an und soll aus dem aktiven Blatt von Spalte A2 bis A7 den Inhalt übernehmen bei Deinem unveränderten Code.
Aber wie stelle ich den Code um damit er mir nicht die Zeilen sondern die Spalten hochzählt. Leider bin ich doch nicht so gut in VBA.
Gruß, Basch
Anzeige
AW: Anpassung Tabellenblattname mit VBA
Uduuh
Hallo,
for i=2 to 7
sheets(i).name=activesheet.cells(5,i+3)
next i
holt die Namen aus E5:J5
Gru0 aus'm pott
Udo
AW: Anpassung Tabellenblattname mit VBA
23.11.2004 14:19:18
Basch
Vielen Dank erstmal an Dr. und Uduuh,
das Makro von Uduuh läuft wunderbar. Toll was man mit VBA alles machen kann, das macht schon Spaß. Es gibt jedoch noch einen kleinen Schönheitsfehler.
Was ich nicht erwähnt habe ist, da ich darin vorher kein Problem sah, dass die Änderung der Zellen E5 bis J5 über ein Drehfeld geschieht. Nun läuft der Code erst, wenn ich die Zelle E5 öffne und mit Enter wieder schließe.
Das Drehfeld zählt die Zelle O7 immer um eins hoch und über die Formel =DATUM(2004;O7;1)ändern sich dann die Monate in den Zellen E5 bis J5.
Gibt es noch eine Lösung ? Wahrscheinlich müßte man das Problem mit den Tabellenblattnamen nun von einer ganz anderen Seite lösen, vermute ich.
Vielen Dank erstmal an die Experten, immerhin läuft es ja schon.
Gruß, Basch
Anzeige
AW: Anpassung Tabellenblattname mit VBA
23.11.2004 14:53:29
Basch
Hallo Uduuh und Dr.,
es gibt leider noch ein anderes Problem. Die Tabellenblätter lassen sich nicht um einen folgenden Monat verändern. Ich vermute das es daran liegt, das wenn das erste Monatsblatt Jan. heißt, das zweite Febr., das dritte März ... beim Umbenennen des Jan-Blattes in Febr. ein Konflikt entsteht, der sich daraus ergibt, dass schon das zweite Blatt Febr. heißt und somit zwei Blätter den gleichen Namen hätten.
AW: Anpassung Tabellenblattname mit VBA
u_
Hallo,
for i=7 to 2 Step -1
sheets(i).name=activesheet.cells(5,i+3)
next i
löst das Prob mit den Namenskonflikten.
Zur Änderung: Rufe das Makro zur Benennung der Blätter im Klick-Ereignis deines Drehfeldes auf. Jedesmal wenn du auf das Drehfeld klickst werden dann die Blätter neu benannt.
Gruß
Anzeige
AW: Anpassung Tabellenblattname mit VBA
23.11.2004 16:29:44
Basch
Ich danke vielmals für die Hilfe, jetzt ist alles bestens.
Viele Grüße, Basch
AW: Anpassung Tabellenblattname mit VBA
23.11.2004 15:06:02
Basch
Hallo,
kann man nicht in die einzelnen Monatsblätter jeweils einen Code eingeben nach dem Muster:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet(2).Name = Sheet(1).Cells(5, 5)
End Sub

und im nächsten Blatt:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet(3).Name = Sheet(1).Cells(5, 6)
End Sub

so läuft er leider nicht, aber gibt es so was in der Richtung und wie könnte die Lösung aussehen. Kann mir noch einer helfen?
Gruß, Basch
Anzeige

303 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
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
Anzeige
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Per Funktion Tabellenblattname auslesen
Rolf

Hi,
kann ich mit einer Funktion den Tabellenblattname zB in A1 reinschreiben ?
Danke Rolf
29.01.2009 17:05:00
Thread-ID: 1045091
3 Beiträge
Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Zelle auslesen aber Blattname unbekannt !
Mandy

Hallole,
in meinem Sheet kopiere ich Tabellenblätter aus anderen Dateien. Nun will ich aus diesen Tabellenblätter eine Zelle (J5) kopieren und in mein Sheet "Page" H21 eintragen.
Das Problem: ich weiss nicht, in welchem der kopierten Tabellenblätter die Information steht und wie das Ta...
10.02.2009 09:14:14
Thread-ID: 1048897
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
6
2
5
2
5
6
9
2
5
3
5
4
3
5
3
2
3
4
2
5
2
16
2
2
2