Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neue Tabellen automatisch bezeichnen ...

Forumthread: Neue Tabellen automatisch bezeichnen ...

Neue Tabellen automatisch bezeichnen ...
12.09.2006 08:51:25
Torsten
Wie kann ich automatisch neue Tabellen in einer Arbeitsmappe erzeugen, deren Bezeichnung der Reihe nach aus der ersten Spalte der ersten (bereits bestehenden Tabelle) entnommen wird?
Eine zweite Frage habe ich noch. Gibt es eine Möglichkeit eine Suchmaske zu erzeugen, die die gesamten Zellen einer Arbeitmappe nach einem bestimmten Textinhalt durchsucht und mir die Tabellennamen dann auflistet?
Torsten
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Neue Tabellen automatisch bezeichnen ...
12.09.2006 09:06:51
Klaus
Hallo Torsten,
Den Namen "Tabelle1" musst du anpassen, das "For i = 1 To 4" steht für die ersten vier Zeilen - auch anpassen.
Geht davon aus, dass es die Tabellennamen noch nicht gibt, und in A1:A4 nur gültige Namen stehen.
Gruß,
Klaus

Sub erstellen()
Dim i As Integer
Dim newname As String
With Sheets("Tabelle1")
For i = 1 To 4
newname = .Range("A" & i)
Sheets.Add.Name = newname
Next i
End With
End Sub

Anzeige
AW: Neue Tabellen automatisch bezeichnen ...
12.09.2006 09:12:49
{mskro}
Hallo Torsten,
versuch doch mal folges kleines VBA

Sub NeueSheets()
Zeile = 1
Do While Sheets("Tabelle1").Cells(Zeile, 1) <> ""
Name = Sheets("Tabelle1").Cells(Zeile, 1)
Sheets.Add.Name = Name
Zeile = Zeile + 1
Loop
End Sub

Gruss Manfred
Rückmeldung wäre nett!
Anzeige
AW: Neue Tabellen automatisch bezeichnen ...
12.09.2006 10:50:58
Torsten
Vielen Dank für die schnelle Hilfe!!!
Funtioniert prima. Ich hab nur festgestellt, dass ich doch ungültige Zeichen drin habe. Naja, die ersetze ich dann in dem Makro einfach vorher.
Zur zweiten Frage hab ich auch schon was gefunden:
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
Dim cr As Long, tarWks As String
tarWks = "Ergebnisse" 'Name_der_Zieltabelle
cr = 65536
If Worksheets(tarWks).Cells(cr, 1) = "" Then
cr = Worksheets(tarWks).Cells(cr, 1).End(xlUp).Row
End If
If cr = 0 Then cr = 1
'Suchbegriff definieren
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind = "" Then Exit Sub
'Suchbegriff auf Zelle definieren
'sFind = Worksheets("Tabelle1").Range("A1")
For Each wks In Worksheets
If wks.Name = tarWks Then Exit Sub
Set rng = wks.Cells.Find(What:=sFind, _
LookAt:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.GoTo rng, True
'Für die Automation kann die "If"-Anweisung auskommentiert werden
'If MsgBox("Suchbegriff: " & sFind & ",gefunden in " _
& wks.Name & ", " & rng.Address, vbYesNo + vbQuestion, "Weitersuchen ?") = vbNo Then Exit Sub
wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(cr)
'wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(cr)
cr = cr + 1
Set rng = wks.Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
NextStart:
Next wks
MsgBox prompt:="Keine neue Fundstelle!"
Wie kann ich es aber so verändern, dass beim Finden eines übereinstimmenden Wertes nicht der Inhalt in die Ergebnis-Tabelle kopiert wird, sondern nur der Tabellenname, in der der Wert gefunden wurde?
Torsten
Anzeige
AW: Neue Tabellen automatisch bezeichnen ...
12.09.2006 11:19:04
Hoffi
Hallo Torsten,
Zu 2.
Ein Beispiel mit Ausgabe in MsgBox

Sub Such_Find()
Dim Suche As String
Dim Ausgabe As String
Dim rng As Range
Dim i As Integer
Suche = InputBox("Was suchst Du?")
For i = 1 To Worksheets.Count
Set rng = Sheets(i).Cells
Ausgabe = rng.Cells.Find(Suche)
MsgBox Sheets(i).Name
Next i
End Sub

Grüße
Hoffi
P.S. Rückmeldung wäre nett...
Anzeige
AW: Neue Tabellen automatisch bezeichnen ...
12.09.2006 11:41:47
Torsten
Ja, so geht`s prima !!!
Vielen Dank !!!
Torsten
;

Forumthreads zu verwandten Themen

Liste aus Liste erstellen
Ernst

Hallo Vba Profis !
Ich habe folgende Problemstellung und zwar meine Exelliste die ich Auslaufmanagement benannt habe und unter folgendem Link abrufbar ist: https://www.herber.de/bbs/user/54880.zip
besteht aus drei Tabellenblättern (im Tabellenblatt Auslaufmanagement wird eine Nummer ei...
25.08.2008 14:02:00
Thread-ID: 1004448
21 Beiträge
Auswahlliste erstellen
Manuel

Hallo!
Ich möchte gerne eine Auswahlliste mit EXCEL (verstehe nix von VBA...) erstellen, wo man meinetwegen verschiedene Ausstattungen von Kfz anklicken kann, die dann später ausgedruckt werden, ohne dass die nichtangeklickten mit ausgedruckt werden... Geht sowas?
Irgendwie alle Punkte...
17.02.2009 13:30:00
Thread-ID: 1051459
2 Beiträge
Anzeige
Blatt gegen neues Blatt tauschen, Formeln defekt
Kasimir

Hallo Leute,
eventuell wisst Ihr wie ich mein Problem lösen kann. Ich habe eine Datei mit vielen Formeln, die sich auch auf andere Tabellenblätter der Datei beziehen. Nun muss ich ein Tabellenblatt gegen ein anderes austauschen. Mein Problem ist nun, wenn ich das eine Blatt lösche, werden i...
04.03.2009 08:31:47
Thread-ID: 1056166
7 Beiträge
Anzeige
Kopiertes Tabellenblatt aus Vorlage speichern
Bertram

Hallo zusammen,
ich bekomme seit Neuestem beim Speichern einer Datei (mittels VBA) manchmal eine Fehlermeldung. Ich habe zwar schon im Archiv gesucht, aber nix gefunden. Wahrscheinlich liegt's an meinen Suchbegriffen, denn ich hab die Fehlermeldung noch nie vorher gesehen und weiß nicht, wi...
05.03.2009 12:20:42
Thread-ID: 1056776
11 Beiträge
Anzeige
Tabellenblätter aus Liste erstellen
StefanS

Guten Morgen,
kaum hat der Tag begonnen und schon hänge ich wieder fest!
Diesmal soll aus einer Liste (bezugnehmend auf die Spalte Section) div.Tabellenblätter mit der Bezeichnung Register_1 usw. erstellt werden. Die Anzahl der neuen Tabellenblätter entspricht der Anzahl der aufgeführt...
12.05.2009 08:10:21
Thread-ID: 1074477
6 Beiträge
Arbeitsmappeen aus liste erstellen
Clemens

Guten Morgen werte Liste,
Ich sehe mich gerade mit folgendem Office2003 Problem konfrontiert:
mir liegt eine große Liste vor, anhand derer ich Arbeitsmappen und Tabellenblätter erstellen soll.
Konkret sieht die List folgendermaßen aus
Spalte A
Arbeitsmappenname1
Tabelle...
25.05.2009 11:45:08
Thread-ID: 1077111
4 Beiträge
Anzeige
aus Excel Liste Dateien erstellen
andi

Hi ihr,
ich muss folgendes machen für Scheffe:
Eine Excel "Datenbank" mit 1000 Datensätzen. Eine Spalte besteht aus ID (eindeutig) eine andere aus Farben. Nun soll ich aus jeder Zeile einen Dateinamen mit .html generiern - also z.B. 122blau.html. Geht das irgendwie mit einem Makro?
...
21.06.2009 23:44:16
Thread-ID: 1083348
7 Beiträge
Dynamische Auswahlliste erstellen
Kay

Hallo Liste,
Ich brauche mal einen Denkanstoß.
Ich möchte eine Auswahlliste erstellen die nur die Zellen aus der Spalte M enthält die in Spalte N den Wert J haben.
Zellenbereich M2:N150 in Tabelle2
Die Zellen der Spalte M haben folgende Formel.
M2 =A2&“ “&B2&...
19.08.2009 21:01:01
Thread-ID: 1097219
3 Beiträge
Aus liste Strukturierte übersicht erstellen
Timo

Hallo Zusammen,
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Kategorie | Aktivität | Detailbeschreibung
BHB Erstellung BHB BHB für Citrix
Notes Anpassung WF Anpassung des Workflows für Notes 7
BHB Anpassung BHB A...
09.09.2009 22:23:52
Thread-ID: 1101621
2 Beiträge
neue Exceldatei incl. Makro automatisch erstellen
skaddy

Hallo zusammen
Ich erstelle mit einen Makro aus dem Excel heraus ein Wordfile, welches ich wiederum mit Teilinhalte aus Excel beschreibe. Nun möchte ich dem neu erstellten Wordfile noch gerne ein Makro (also im .doc) mitgeben mit welchem ich dann im Word mit einem Hotkey noch ein WordMakro...
17.09.2009 23:02:47
Thread-ID: 1103727
11 Beiträge
Tabellenblätter aut. aus Filterelementen erstellen
Helmut

Hallo liebe VBA’ler,
ich bräuchte bitte wieder Hilfe von euch. Ich habe folgende Aufgabenstellung mit einem Makro zu automatisieren:
Ich habe ein Excel-File, das ein Tabellenblatt hat. In diesem befinden sich mehrere ausgefüllte Spalten. Die ersten beiden Zeilen im 1.Tabellenblatt sind...
19.03.2010 12:25:50
Thread-ID: 1147101
4 Beiträge
aus abgespeicherten Emails eine Liste erstellen
niitaka


Hallo zusammen,
für unsere Pfojektabwicklung versuche ich gerade, eine EMail-Datenbank in Excel zu erstellen!
Dazu wird der gewünschte Pfad eingegeben und darin nach allen abgespeicherten EMails im msg-Format gesucht.
Die Mails werden derzeit nur mit Ihrem Dateinamen inkl. Hype...
14.04.2010 12:16:37
Thread-ID: 1151704
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige