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
|