bestehende Blattnamen nach Liste umbenennen
25.08.2003 11:16:26
Fritz
mit Hilfe der nachfolgenden Prozedur, die ich über eine Schaltfläche aus der dem Tabellenblatt "Tabelle1" starte, lege ich in der Arbeitsmpappe soviel neue Tabellen an, wie in einer Liste in der Spalte A im Tabellenblatt "Tabelle1" Namen aufgeführt sind, dabei werden die Tabellen entsprechend den in der Liste
angegebenen Namen benannt.
Ich möchte nun folgendes erreichen:
1. Die eingefügten Tabellen sollen in jedem Fall unmittelbar hinter dem Tabellenblatt eingefügt werden, aus dem die Prozedur gestartet wird (also hinter Tabelle 1), also auch wenn bereits weitere Blätter in der Mappe enthalten sind (müsste man das wohl über eine weitere Prozedur veranlassen, dass die Blätter entsprechend umsortiert werden?)
2. Mit welcher Prozedur könnte man anschließend erreichen, dass wenn die Liste (auch nur teilweise) geändert wird, (nur)die Tabellenblätter entsprechend der Änderungen umbenannt werden.
Sub TabNamenFestlegen()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = ActiveSheet
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 1))
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = wks.Cells(iRow, 1).Value
iRow = iRow + 1
Loop
Sheets("Tabelle1").Select
End Sub
Ich hoffe, dass ich euch mit diesem Anliegen nicht über Gebühr strapaziere, aber ich habe inzwischen mitbekommen, dass über dieses Forum auch in recht komplexen Aufgabenstellung Hilfe angeboten wird.
Deshalb vielen Dank an alle, die mir entsprechende Vorschläge und Hinweise geben können.
Gruß Fritz