Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich in txt-File exportieren

Bereich in txt-File exportieren
06.10.2006 08:47:32
Frederic
Hi Leute,
ich habe eine DVD-Datei, welche recht aufwendig und umfangreich mit UF's gesteuert wird. Läuft auch alles perfekt bis jetzt.
Nun möchte ich gerne einen Tabellenblatt-Bereich ("Liste!A7:G3000") in ein Textfile exportieren, sauber getrennt, so dass ich auch die 7 Spalten jederzeit wieder importieren kann.
Hab schon einiges hier gefunden, aber nicht das, was ich brauche.
Bei den gängigsten Exporten speichert er das Sheet und benennt es dann um.
Gibt es eine Möglichkeit, nur den Zellbereich in ein TXT-File zu speichern?
Danke für Eure Hilfe und Anregungen.
Gruß
Frederic

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

Betreff
Datum
Anwender
Anzeige
AW: Bereich in txt-File exportieren
06.10.2006 09:11:14
Rudi
Hallo,

Sub SaveAsTxt()
Dim strSep As String, strDat As String, _
iCol As Byte, iRow As Integer, _
iR As Integer, iC As Byte, strTxt As String, _
strMldg As String, strTmp As String
If ActiveSheet Is Nothing Then Exit Sub
reset
With ActiveSheet.UsedRange
iRow = .Rows.Count
iCol = .Columns.Count
End With
strSep = InputBox("Trennzeichen?")
If strSep = "" Then Exit Sub
Select Case strSep
Case "chr(9)", "tab", "Tab": strSep = Chr(9)
Case Else:   strSep = Left(Trim(strSep), 1)
End Select
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".csv")
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = ThisWorkbook.Path & "\" & strDat
End If
If Dir(strDat) <> "" Then
strMldg = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If strMldg = vbNo Then GoTo DateiName
End If
On Error GoTo DateiFehler
Open strDat For Output As #1
With ActiveSheet.UsedRange
For iR = 1 To iRow
strTxt = ""
For iC = 1 To iCol
strTmp = .Cells(iR, iC)
'If IsDate(strTmp) Then strTmp = Format(strTmp, "DD.MM.YYYY")
strTxt = strTxt & strTmp & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
End With
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
Close 1
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub

Gruß
Rudi
Anzeige
AW: Bereich in txt-File exportieren
06.10.2006 09:22:29
Frederic
Hi Rudi,
er legt zwar alles sauber an, aber in dem exportierten File sind null daten, sie ist zwar 24 kb groß ist aber nichts drin?
Vielleicht noch eine Hilfe?
Gruß
Frederic
AW: Bereich in txt-File exportieren
06.10.2006 09:26:22
Frederic
Hi Rudi,
habs geschafft. Logo, activesheet geht ja nicht, weil es ein hiddensheets ist. Hab die Sheets und Range angepasst. Läuft perfekt...Super, tausend Dank.
Gruß und schönes WE.
Frederic

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige