Herbers Excel-Forum - das Archiv

Arbeitmappe kopieren mit neuem Namen

Bild

Betrifft: Arbeitmappe kopieren mit neuem Namen
von: Gerhard

Geschrieben am: 23.12.2006 14:44:16
Hallo
wie kann ich in einer Arbeitsmappe via VBA die aktive Tabelle an das Ende der Arbeitsmappe kopieren und diese Tabelle anschließend umbennen?
Der Name dieser Tabelle sollte immer anfangen mit "OFL_" danach sollte
der Name ab der 9.Stelle bis zur 12.Stelle aus dem Inhalt der Zelle B5 übernommen werden?
Beispiel:
Inhalt von Zelle B5 könnte stehen: A7.5500.RKL3.1A
Jetzt sollte die Tabelle umbenannt werden in: OFL_RKL3
Vielen Dank für Eure Hilfe
Gruß
Gerhard
Bild

Betrifft: AW: Arbeitmappe kopieren mit neuem Namen
von: Oberschlumpf

Geschrieben am: 23.12.2006 14:58:04
Hi Gerhard
Versuch es mal so:
Schreib diesen Code in ein allgemeines Modul:
Sub Kopieren()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "OFL_" & Mid(ActiveSheet.Range("B5").Value, 9, 4)
End Sub

Nachdem das geschehen ist, kannst du das Makro so verwenden:
1. Wähle das Tabellenblatt aus, welches kopiert werden soll
2. Starte über Extras/Makro/Makros das Makro mit dem Namen "Kopieren"
fertig
Konnte ich helfen?
Ciao
Thorsten
Bild

Betrifft: AW: Arbeitmappe kopieren mit neuem Namen
von: Gerhard

Geschrieben am: 23.12.2006 19:01:01
Hallon Thorsten
Vielen Dank für Deine Hilfe, funktioniert super...
Schöne Weihnachten und ein gutes neues Jahr wünsche ich Dir und Deinem Forum Team.
Ihr habt mir schon des öfteren bei Excel Problemen geholfen.
Dafür bedanke ich mich bei Euch recht herzlich.
Alles Gute weiterhin...
Gruß
Gerhard
Bild

Betrifft: AW: Arbeitmappe kopieren mit neuem Namen
von: Oberschlumpf

Geschrieben am: 23.12.2006 22:25:44
Hi Gerhard
Danke schön! Ich wünsch dir und all denen, die das hier lesen, auch n schönes Fest und n tollen Rutsch ins 2007 :-)
Wir sind alle ein Team - die Fragenden und die Antwortenden.
Ciao
Thorsten
 Bild
Excel-Beispiele zum Thema "Arbeitmappe kopieren mit neuem Namen"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren