ich habe ein kleines Problem und hoffe auf eure Hilfe.
Ich habe schonmal rumgesucht und auch einiges gefunden. daraus habe ich mir folgendes Makro erstellt bzw. leicht abgewandelt. Die Datei wird als CSV erstellt so abgespeichert C:\Stammdaten.txt.
Nun möchte ich das die Datei in vier unterschiedlichen Verzeichnissen abgespeichert wird.
Das Mokro viermal hintereinander laufen lassen möchte ich nicht, da gibt es bestimmt einen besseren Weg.
Danke schonmal für eure Hilfe - Andreas
Sub SaveCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String
strMappenpfad = ActiveWorkbook.FullName
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")
strDateiname = "c:\stammdaten.txt"
If strDateiname = "" Then Exit Sub
strTrennzeichen = ";"
If strTrennzeichen = "" Then Exit Sub
Set Bereich = Worksheets("scanner_stamm").UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub