Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

txt-Export ohne verborgene Spalten

txt-Export ohne verborgene Spalten
13.11.2006 20:35:46
bully
Hi ich bin's nochmals,
Nachdem ich schon für die simplen Problem Hilfe brauche bin ich hierbei erst recht eure Hilfe.
Aus der Rechere habe ich kürzliche folgenden Code zum Export in eine txt-Datei kopiert. Er funktioniert einwandfrei. Nun habe ich aber drei Spalten verborgen die ich nicht exportieren will(A:A;G:G;K:K). Ist das überhaupt möglich? Und wenn ja, wie muss der Code dann aussehen?

Sub export7()
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
iRow = ActiveSheet.UsedRange.Rows.Count
iCol = ActiveSheet.UsedRange.Columns.Count
strSep = 9
If strSep = "" Then Exit Sub
If strSep = "9" Then
strSep = Chr(9)
Else
strSep = Left(Trim(strSep), 1)
End If
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\SPRUNGM____1148___" & Format(Now, "YYYYMMDDHHMMSS") & ".txt")
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
For iR = 1 To iRow
strTxt = ""
For iC = 1 To iCol
strTxt = strTxt & Cells(iR, iC) & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
If Trim(Replace(strTxt, strSep, "")) > "" Then Print #1, strTxt
'Print #1, strTxt'
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub

Bin dankbar für Vorschläge
Gruss bully

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt-Export ohne verborgene Spalten
13.11.2006 21:34:24
Peter
Hallo bully,
ändere die Stelle
For iC = 1 To iCol
strTxt = strTxt & Cells(iR, iC) & strSep
Next iC
in
For iC = 1 To iCol
If Columns(iCol).Hidden = False Then
strTxt = strTxt & Cells(iR, iC) & strSep
End If
Next iC
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: txt-Export ohne verborgene Spalten
13.11.2006 21:39:26
Reinhard
Hallo Peter,
For iC = 1 To iCol
If Columns(iC).Hidden = False Then
strTxt = strTxt & Cells(iR, iC) & strSep
End If
Next iC

Gruß
Reinhard
AW: txt-Export ohne verborgene Spalten
13.11.2006 21:45:28
Peter
Hallo Reinhard,
das war ein Schreibfehler (eine Variable zu weit genommen) - da hast du wohl recht.
Viele Grüße Peter
Anzeige
AW: txt-Export ohne verborgene Spalten
13.11.2006 21:56:19
bully
Hallo Reinhard,
das war's! So funktioniert es!
Besten Dank
Gruss bully
txt-Export
13.11.2006 22:08:32
bully
Hallo Reinhard,
eine Anschlussfrage habe ich noch. Eine zu exportierende Datumsspalte habe ich im benutzerdefinierten Format TTMMJJJJ abgespeichert. In der Exportdatei erscheint das Datum aber wieder im Format TT.MM.JJJJ. Ist das auch noch zu korrigieren via VBA-Code?
Gruss bully
AW: txt-Export
13.11.2006 22:27:41
Reinhard
Hi Bully,
For iC = 1 To iCol
If Columns(iC).Hidden = False Then
If IsDate(Cells(iR, iC)) Then
strTxt = strTxt & Format(Cells(iR, iC), "TT.DD.YYYY") & strSep
Else
strTxt = strTxt & Cells(iR, iC) & strSep
End If
End If
Next iC

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: txt-Export
13.11.2006 22:41:37
bully
Hi Reinhard,
es funktioniert nicht wie gewünscht. Die Datumsspalte sieht nun in der txt-Datei wie folgt aus:
TT39021,DD.YYYY
Gruss bully
AW: txt-Export
13.11.2006 22:58:49
Reinhard
Hi Bully,
probiers mal so: "dd.mm.yyyy"
Gruß
Reinhard
AW: txt-Export
13.11.2006 23:15:37
bully
Hi Reinhard,
diesmal funktioniert es wie gewünscht. Das Tüpfelchen auf dem "i" wäre jetzt noch, wenn es nur die Daten in der Spalte E. umwandeln würde. So wie ich dich einschätze, ist das sicher kein Problem!
Gruss bully
AW: txt-Export
13.11.2006 23:25:48
Reinhard
Hi Bully,
For iC = 1 To iCol
If Columns(iC).Hidden = False Then
If iC <> 5 Then
strTxt = strTxt & Cells(iR, iC) & strSep
Else
strTxt = strTxt & Format(Cells(iR, 5), "dd.mm.yyyy") & strSep
End If
End If
Next iC

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Super, funktioniert!
13.11.2006 23:42:48
bully
Hi Reinhar,
super! Funktioniert einwandfrei. Ich danke dir für deine schnelle und kompetente Hilfe, so wird sogar ein Anfänger zum Excel-Freak!! Forum sei Dank.
Gruss bully
AW: txt-Export ohne verborgene Spalten
13.11.2006 21:46:15
bully
Hallo Peter,
es funktioniert leider nicht, die verborgenen Spalten werden trotzdem exportiert.
Gruss bully
AW: txt-Export ohne verborgene Spalten
13.11.2006 21:38:06
Reinhard
Hi Bully,

For iC = 1 To iCol
if iC<>1 and iC<>7 and iC<> 11 then strTxt = strTxt & Cells(iR, iC) & strSep
Next iC

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige