ich suche jetzt seit Stunden hier im Forum und über Google und finde keine passende Antwort :-(
Mein Problem:
Ich habe eine Tabelle mit Vorgesetzten und MA-Namen (untereinander) und möchte für jeden Vorgesetzten eine neue Arbeitsmappe anlegen und die MA darin speichern.
Die Tabelle ist so aufgebaut.
Herr Meier
Herr Meier MA1
Herr Meier MA2
Herr Schmidt
Herr Schmidt MA1
Herr Schmidt MA2
Herr Schmidt MA3
usw.
Der Code sieht wie folgt aus.
Sub Neu()
Dim Zeile1 As Integer
Dim Startzeile As Integer, Letztzeile As Integer, Zeilenmerker As Integer
Dim VorgesetztName As String, VergleichName As String
Zeile1 = 1
Startzeile = 1
Do
VorgesetztName = Cells(Zeile1, 1)
VergleichName = Cells((Zeile1 + 1), 1)
Zeilenmerker = Startzeile
If VorgesetztName VergleichName Then
Letztzeile = Zeile1
Range(Cells(Startzeile, 1), Cells(Letztzeile, 100)).Copy
Workbook.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Sheets(1).Name = VorgesetztName
ActiveWorkbook.SaveAs Filename:="C:\Users\Micha\Documents\" & VorgesetztName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Startzeile = Letztzeile + 1
End If
Zeile1 = Zeile1 + 1
Loop Until Cells(Zeile1, 1) = ""
End Sub
Das funktioniert bis zum
*****
Workbook.Add
ActiveSheet.Paste
*******
Es wird eine neue Mappe angelegt aber der kopierte Bereich wird nicht eingefügt.
Wenn ich nur ein Blatt einfüge wird der Bereich eingefügt.
Wo ist mein Denkfehler?
Es ist bestimmt simpel :-(
Danke schon mal für euere Hilfe.