Nur Tabellenblatt ... als Textdatei speichern

Hallo Freunde,
ich bräuchte mal bitte kurz Jemanden , der mir mit einer kleinen VBA Anweisung
helfen kann ...
Ich habe eine Exceldatei, die mehrere Tabellenblätter hat.
in einem Tabellenblatt ( " Auswertung " ), werden diverse Daten
errechnet die aus allen Tabellenblättern dann eingegeben wurden , nichts
weltbewegendes ...
nur , möchte ich gerne nur dieses Tabellenblatt , dann per makro ( zB. Sub Abgleichen () ) dann als einzelne Textdatei ablegen , in einem Speicherpfad, der sich am gleichen Ort wie die xls Datei befindet.
Das mit dem Speicherort bekomme ich selbst hin, nur die nötige Anweisung
für das spezifische tabellenblatt ... um nur dieses dann zu speichern als .txt
bekomm ich leider nicht hin,
geht sowas überhaupt, und falls ja wäre ich euch sehr verbunden für eure Hilfe.
Lieben Gruß
udo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Udo
einzelnes Tabellenblatt speichern als xls.
den Speicherphad mußt du anpassen


Sub Blattspeichern()
'Macro zum Speichern eines Blattes, einer Arbeitsmappe, als Datei.xls
'wobei der Tabellenblattname der Dateiname.xls wird.
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Geben Sie den Pfad ein, in dem das Blatt gespeichert werden soll!", , "C:\Dokumente und Einstellungen\herzin\Eigene Dateien\")
Select Case Right(pfad, 1)
Case ""
GoTo ErrorHandler
Case Is <> "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Name
ActiveWorkbook.Close SaveChanges:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
Application.ScreenUpdating = True
End Sub

Gruß Hermann

Sub speichern_txt_Messbühne_gross() Application.ScreenUpdating = False Sheets("Auswertung").Select ActiveWorkbook.SaveAs Filename:="Y:\... .txt", _ FileFormat:=xlText, _ CreateBackup:=False Sheets("Messbuehne 1.5").Select Sheets("Messbuehne 1.5").Name = "Auswertung" Sheets("Messbühne - gross").Select Range("A1").Select Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Nur Tabellenblatt ... als Textdatei speichern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

169 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur Tabellenblatt ... als Textdatei speichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

169 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread