AW: Format "#0.000000"
29.10.2007 17:47:00
andre
Hallo Tino,
danke für deinen Vorschlag aber damit muss ich zugeben habe ich noch so meine Schwierigkeiten mich da reinzudenken, es sind ein paar tausend Zeilen die da hin und her bewegt werden und mehrere Makros.
zusammengefasst wurde es weil ich so ( für mich ) am einfachsten das Ausgabeformat erreicht habe das ich brauche. Eben ist mir noch eine andere Idee gekommen aber das ist noch zu hoch für mich um es umzusetzen.
folgender Code speicherte das Ergebnis bisher ab...
er fügt am Anfang und Ende eine Zeile ein und splittet die Datei wenn größer als 3000 Zeilen auf in eine 2. oder 3. usw.
funktionierte bisher super.
um das Nullenproblem zu lösen müsste er so geändert werden das er nur Zeilen ausgibt in denen auch etwas steht (wenn ich es einfach so ersetzte bringt er mir einen Haufen Leerzeilen mit) und das Trennzeichen (;) verschwindet
Gruß Andre
Dim Bereich As Object
Dim ZZeile As Object
Dim Zelle As Object
Dim strTemp As String
Dim intNumber As Integer
Const Dateiname As String = "Datei"
Const Extension As String = ".txt"
Const Trennzeichen As String = ""
Const Kapselzeichen As String = ""
Set Bereich = ActiveSheet.UsedRange
Open myPath & Dateiname & "1" & Extension For Output As #1
Print #1, "Text1 einfügen"
For Each ZZeile In Bereich.Rows
intNumber = intNumber + 1
For Each Zelle In ZZeile.Cells
If InStr(1, Zelle.Text, Trennzeichen) > 0 Then
strTemp = strTemp & Kapselzeichen & CStr(Zelle.Text) & _
Kapselzeichen & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
If intNumber / 3000 = Int(intNumber / 3000) Then
Print #1, "Text2 einfügen"
Close #1
Open myPath & Dateiname & intNumber / 3000 + 1 & Extension For Output As #1
Print #1, "Text1 einfügen"
End If
Next
Print #1, "Text2 einfügen"
Close #1