HERBERS Excel-Forum - die Beispiele

Thema: Tabellenblattdaten einschließlich Kommentare in Textdatei

Home

Gruppe

Extern

Problem

Die in der Tabelle vorhandenen Kommentare sollen ebenso wie die Zellinhalte - durch öffnende und schließende Klammern gekennzeichnet - in eine Textdatei übernommen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub Comment2Text()
   Dim cmt As Comment
   Dim rng As Range
   Dim iRow As Integer, iCol As Integer
   Dim sTxt As String
   On Error GoTo ERRORHANDLER
   Set rng = Range("A1").CurrentRegion
   Open Application.Path & "\test.txt" For Output As #1
   For iRow = 1 To rng.Rows.Count
      For iCol = 1 To rng.Columns.Count
         If Not Cells(iRow, iCol).Comment Is Nothing Then
            sTxt = sTxt & Cells(iRow, iCol).Text & _
               "(" & Cells(iRow, iCol).Comment.Text & ")" & ";"
         Else
            sTxt = sTxt & Cells(iRow, iCol).Text & ";"
         End If
      Next iCol
      sTxt = Left(sTxt, Len(sTxt) - 1)
      Print #1, sTxt
      sTxt = ""
   Next iRow
   Close
   MsgBox "Textdatei wurde erstellt!"
   Exit Sub
ERRORHANDLER:
MsgBox "Textdatei konnte nicht erstellt werden!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und TextExport

Dateiname externer Datei ändern Tabellenblatt aus externer Exceldatei kopieren
ConboBox mit externe Daten füllen Wert in externer Datei suchen
Aufruf externer Programme Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Pivot mit Externer DB am Limit?
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen Externe Datenquelle via VBA
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
*xlt-Dateien als externe Datenquelle nutzen Externes Programm öffnen
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Externe Verknüpfung finden
externe Bezüge Summenprodukt + Externe Bezüge
Datenbank in externer Datei Fehler beim Kopieren von externer Tabelle
anzahl Blätter externer Excel-Datei Externe Daten aus Access
Externe Daten importieren aus Access Zellwert als Parameter f. externes Script/Programm
Worksheetzugriff auf externe Datei Dropdown - externe Daten
Externe Bezüge Zeitanzeige auf USF wenn ein externes Progr. läut
Externe Daten (QueryTable) ab 1 nummerieren Schnittstelle extern mit Lampen
Zelleninhalt für externes Programm kopieren Archivieren externer Dateien in Arbeitsblatt
Textexport konfigurieren? Externer Vergleich
externe Verknüpfung per Makro einfügen Externe Verknüpfungen
Externen Text mit Makro einfügen Abfragekriterium externe Daten verändern
Daten aus externer Mappe einfügen externes Programm ausführen
externe Verknüpfungen Externes Programm automatisch schließen