Hallo Zusammen,

ich habe hier gleich zwei Probleme, bei denen ich nicht wirklich weiter weiß. Zum einen möchte ich aus einer Exceldatei lediglich ein Sheet speichern und zum anderen soll der Speichervorgang für jeden Durchlauf meines Makros durchgeführt werden.

Was ist mein Ziel? Ich habe eine Exceldatei, in der zwei Sheets sind. Einmal eins, indem Daten enthalten sind und eins, indem eine Maske vorliegt, in dem bestimmte Daten aus dem Datensheet Zeile für Zeile in die Maske ünertragen werden sollen. Nachdem eine Zeile in die Maske übertragen wurde, möchte ich gerne, das Excel die ausgefüllte Maske in einer separaten Datei speichert. Nach dem Speichervorgang soll die nächste Zeile in die Maske übernommen werden und wieder gespeichert werden.

Ich habe einen Code geschrieben, der jede Zeile durchgeht und die relevanten Daten in die Maske einfügt und eine separate Datei erzeugt. Das funktioniert also alles. Das Problem ist, dass das Datensheet auch mit gespeichert wird.

Hat jemand von euch eine Idee wie man das Problem löst?

Viele Grüße

Stefan

Sub Datenübertragung()
    Dim Zeile As Long                   
    Dim ZeileMax As Long                
    Dim n As Long                       


    With Daten                          
    ZeileMax = .UsedRange.Rows.Count    
    n = 1                               


    For Zeile = 2 To ZeileMax                               
    .Range("A" & Zeile).Copy Destination:=Maske.Range("A2") 
    .Range("B" & Zeile).Copy Destination:=Maske.Range("D7")
    .Range("C" & Zeile).Copy Destination:=Maske.Range("H4")
    .Range("D" & Zeile).Copy Destination:=Maske.Range("A18")



    Application.DisplayAlerts = False '

    ActiveWorkbook.SaveAs ("C:\Test Speicherort\" & "NAME_" & Zeile - 1 & _
    Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date) & _
    ".xlsx"), FileFormat:=xlOpenXMLWorkbook                                        
    Application.DisplayAlerts = True ' Fehlermeldungen an

    n = n + 1 


    Next Zeile
    End With
End Sub