Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1708to1712
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
Inhaltsverzeichnis

Anlagennr. nach kopieren des Tab.Blattes anpassen

Anlagennr. nach kopieren des Tab.Blattes anpassen
01.09.2019 20:49:15
Linn
Hallo zusammen,
ich versuche mich gerade an meiner ersten userform und stehe gerade vor dem Problem die über ein Textfeld eingegebene Anlagennummer automatisch bei jedem weiteren Tabellenblatt aufsteigend anzupassen.
Zur Vervielfältigung meiner Tabelle gibt es bis jetzt einen Button in einem extra modul mit dem ich das jeweils aktive Arbeitsblatt kopiere.
Die Anweisung des Textfeldes Anlagennummer steht aber bis jetzt in Formular Userform1.
Am besten wäre es glaube ich diese Prozedur der aufsteigenden Anlagennummer seperat im
Seite kopieren Modul zu entwerfen aber
ich kenne mich noch nicht gut aus und komme schon seit Stunden nicht weiter.
Ich hoffe jemand kann mir helfen die Anlagennummer der ersten Seite ist immer 3.1 die anderen sollen dann 3.2, 3.3 usw. heißen bis 100 und die Spalte ist in jedem Tabellenblatt R2.
VlG
Linn

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anlagennr. nach kopieren des Tab.Blattes anpassen
01.09.2019 22:20:32
{Boris}
Hi,
folgender Code ermittelt Dir den nächsten Blattnamen. Unterstellt wird dabei, dass es keine Blattnamen mit . (Punkt) gibt, die hinter dem . (Punkt) KEINE Zahl stehen haben:
Option Explicit
Sub neues_Blatt()
Dim Ws As Worksheet
Dim lngMax As Long
Dim lngSheet As Long
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name Like "*.*" Then
lngSheet = CLng(Mid(Ws.Name, InStr(1, Ws.Name, ".") + 1, 100))
If lngSheet > lngMax Then lngMax = lngSheet
End If
Next Ws
MsgBox "Naechstes Blatt erhaelt den Namen 3." & lngMax + 1
End Sub
VG, Boris
Anzeige
AW: Anlagennr. nach kopieren des Tab.Blattes anpassen
02.09.2019 05:49:57
Linn
Guten Morgen Boris,
Klasse Dankeschön für deine schnelle Hilfe ich werde es gleich heute Abend ausprobieren und dir eine Rückmeldung geben.
VG
AW: Anlagennr. nach kopieren des Tab.Blattes anpassen
02.09.2019 20:11:20
Linn
Funktioniert wunderbar.
Danke, Danke, Danke
Jetzt kann ich mich endlich auf die wichtigen Dinge konzentrieren.
AW: Anlagennr. nach kopieren des Tab.Blattes anpassen
02.09.2019 22:28:26
Linn
Funktioniert wunderbar.
Danke, Danke, Danke
Jetzt kann ich mich endlich auf die wichtigen Dinge konzentrieren.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige