Datenexport funktioniert nicht richtig?

Hallo,
ok das funktioniert. danke
Jetzt sollte er mir die Daten in Datentransfer als DAT Datei exportieren. Hier wandelt er mir immer bis alle 70 Zeilen um obwohl ich z.b. nur neun Zeilen mit Auftragsnummer und Bemerkung gefüllt habe.
Hier der Code:
ActiveWorkbook.Unprotect Password:="......"
Worksheets("Datentransfer").Visible = True
Worksheets("Datentransfer").Select
Range("A1").Select
Selection.PasteSpecial xlPasteValues
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strpfad As String
Dim strFile As String
Dim strTrennzeichen As String
strpfad = ActiveWorkbook.FullName
strpfad = Replace(strpfad, ".xltm", ".dat")
strFile = "A:\daten.dat"
strTrennzeichen = vbTab
Set Bereich = ActiveSheet.UsedRange
Open strFile For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & "" & CStr(Zelle.Text) & "" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Datenexport abgeschlossen!"
Dim InI As Integer
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name "Wasser Färbung 254 nm" Then Sheets(InI).Visible = xlVeryHidden
Next InI
Range("B7").Select
Selection.ClearContents
Range("E2").Select
End Sub
Wo mache ich hier einen Fehler?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
Frage: Warum machst du einen neuen Beitrag auf? Du hättest den alten Beitrag auch auf offen setzen können.
Anmerkungen zu deinem Code:
1. Auf Select und Activate verzichten
2. die Deklaration von Variablen gehört in den Kopf des Makros und nicht irgendwo in den Code
3. warum deklarierst du diverse Variablen als Object - sind doch Range-Variablen
4. Deklarierst du die Variablen "Dim strTemp As String / Dim strpfad As String" und weist ihnen auch Werte zu, im weiteren Code verwendest du sie aber nicht.
Teste mal:

Public Sub aaa()
Dim Bereich As Range, Zeile As Range, Zelle As Range
Dim strFile As String, strTrennzeichen As String
Dim loLetzte As Long, InI As Integer
ActiveWorkbook.Unprotect Password:="......"
strFile = "A:\daten.dat"
strTrennzeichen = vbTab
With Worksheets("Datentransfer")
.Visible = True
.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
'Bereich bzgl. der Spalten und der Startzeite an deine Bedürfnisse anpassen
Set Bereich = .Range(.Cells(1, "A"), .Cells(loLetzte, "B"))
Open strFile For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & "" & CStr(Zelle.Text) & "" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
For InI = Sheets.Count To 1 Step -1
If Sheets(InI).Name  "Wasser Färbung 254 nm" Then
Sheets(InI).Visible = xlVeryHidden
Exit For
End If
Next InI
.Range("B7").ClearContents
.Range("E2").Select
End With
MsgBox "Datenexport abgeschlossen!"
Set Bereich = Nothing
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Datenexport funktioniert nicht richtig?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenexport funktioniert nicht richtig?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread