ich habe folgendes Skript,das im wesentlichen funktioniert, aber immer noch weitere Zeilen anfügt und ich weiss nicht warum. Was muss ich ändern, damit nur die gefüllten Zeilen gespeichert werden?
Vielen Dank für eure Hilfe.
Gruß,
Mika
Skript:
Sub AlsTextSpeichern()
Dim sfile As Integer
ActiveSheet.Select
Cells.Replace What:="ö", Replacement:="oe", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="ä", Replacement:="ae", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="ü", Replacement:="ue", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
sfile = Format(Now, "DDMM")
exportfile = "c:\xyz\UPS\UPS" & sfile & ".csv"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets(2)
Open exportfile For Output As #Dateinummer
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To 17
TMP = TMP & CStr(TB.Cells(z, s).Text) & ","
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub
ERGEBNIS:
Hans Meyer,Hans Meyer,Hans Meyer,Koepenicker Str. 20,,,Koepenick,,10002,DE,01701234567,,hansmeyer@yahoo.de,,1,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,