Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter umbenen mit Namen aus Spalte

Tabellenblätter umbenen mit Namen aus Spalte
28.05.2017 17:04:02
Thorsten
Hallo,
ich habe hier eine Excel Tabelle, in der im ersten Tabellenblatt in Spalte A Namen stehen, das zweite Tabellenblatt dient nur als Hilfstabelle zur Notenberechnung, das dritte Tabellenblatt Template enthält meinen Bewertungsbogen. Nun soll folgendes passieren. Excel soll das Tabellenblatt Template anhand der Namesliste umbenennen und ein neues Tabellenblatt mit dem jeweils korrekten Namen erstellen, Template dient hier als Vorlage. Ich hoffe, dass Ihr versteht, was ich meine.
Zur Sicherheit habe ich ein Beispiel hochgeladen, in dem ich das für den ersten Namen per Hand gemacht habe. Es wäre toll, wenn mir jemand helfen könnte.
https://www.herber.de/bbs/user/113837.xlsx
VG
Thorsten

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter umbenen mit Namen aus Spalte
28.05.2017 17:05:44
Hajo_Zi
Hallo Torsten,
das geht nicht per Hand.
VBA wurde ja abgelehnt da XLSX Datei.

AW: Tabellenblätter umbenen mit Namen aus Spalte
28.05.2017 17:22:10
Sepp
Hallo Torsten,
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub TabellenAnlegen()
Dim rng As Range
Dim strName As String

With Sheets("Namen")
  For Each rng In .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    strName = ValidSheetName(rng)
    If Len(strName) Then
      Sheets("Template").Copy after:=Sheets(Sheets.Count)
      With Sheets(Sheets.Count)
        .Name = strName
        .Range("C2") = strName
      End With
    End If
  Next
End With
End Sub

Private Function ValidSheetName(ByVal strName As String) As String
'Returns a valid name for excel-sheets
Dim objRegExp As Object, strTmp As String

On Error GoTo ErrExit

Set objRegExp = CreateObject("vbscript.regexp")

With objRegExp
  .Global = True
  .Pattern = "[\/\\:\*\?\[\]]"
  .IgnoreCase = True
  strTmp = Trim$(.Replace(strName, ""))
  .Pattern = "[ ]+"
  strTmp = .Replace(strTmp, " ")
End With

If Len(strTmp) Then
  ValidSheetName = Left(strTmp, 31)
Else
  GoTo ErrExit
End If

Exit Function

ErrExit:

ValidSheetName = ""
End Function

Gruß Sepp

Anzeige
AW: Tabellenblätter umbenen mit Namen aus Spalte
28.05.2017 22:24:33
Thorsten
Danke für die super schnelle Antwort, werde testen und morgen berichten!
AW: Tabellenblätter umbenen mit Namen aus Spalte
29.05.2017 21:38:53
Thorsten
So habe Sepps Vorschlag eingebaut und eine Tabelle erstellt, in der Makros erlaubt sind, leider passiert beim Ausführen rein gar nichts. Sorry, aber ich habe wenig Ahnung von VBA, deshalb hier die Tabelle als Link, dann sieht man es besser.
https://www.herber.de/bbs/user/113878.xlsm
AW: Tabellenblätter umbenen mit Namen aus Spalte
30.05.2017 03:43:17
Piet
Hallo
anbei die Beispieldatei zurück. Ich habe den Code etwas anders aufgebaut und einen Button zum Starten des Makros eingefügt. Der hatte gefehlt, deshalb klappte es nicht.
mfg Piet
https://www.herber.de/bbs/user/113880.xlsm
Anzeige
AW: Tabellenblätter umbenen mit Namen aus Spalte
30.05.2017 06:51:20
Thorsten
Vielen Dank für die prompte Lieferung! Auf den ersten Blick funktioniert es genauso wie es soll und erspart mir eine Menge Arbeit. Super!
VG
Thorsten

308 Forumthreads zu ähnlichen Themen

Syntax für Summe aus mehreren Blättern
friedolin

Hallo Forum,
ich möchte aus mehreren Blättern, die da heißen " 01.01. , 02.01. 03.01. " usw. die Summe der Spalte D40 (immer gleich) in ein neues Blatt ermitteln. Habe schon einiges probiert, aber die Syntax macht Probleme.
diese Formel funktioniert nicht! =Summe(01.01. : 31.01. !D40...
18.08.2008 14:55:54
Thread-ID: 1002612
7 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Suche in Text mit mehreren Suchkriterien
Christian

Hallo Forum,
ich möchte prüfen, ob ein Text mindestens einen Text aus einer Liste enthält.
Bsp: enthält der Text
"das ist die Liste der gelieferten Früchte: Apfel, Birnen"
einen der Texte enthält:
"Banane", "Kirsche", "Birnen"
in dem Fall ja. Ich brauche keine Position...
14.01.2009 11:32:00
Thread-ID: 1039544
10 Beiträge
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Auswertung über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich hoffe ich finde bei Euch Hilfe. Ich habe nun schon einige Zeit das Forum durchsucht aber keine passende Lösung gefunden.
Ich habe eine Arbeitsmappe mit ca. 90 Tabellenblättern. Die Tabellenblätter sind so aufgebaut, das jeweils im Bereich
C6-E60 Daten stehen. In...
17.06.2009 10:51:48
Thread-ID: 1082164
6 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 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
3
2
9
15
2
8
3
5
2
4
3
6
2
6
3
1
12
3
3
13
2
7
2
4