Bestimmten Bereich einer Tabelle als Unicode-Text (*.txt) speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo
Ich habe mir das angeschaut. Aber leider übersteigt das meine VBA Kompetenz bei weitem. Ich habe leider wirklich keine gute Ahnung von VBA. Und da ich auch immer nur wieder ganz selten mal Bedarf an Lösungen in VBA habe, stellt sich bei mir leider auch kein wirklicher Learning-by-Doing Effekt ein.
Ich habe vielleicht einmal im Jahr oder noch seltener etwas, was ich in VBA lösen möchte.
Darum wollte ich das ja auch mit dem Makrorecorder versuchen. Mein Ansatz war, die Sache da in mehrere Schritte einzuteilen.
Schritt 1
Ich sortiere die Tabelle nach Spalte B, so dass alle Zeilen mit einem "x" in Spalte B oben stehen. Das habe ich auch mit dem Makrorecorder hinbekommen. Das war ja auch einfach :)
Schritt 2
Hier wollte ich nun den Teil (rosa auf dem Foto) markieren. Da es aber immer wieder mal mehr oder weniger Zeilen sind, weil sich meine Tabelle da immer wieder ändert, kann ich das ja nicht mit dem Makrorecorder machen. Und selber in VBA programmieren kann ich das leider auf keinen Fall.
Schritt 3
Hier wollte ich dann den markierten Teil als Unicode-Text (*.txt) abspeichern. Vermutlich kann man garnicht nur einen markierten Teil einer Tabelle abspeichern, oder? Ansonsten hatte ich mir überlegt, den Teil in ein neues Arbeitsblatt zu kopieren und dann dieses zu speichern. Das müsste ich auch mit dem Makrorecorder hinbekommen.
Wie man sieht, scheitere ich hauptsächlich an der Sache mit der Markierung in Schritt 2

Hallo Simon,
teste mal:

Sub Speichern_Unicode()
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
'Prüfen ob x in Spalte B vorhanden
If WorksheetFunction.CountIf(.Columns("B:B"), "x") > 0 Then
'Spalte B nach x filtern
.Range("$A$1:$E$11").AutoFilter Field:=2, Criteria1:="x"
'Filterdaten nur Spalte C bis E kopieren
'nach Tabelle2 A1
With .AutoFilter.Range
.Columns("C:E").Copy Worksheets("Tabelle2").Range("A1")
End With
'Autofilter wieder raus
.Range("A1").AutoFilter
'Tabelle 2 kopieren
Worksheets("Tabelle2").Copy
'dann als Textdatei speichern (Pfad und Dateiname anpassen)
ActiveWorkbook.SaveAs Filename:="C:\Ingo\Textdateien\Ein_Versuch.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
'erzeugte Textdatei ohne Speichern schließen
ActiveWorkbook.Close False
'Daten in Tabelle2 löschen
Worksheets("Tabelle2").Columns("A:C").Delete
Else
MsgBox "Fehler: Es sind keine Datensätze in Spalte B markiert."
End If
End With
End Sub

Du mußt dafür sorgen, dass eine Tabelle mit dem Namen "Tabelle2" vorhanden ist, dorthin werden die Daten kopiert und diese Blatt wird dann als Textdatei gespeichert.
Zudem mußt du im Code den Speicherpfad und den Dateinamen anpassen.
Die entsprechenden Ordner / Unterordner müssen vorhanden sein.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Bestimmten Bereich einer Tabelle als Unicode-Text (*.txt) speichern

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmten Bereich einer Tabelle als Unicode-Text (*.txt) speichern

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread