Tabellenblätter automatisch umbenennen
19.03.2020 12:27:57
Schulz
ich bin in Moment im HomeOffice und mein Kollege der sich richtig gut mit Excel und VBA auskennt ist nicht erreichbar.
Im Anhang habe ich eine Word-Datei mit 2 Bildern von der Excel-Datei, die ich mit Desktop-Foto gemacht habe und einen im Netz gefundenen Code. Die Excel-Datei ist zu groß um sie zu senden.
Hier die Datei: https://www.herber.de/bbs/user/135950.doc
Die geplante Excel-Datei besteht aus mehreren Blättern:
1. Tabellenblatt 1 mit den Namen "Übersicht"
2. dort stehen in den formatierten Cellen A15:A20, 6 Monatsnamen , z.B. "Februar 20" usw.. Es ist natürlich im Datumsformat formatiert
3. Dann folgen 6 Tabellenblätter, die benannt sind in "Monat1" bis "Monat6", die automatisch umbenannt werden sollen nach den Daten aus Tabellenblatt "Übersicht" aus den Cellen A15.A20, also auch in z.B. "Februar 20" usw.. Danach kommen 2 Blätter die keine Bedeutung dafür haben.
4. Unter Tabellenblatt "Übersicht" habe ich bei Code schon einen VBA-Code eingebaut, dem ich im _ Netz gefunden habe. Hier der Code: (In der Word-Datei Anhand der Bilder hoffentlich auch verständlich)
Sub Tabellen_umbenennen()
Dim TabNam(12) As String
TabNam(1) = "Monat1": TabNam(2) = "Monat2": TabNam(3) = "Monat3"
TabNam(4) = "Monat4": TabNam(5) = "Monat5": TabNam(6) = "Monat6"
Application.ScreenUpdating = False
' schaltet die Aktualisierung des Bildschirms aus
For i = 15 To 20
j = Worksheets(TabNam(i - 1)).Index
Worksheets(j).Activate
Namen = Format(Worksheets(1).Cells(i, 1), "MMMM YY")
'oder :
'Namen = Format(Worksheets("Übersicht").Cells(i, 1), "MMMM YY")
Worksheets(j).Name = Namen
Next
Worksheets(1).Activate ' oder : Worksheets("Übersicht").Activate
Application.ScreenUpdating = True
' schaltet die Aktualisierung des Bildschirms wieder ein
End Sub
Ich hoffe jemand kann mir helfen. ich bin nicht gut in diesen Dingen und hoffe um Verständnis.
Bleibt alle Gesund!