Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellennamen vergeben

Tabellennamen vergeben
10.09.2003 11:41:38
Silvia
Hallo Leute

Wie kann ich folgende Aufgabe am elegantesten lösen (oder besser gesagt: wie kann ich sie überhaupt lösen)

Ich möchte eine neue Tabelle einfügen und ihr den Namen aus einer Variablen (zB: Tabname = "abc") geben.
Wenn allerdings bereits eine Tabelle mit genau diesem Namen ("abc") existiert, soll die neue Tabelle "abc_1" heißen,
bzw. soll die neue Tabelle "abc_2" heissen, wenns auch die "abc1" schon gibt.... usw.

Mein Versuch hat das Ergebnis, dass ab dem 2.Durchlauf die neuen Tabellen "Tabelle1", "Tabelle2", .. usw. heißen. Nur die erste heißt korrekterweise "abc", weil man mehrere Tab nicht gleich benennen darf.

Dim tabzahl, Tabname
Tabname = "abc"
tabzahl = Worksheets.Count
Worksheets.Add.Move after:=Worksheets(tabzahl)
Worksheets(tabzahl + 1).Select
ActiveSheet.name = Tabname

lg, Silvia

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellennamen vergeben
10.09.2003 11:59:37
Bernd Held
Hi Silvia,

Du müsstest eine Funktion schrieben, die das Vorhandensein einer Tabelle prüft. sowas in der Art könnte weiterhelfen.


Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Len(Worksheets(WSName).Name) > 0
End Function



If WorksheetExists("Tabelle1") = True Then
'anderen Namen vergeben
Else
'den Namen verwenden
End If

Viele Grüße
Bernd
MVP für Microsoft Excel
Aktuelle VBA-Schulungen und VBA-Bücher unter: http://held-office.de

Anzeige
AW: Tabellennamen vergeben
10.09.2003 12:02:53
BerndE
Hi Silvia,

bei mir funzt folgender Code:

Dim tabzahl, Tabname, DoppelTab
Tabname = "abc"
tabzahl = Worksheets.Count
Worksheets.Add.Move after:=Worksheets(tabzahl)
Worksheets(tabzahl + 1).Select

DoppelTab = 1

On Error GoTo Fehler:
ActiveSheet.Name = Tabname

Exit Sub

Fehler:
Tabname = "abc_" & DoppelTab
DoppelTab = DoppelTab + 1
Resume

Gruß
Bernd

www.bernds.page.de.vu
AW: Tabellennamen vergeben
10.09.2003 12:04:19
xXx
Hallo,

so sollte es gehen:

Sub test()
Dim intCounter As Integer, sh As Worksheet
intCounter = 0
For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "abc*" Then intCounter = intCounter + 1
Next sh
Worksheets.Add after:=Sheets(Sheets.Count)
If intCounter > 0 Then
ActiveSheet.Name = "abc" & intCounter
Else
ActiveSheet.Name = "abc"
End If
End Sub


Gruß aus'm Pott
Udo
Anzeige
AW: Tabellennamen vergeben
10.09.2003 12:04:52
Martin Beck
Hallo Silvia,

vielleicht nicht das eleganteste, aber versuche mal


Sub Tabellennamen()
Dim tabzahl As Integer
Dim Tabname As String
Dim letzter
Tabname = "abc"
tabzahl = Worksheets.Count
Worksheets.Add.Move after:=Worksheets(tabzahl)
letzter = -1
For Each ws In Worksheets
If ws.Name = Tabname Then
letzter = 0
End If
Next
For Each ws In Worksheets
If Left(ws.Name, Len(Tabname)) = Tabname And ws.Name <> Tabname Then
letzter = Application.WorksheetFunction.Max(letzter, Right(ws.Name, 1))
End If
Next
Select Case letzter
Case Is = -1
Worksheets(tabzahl + 1).Name = Tabname
Case Is = 0
Worksheets(tabzahl + 1).Name = Tabname & "_1"
Case Is > 0
Worksheets(tabzahl + 1).Name = Tabname & "_" & letzter + 1
End Select
End Sub


Gruß
Martin Beck
Anzeige
DANKE
10.09.2003 12:31:31
Silvia
Herzlichen Dank an Bernd, Bernd, Udo, Martin für die raschen Antworten !!!!!

Ich hab mir alle Codes angeschaut und es schlussendlich so gelöst:
(Abweichend von meinen ursprünglichen Angaben heißt die erste Tab nun "..._1", die zweite "..._2", usw.)

Dim i As Integer
Dim ws As Worksheet
i = 1
For Each ws In ActiveWorkbook.Sheets
If ws.name Like compidname & "*" Then i = i + 1
Next ws
ActiveSheet.name = compidname & "_" & i

DANKE, Silvia

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
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

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
3
1
1
1
2
3
2
6
3
3
17