Export in anderes Excel- File
Micha
mein vorhaben besteht darin, aus einem Excel- File mit 12 Tabellenblättern (Monaten), für jede "Schicht: A, B, C und D" die Namen der Mitarbeiter und den Schichtplan in die Dateien "Anwesenheit_4FA.xls, Anwesenheit_4FB.xls, usw. " zu kopieren. Die genannten Informationen, sollen fortlaufend in einem Blatt gespeichert werden.
Bsp. für die Übersicht (IST):
A-Schicht
Name | Mo. | Di. | usw.
Müller | Früh | Spät | usw.
Meier | Früh | Spät | usw.
B-Schicht
Name | Mo. | Di. | usw.
Toll | Spät | Nacht | usw.
Rohr |Spät | Nacht | usw
Bsp. für Anwesenheit_4FA (Soll):
...Januar...
Name | Mo. | Di. | usw.
Müller | Früh | Spät | usw.
Meier | Früh | Spät | usw.
... nachster Monat...
Name | Mo. | Di. | usw.
Müller | Früh | Spät | usw.
Bei dem von mir erstellten Makro habe ich allerdings Große Probleme, die Formatierung aus der Übersicht zu übernehmen. Die Werte werden schon richtig übernommen, nur die Formate leider nicht. Ach so, das einzigste was nicht kopiert werden darf sind Kommentare.
Was hab ich falsch gemacht? Bitte um Hilfe :-)
Danke und Gruß Micha
Hier der Code:
Sub AWkopierenV2()
Dim wks As Integer
Dim pfad As String
Dim schicht As String
Dim i As Integer
Dim k As Integer
Dim z As Integer
schicht = "_4FA"
Application.ScreenUpdating = False
Do While schicht "Ende"
Select Case schicht
Case Is = "_4FA"
pfad = "G:\# Privat #\Michael\Excel\Export\AW_2010\Ziel\Anwesenheit" & schicht & ". _
_
xls"
i = 6
z = 1
k = 2
wks = 3
'Zieldatei öffnen
Workbooks.Open Filename:=pfad
Windows("Quelle.xls").Activate
Do While wks