wo ist mein logikfehler?
29.09.2006 10:32:01
Alex
ich hab diese woche nach einer lösung zum speichern einer datei gefragt und eine traumhaft schöne lösung bekommen.
leider soll das ding auch unter MS office für Mac :-( laufen, daher musste ich auf große teile verzichten und hab mir jetzt selber etwas einfach zusammengebaut. der wesentliche code sieht so aus:
Sub speichern()
Dim pfad$, dateiname$, ext$
JaNein = 0
pfad = "macintosh HD:users:manfred:Desktop:bm:rg:"
ext = ".xls"
dateiname = Left(Workbooks("BM.xls").Sheets("rechnung").Range("B15"), 17) & "_" & Sheets("rechnung").Range("F11")
Do Until JaNein = 1
If Dir(pfad & dateiname & ext) = "" Then
ActiveWorkbook.SaveAs Filename:=pfad & dateiname & ext
JaNein = 1
Else:
dateiname = dateiname & "2"
JaNein = 0
End If
Loop
End Sub
und jetzt das witzige:
der code wird immer 2x durchlaufen! d.h. er erstellt mir IMMER die datei + eine datei2
wenn es datei2 schon gibt, ist das ergebnis datei22 + datei222
also immer einmal zu viel!
wo ist mein fehler?danke!
lg