Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen aus Excel als Text speichern

Forumthread: Zellen aus Excel als Text speichern

Zellen aus Excel als Text speichern
14.02.2015 12:18:36
Paul

Hallo VBA-Gurus,
ich habe eine Excel-Datei, in der zwei Spalten sind. In Spalte A steht jeweils eine Nummer, die als Dateiname für eine Text-Datei dienen soll, die aus jeder einzelnen Zelle in Spalte B generiert werden soll.
Hier meine Beispiel-Datei:
https://www.herber.de/bbs/user/95760.xlsx
Ich hoffe, ich konnte mich verständlich ausdrücken und Ihr habt eine gute Idee, die mein Problem löst?
Vielen Dank
Paul

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen aus Excel als Text speichern
14.02.2015 12:45:10
ransi
HAllo PAul,
Test mal dies:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub machs()
    Const PFAD As String = "C:\TEMP\" 'Anpassen
    Dim Zelle As Range
    Dim FSO As Object
    Dim objDatei As Object
    Set FSO = CreateObject("Scripting.FilesystemObject")
    For Each Zelle In ThisWorkbook.Sheets("Tabelle1").Range("A1").CurrentRegion.Columns(1).Cells
        Set objDatei = FSO.createtextfile(PFAD & Zelle.Text & ".txt", True)
        With objDatei
            .writeline (Zelle.Offset(0, 1).Text)
            .Close
        End With
    Next
End Sub


Ist allerdings keine Überprüfung drin ob die Zellinhalte als Dateiname erlaubt sind.
ransi

Anzeige
AW: Zellen aus Excel als Text speichern
14.02.2015 15:33:42
Paul
Hi Ransi,
suuuper! funzt problemlos. Vielen Dank für die schnelle und gute Hilfe
Paul

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Zellen aus Excel als Text speichern


Schritt-für-Schritt-Anleitung

Um Zellen aus Excel als Text zu speichern, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und lade die Datei, aus der du die Zellen speichern möchtest.

  2. Öffne den VBA-Editor:

    • Drücke ALT + F11.
  3. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projektfenster und wähle Einfügen > Modul.
  4. Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:

    Sub machs()
       Const PFAD As String = "C:\TEMP\" 'Anpassen
       Dim Zelle As Range
       Dim FSO As Object
       Dim objDatei As Object
       Set FSO = CreateObject("Scripting.FilesystemObject")
    
       For Each Zelle In ThisWorkbook.Sheets("Tabelle1").Range("A1").CurrentRegion.Columns(1).Cells
           Set objDatei = FSO.createtextfile(PFAD & Zelle.Text & ".txt", True)
           With objDatei
               .writeline (Zelle.Offset(0, 1).Text)
               .Close
           End With
       Next
    End Sub
  5. Passe den Pfad an, wo die Textdateien gespeichert werden sollen, indem du C:\TEMP\ änderst.

  6. Führe das Skript aus:

    • Drücke F5 oder gehe zu Ausführen > Sub/UserForm ausführen.

Häufige Fehler und Lösungen

  • Fehler: Excel zeigt ein blaues Dreieck in der Zelle an:

    • Dies bedeutet, dass Excel eine Zahl als Text speichert. Um diese Warnung zu beheben, kannst du die Zellen mit WERT umwandeln oder die Zellen formatieren.
  • Fehler: Ungültige Dateinamen:

    • Überprüfe den Inhalt der Zellen in Spalte A. Wenn diese ungültige Zeichen enthalten, wird Excel nicht in der Lage sein, die Textdateien zu erstellen.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du die Daten auch manuell in Textdateien speichern:

  1. Markiere die Zellen, die du speichern möchtest.
  2. Kopiere die Zellen (Strg + C).
  3. Öffne einen Texteditor wie Notepad.
  4. Füge den Inhalt ein (Strg + V).
  5. Speichere die Datei mit einem gewünschten Namen.

Diese Methode eignet sich gut, wenn du nur gelegentlich Texte speichern musst.


Praktische Beispiele

Beispiel 1: Wenn in Zelle A1 der Text Datei1 steht und in Zelle B1 der Text Inhalt für Datei1, wird die resultierende Textdatei Datei1.txt den Inhalt Inhalt für Datei1 haben.

Beispiel 2: Bei Verwendung von push zellen excel, kannst du mehrere Zellen in Spalte A und B nutzen, um mehrere Textdateien gleichzeitig zu erstellen.


Tipps für Profis

  • Zellen formatieren: Stelle sicher, dass die Zellen, die du speichern möchtest, als Text formatiert sind. Das kannst du tun, indem du die Zellen auswählst, mit der rechten Maustaste klickst und Zellen formatieren wählst.

  • Batch-Verarbeitung: Wenn du viele Zellen hast, kannst du den VBA-Code anpassen, um nur die Zellen zu verarbeiten, die nicht leer sind.

  • Automatisierung: Du kannst das Skript so anpassen, dass es automatisch bei jedem Öffnen der Datei ausgeführt wird.


FAQ: Häufige Fragen

1. Wie speichere ich eine Zahl als Text in Excel? Um eine Zahl als Text zu speichern, kannst du die Zelle formatieren. Rechtsklicke auf die Zelle, wähle Zellen formatieren und setze das Format auf Text.

2. Wie kann ich sicherstellen, dass Excel keine Warnungen anzeigt? Um das blaue Dreieck in der Zelle zu vermeiden, stelle sicher, dass alle Zellen im richtigen Format sind und keine ungültigen Zeichen enthalten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige