Worksheet umbenennen

Forumthread: Worksheet umbenennen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Worksheet umbenennen

06.02.2019 16:55:14

Andrew

Hallo zusammen,
ich habe ein kleines Problem mit dem Umbenennen von Worksheets.
hier ist meine Excel-Tabelle:
https://www.herber.de/bbs/user/127463.xls
Im Grunde wird es nach den Werten aus der Zeile "C7 bis lastrow" sortiert und mit jeweiligen Namen mehrere Worksheets erstellt. (z.B. 3000 usw.)
Es muss aber noch die Auftragsnummer (Reiter "Parts" Zeile "F2") davor gesetzt werden, mit Unterstrich als Leerzeichen (20191000_3000).
Und das bekomme ich nicht hin.
Ich bedanke mich im Voraus!
Gruß
Andre

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Worksheet umbenennen

06.02.2019 17:15:28

UweD
AW: Worksheet umbenennen

07.02.2019 09:00:39

Andrew

AW: Worksheet umbenennen

06.02.2019 17:15:28

UweD

Hallo

    Set Sh = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
Sh.Name = Sheets("Parts").Range("F2") & "_" & Zelle
zl = Zelle

LG UweD

AW: Worksheet umbenennen

07.02.2019 09:00:39

Andrew

Hallo Uwe,
vielen Dank für die Schnelle Antwort!
Ich habe die Zeile von mir (Sh.Name = Zelle) auf (Sh.Name = Sheets("Parts").Range("F2") & "_" & Zelle) abgeändert, aber dadurch wurde das Makro "nachWertenkopieren" zerlegt. Und wenn ich den ganzen Code von dir nochmal ganz unten einfüge, werden neue Worksheets erstellt. Die Richtung stimmt, ich hoffe du hast noch eine Idee.
Vielen Dank im Voraus!
Gruß
Andrew