Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Tabs nicht einheitlich | Herbers Excel-Forum

• Tabs nicht einheitlich von Michael vom 27.01.2010 16:30:42
• Const strTrennzeichen As String = vbTab '_oT - von NoNet am 27.01.2010 16:40:46
  • AW: Const strTrennzeichen As String = vbTab '_oT - von Michael am 27.01.2010 16:50:19
    • doppelt (grrrrr) - von MichaV am 28.01.2010 09:15:43

Betrifft: Tabs nicht einheitlich von: Michael
Geschrieben am: 27.01.2010 16:30:42

Hallo,
ich hab folgendes Problem: Hab einen VBA-Code geschrieben, der auch funktioniert. Dieser Code speichert die Excel Datei als txt-Format ab. Jedoch sind die tab-Abstände nicht einheitlich.
Das sieht dann folgendermaßen aus.


Der Code sieht so aus:

Sub test()
Dim Dein_Bereich As Range
Dim sZiel As String, Ausgabe As String
Dim F As Integer

Const strTrennzeichen As String = "             "

Set Dein_Bereich = Sheets("upload_Kanal").Range("A3:H10")
Dateiname = Sheets("Tabelle1").Cells(5, 1)
 sZiel = Application.GetSaveAsFilename(Initialfilename:=Dateiname, filefilter:="(*.xls), *.xls,  _
Text Files (*.txt), *.txt")

If sZiel <> CStr(False) Then
  
  With Application
    For Each Dein_Bereich In Dein_Bereich.Rows
     If .WorksheetFunction.CountIf(Dein_Bereich, "              ") < Dein_Bereich.Columns.Count  _
Then
      Ausgabe = Ausgabe & Join(.Transpose(.Transpose(Dein_Bereich)), strTrennzeichen) & vbCrLf
     End If
    Next Dein_Bereich
  End With
  
  If Ausgabe <> "               " Then
    Ausgabe = Left$(Ausgabe, Len(Ausgabe) - 1)
     
    F = FreeFile
    Open sZiel For Output As #F
    Print #F, Ausgabe
    Close #F
  Else
    MsgBox "keine Daten"
End If
End If
End Sub

Kann mir hier vielleicht jemand weiterhelfen, damit des alles schön geordnet ist?
Ich danke für jede Hilfe.

Betrifft: Const strTrennzeichen As String = vbTab '_oT von: NoNet
Geschrieben am: 27.01.2010 16:40:46

_oT = "ohne Text"

Betrifft: AW: Const strTrennzeichen As String = vbTab '_oT von: Michael
Geschrieben am: 27.01.2010 16:50:19

Hallo,
vielen Dank für die schnelle Antwort.
Leider Funktioniert es immer noch nicht? Wissen sie zufällig noch eine andere Lösung?
Gruß Michael

Betrifft: doppelt (grrrrr) von: MichaV
Geschrieben am: 28.01.2010 09:15:43

hier gehts weiter

https://www.herber.de/forum/messages/1133603.html