Für die Arbeit muss viele verschiedene Listen erstellen, alle mit dem gleichen Layout etc.. um _
dies zu vereinfachen habe ich folgendes Makro erstellt.
Sub Makro1()
Dim Name, Vorname, PersNr, Eintritt, GebDat, Vorgesetzter, Stellenproz, Abteilung, Kst, _
Funktion, Bemerkung, ILKO, FormNr
Application.ScreenUpdating = False
Row = 3
Do
Windows("Mitarbeiterliste.xlsm").Activate
Sheets("EAV").Select
Name = Cells(Row, "A").Value
If Name = "End" Then Exit Do
Vorname = Cells(Row, "B").Value
PersNr = Cells(Row, "F").Value
Eintritt = Cells(Row, "E").Value
GebDat = Cells(Row, "D").Value
Vorgesetzter = Cells(Row, "K").Value
Stellenproz = Cells(Row, "C").Value
Abteilung = Cells(Row, "H").Value
Kst = Cells(Row, "G").Value
Funktion = Cells(Row, "J").Value
Bemerkung = Cells(Row, "I").Value
ILKO = Cells(Row, "L").Value
FormNr = Cells(Row, "M").Value
If InStr(FormNr, 1) > 0 Then
Windows("Formular1.xlsx").Activate
Sheets("Vorlage").Select
Cells(3, "C").Value = Name & " " & Vorname
Cells(3, "I").Value = Eintritt
Cells(3, "E").Value = Stellenproz
Cells(4, "C").Value = Kst
Cells(4, "E").Value = ILKO
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\" & Kst & "\" & Name & " " & _
Vorname & " (1) .xlsx"
End If
Row = Row + 1
Loop Until Row = 250
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Es geht dabei darum, dass ich eine neue Excel-Datei erstelle, dies geschieht durch Kopieren. Die Datei wird von Formular1 kopiert und auch mit Namen abgespeichert. Dies funktioniert einwandfrei. Nun müsste ich noch Namen, Vornamen, Stellenproz, KST und ILKO in die kopierte Variante einfügen und zwar bei allen.
Warum kopierst es alle Listen und speichert diese auch richtig ab, aber es fügt keine Daten ein?
Vielen Dank für eure Hilfe.
Gruss