Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei oer Makro als txt-Datei

Datei oer Makro als txt-Datei
Rosi
Hallo Excel-Profis,
ich habe kaum Ahnung mit Makros (nur Recorder für Anfänger), muss jedoch folgendes Problem lösen.
Ich habe eine Datei mit mehreren Registerblättern.
Über ein Registerblatt erfolgt die Eingabe von Daten.
Aus diesem Eingabeblatt werden die Daten dann angepasst und in eine Registerkarte "Ausgabe" übernommen.
Nun die Fragestellung:
Nur diese Registerkarte "Ausgabe" soll per Makro (ich habe mir einen Button vorgestellt, der geklickt werden muss) nun als txt-Datei abgespeichert werden. Der Dateiname soll bei der Abspeicherung manuell eingegeben werden.
Könnt Ihr mir mit dieser rein verbalen Beschreibung weiterhelfen?
Danke und viele Grüße,
Rosi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei oer Makro als txt-Datei
16.05.2011 12:29:08
Rudi
Hallo, 
Sub SaveAsTxt()
Dim strSep As String, strDat, _
iCols As Byte, iRows As Integer, _
iR As Long, strTxt As String, strTmp
strSep = vbTab
strDat = Application.GetSaveAsFilename
If strDat  False Then
With Sheets("Ausgabe")
iRows = .UsedRange.Rows.Count
iCols = .UsedRange.Columns.Count
Open strDat For Output As #1
For iR = 1 To iRows
strTmp = .Range(.Cells(iR, 1), .Cells(iR, iCols))
strTmp = WorksheetFunction.Transpose(WorksheetFunction.Transpose(strTmp))
strTxt = Join(strTmp, strSep)
Print #1, strTxt
Next iR
Close #1
MsgBox "Datei unter" & vbLf & strDat & vbLf & "gespeichert", , "Gebe bekannt..."
End With
End If
End Sub

Gruß
Rudi
Anzeige
AW: Datei oer Makro als txt-Datei
17.05.2011 11:55:31
Rosi
Hallo Rudi,
vielen Dank. Ich verstehe es zwar nicht, aber so in etwa tut es, was ich wollte.
Allerdings tritt noch ein Laufzeitfehler(13) bei Zeile strTxt = Join(strTmp, strSep) auf.
Wenn ich diese entferne, geht es.
Grüße,
Rosi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige