Zeitmakro
18.06.2005 16:02:40
Milan
1.brauche ein zusatzmakro das dass nachstehendes makro alle 70 sekunden aktiviert, das aber höchstens 20x hintereinander.
2.wie kann man das makro verändern, so das die kommas in der gesicherten textdatei nicht in hochklammern gesetzt werden.
(obwohl ich hinter den zahlen nur das komma gesetzt habe, erscheinen die kommas in hochklamern beim einlesen der datei.
die testdatei als anhang: https://www.herber.de/bbs/user/23995.xls
Sub sichern()
Dim strNam As String
strNam = Range("AA1")
If strNam <> "" Then
Range("AA1") = ""
Range("W1") = ""
MkDir ActiveWorkbook.Path & "\" & strNam
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strNam & "\" & strNam, xlTextMSDOS
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub
danke vorab für eure hilfe
gruß an alle
milan