Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tab.blätter mit button kopieren & namen vergeben

Forumthread: Tab.blätter mit button kopieren & namen vergeben

Tab.blätter mit button kopieren & namen vergeben
22.11.2004 15:17:43
Hans
hallo an euch!
ich hoffe auf eure hilfe bei meinem bescheidenem problem.
ich möchte per button neue tabellen aus einer "muster"-tabelle erstellen. diese müssen/sollen eine durchlaufende nummerierung erhalten. nach dieser numerierung sollte noch eine (zu vergebender) name stehen (im beispiel unten Monatsnamen). ich dachte dabei auf eine eingabe über eine input box.
die excel-datei sollte dann ungefähr so aussehen:
Hauptabelle (mit button)
Mustertabelle (test)
test (1) - Januar
test (2) - Februar
...
das versuchte ich mit folgenden code:

Private Sub CommandButton1_Click()
Sheets("test").Copy After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Visible = True
neuer_name = Application.InputBox("Enter a name")
Worksheets(Sheets.Count).Name = Worksheets(Sheets.Count).Name & " - " & neuer_name
End Sub

funktioniert aber nicht ganz, da er nicht wirklich nummeriert. er bleibt immer bei "test (2)"!?
kann man das irgendwie lösen
liebe grüße,
hans
Anzeige
AW: Tab.blätter mit button kopieren & namen vergeben
AndréL.
Hallo Hans,
probier mal das hier:

Private Sub CommandButton1_Click()
Sheets("test").Copy After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Visible = True
With NewWorksheet
neuer_name = Application.InputBox("Enter a name")
Worksheets(Sheets.Count).Name = neuer_name
End With
End Sub

Gruß
AndréL.
Anzeige
So wars nicht gedacht (Missverständnis)
Hans
danke für d. antwort. vielleicht hab ich mich nicht so deutlich ausgedrückt.
dieses test und die zahl in klammern kommt ja automatisch, soblad ich nur das hier laufen lasse:

Private Sub CommandButton1_Click()
Sheets("test").Copy After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Visible = True
End Sub

das ist so auch gewünscht, sprich das soll so sein. der zweite teil soll ja als ergänzung gedacht sein.
er öffnet also ein blatt mit dem namen "test" und gibt ihm ja auch dahinter automatisch eine fortlaufende nummer. super. jetzt möchte ich aber zusätzlich per eingabe noch etwas (wie zB die Monatsnamen) dahinter haben/eingeben. das soll dann aber alles auf dem button liegen.
mein problem war dabei, das er die nummern nicht mehr weiterzählte. das muss dann irgendwie an den unteren 2 programmierten zeilen liegen!?
gruß
hans
Anzeige
AW: So wars nicht gedacht (Missverständnis)
AndréL.
Hallo Hans,
OK war ein Missverständnis, aber(!)
ich glaube, das was Du vorhast, geht nicht.
Da Du dem neuen Blatt einen neuen Namen gibts
kann es "test"03 usw. nicht geben, denn durch den
neuen Namen kopiert der Code immer wieder "test"02.
Ich lasse mich aber gerne eines Besseren belehren,
denn man lernt ja nie aus.
Gruß
AndréL.
Anzeige
AW: So wars nicht gedacht (Missverständnis)
Panicman
Hallo Hans, Hallo AndréL
hier mal ein Ansatz

Sub Makro2()
Set WKS = Sheets("test")
For I = 1 To Worksheets.Count
If InStr(1, Worksheets(I).Name, WKS.Name, vbTextCompare) > 0 Then
x = x + 1
End If
Next
WKS.Copy After:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Visible = True
'neuer_name = Application.InputBox("Enter a name")
neuer_name = Format(DateSerial(Year(Now()), x, 1), "MMMM")
Worksheets(Sheets.Count).Name = WKS.Name & " (" & x & ") - " & neuer_name
End Sub

Gruß
Holger
Anzeige
AW: So wars nicht gedacht (Missverständnis)
AndréL.
Hallo Holger (Panicman)
große Klasse, da wär ich als VBA-Anfänger
bestimmt nicht 'drauf gekommen.
Ich ziehe meinen Hut !!
Danke (wieder was gelernt)
Gruß
AndréL.
AW: 1000 Dank für die Lösung, funktioniert prima!
Hans
Hallo AndreL, hallo Panicman!
erstmal vielen Dank für eure Mühe & Hilfe. Es funktioniert so wie ich das mir erdacht hatte.
Panicman, meine Hochachtung vor dir. Das ist klasse, hätte ich in tausend Jahren VB-lernen so nicht hingekriegt!
gruß,
Hans
Anzeige
;

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Öffnen mehrer Dateien mit gleichen Namen
Ryu

Hallo!
Wenn ich irgendwelche Exceldateien öffne und anschließend noch eine andere mit dem selben Namen (Wenn ich z.B. das Original bei mir behalte und die korrigierten von Kollegen bekomme), dann ist es so, dass entweder die zweite Datei automatisch umbenannt und geöffnet wird oder es wird...
27.08.2008 18:02:00
Thread-ID: 1005168
3 Beiträge
Liste mit Arbeitsblattnamen
Christian

Hallo Forum,
ich habe in einer Exceldatei mehrer - viele Arbeitsblätter, die, da sie importiert wurden, sehr unterschiedliche Namen haben, wie z.b. Apfel, Spargel, Schrauben, Ausfall......0,123 5,38 usw.
Um Daten aus diesen Blättern zusammenführen zu können benötige ich in einem Arbei...
28.08.2008 10:35:00
Thread-ID: 1005327
8 Beiträge
Anzeige
Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Datei öffnen Abfrage nach Dateinamen mit Userform
lisa

Hallo zusammen.
Ich hab die gleiche Frage in einem älteren Thread von mir gerade eben gestellt.
Ich weiß aber nicht ob diesen noch jemand liest, da ich die Frage nicht auf, noch offen gestellt, habe und ihn auch nicht in Beiträge von heute finde.
Also wenn doppelt, bitte nicht böse...
04.09.2008 14:23:00
Thread-ID: 1007419
5 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Probleme mit Namen für Formel und Vba
Reinhard

Hallo Wissende,
die Datei: https://www.herber.de/bbs/user/56243.xls hat nach Klick auf den Button die nachfolgende Tabelle:
Die Berechnung in Spalte C ist korrekt, so soll es aussehen, also pro Stunde nur einen Wert, Rest 0.
Da die Originaldatei alle 65536 Zeilen ausgenutzt hat, e...
24.10.2008 13:28:00
Thread-ID: 1018986
6 Beiträge
Probleme mit Namen / Funktion
born2b@gmx.de

Guten Morgen,
bei angehängter Datei bekomme ich beim Speichern immer die
Meldung "Der Name Dms360 steht in Konflikt mit einer gültigen
Bereichsbezeichnung oder ist für Exel ungültig. Der Name
wurde durch _Dms360 ersetzt".
Dms360 ist eine selbstdefinierte Funktion. Ich fi...
05.11.2008 10:34:00
Thread-ID: 1021784
2 Beiträge
Anzeige
Probleme mit Namen / Funktion
born2b@gmx.de

Guten Morgen,
bei angehängter Datei bekomme ich beim Speichern immer die
Meldung "Der Name Dms360 steht in Konflikt mit einer gültigen
Bereichsbezeichnung oder ist für Exel ungültig. Der Name
wurde durch _Dms360 ersetzt".
Dms360 ist eine selbstdefinierte Funktion. Ich fi...
05.11.2008 11:01:00
Thread-ID: 1021795
2 Beiträge
Anzeige
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 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