Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter archivieren

Tabellenblätter archivieren
15.07.2015 11:12:07
bianca
hallo Leute,
wieder mal ein kleines Excel VBA Problem:
es geht ums archivieren von Tabellenblättern.
Bsp.: Mappe 1 (Anlagen) - Mappe 2 (Archiv)
funktionieren sollte es so:
Der Anwender soll entsprechende Tabellenblätter markierend und dann über einen Butten alle markierten Tabellenblätter ins Archiv verschieben (auch wenn dieses nicht geöffnet ist)
Die Tabellenblätter sind nicht immer die selben, also kann ich sie nicht über den Namen ansprechen, die einzige Erkennung sind sie Markierungen.
Ich hoffe es gibt eine Lösung und ich freue mich auf Antworten.
lg Bianca

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter archivieren
15.07.2015 20:41:47
Michael
Hi Bianca,
das Beispiel aus http://www.office-loesung.de/ftopic311172_0_0_asc.php
listet alle markierten Blätter auf; eigentlich brauchst Du nur noch in die Archiv-Mappe zu kopieren anstatt die Msgbox anzuzeigen:
Public Sub Beispiel()
Dim objSheet As Worksheet
' Bianca2.xls muss geöffnet sein!
For Each objSheet In ActiveWindow.SelectedSheets
objSheet.Copy After:=Workbooks("Bianca2.xlsx").Sheets(Sheets.Count)
Next
End Sub
Das ist nur ne Prinzip-Lösung, es gehört sich ein Errorhandling rein und ne Überprüfung, ob die Datei bereits geöffnet ist.
Schöne Grüße,
Michael
P.S.: einen Button finde ich etwas ungeschickt - den hast Du ja nicht auf jedem Blatt; ich würde es auf ein Tastaturkürzel legen oder in eine Symbolleiste.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige