Inhalte aus einer Spalte in einer Zelle zusammenfassen

Dieses Thema Inhalte aus einer Spalte in einer Zelle zusammenfassen im Forum "Windows XP Forum" wurde erstellt von Ushaie, 30. Juni 2005.

Thema: Inhalte aus einer Spalte in einer Zelle zusammenfassen hallo, ich habe ein größeres Problem, ich brauche zum import in ein anderes Programm die werte aus einer...

  1. hallo,

    ich habe ein größeres Problem,

    ich brauche zum import in ein anderes Programm
    die werte aus einer Exelspalte in einer zeile (als lauftext) durch kommas getrennt.

    Die Datei schaut jetzt so aus:
    Spalte A Spalte B
    TEXT1
    TEXT2
    TEXT3
    TEXT4
    ...

    ich brauche Sie aber in folgendem Format:
    TEXT1,TEST2,TEXT3,TEXT4, .....


    Wie stell ich das an (datei umfasst knapp 4000 zeilen)
     
  2. Hallo Ushaie,

    ich hab dir das folgende Makro für diese Zwecke zusammengestellt.

    Vor dem Aufruf selektierst du eine Zelle in der Spalte.
    Das Makro fragt nach, ob es diese Spalte in eine Text-Datei exportieren soll, alle Inhalte durch komma getrennt.
    Bei->Ja' schreibt es alle Zellinhalte der Reihe nach,  durch Komma getrennt, in eine Text-Datei.
    Pfad zur Textdatei = Pfad der Excel-datei
    Name = Name der Excel-datei + yyyymmddhhnn .txt

    Gruß Matjes :)
    Code:
    Option Explicit
    Sub AlleEintraegeEinerSpalteInTxtDateiMitKommaGetrennt()
      
     ->*** Für die selektierte Spalte schreibt das Makro
     ->*** eine Textdatei mit allen Zellinhalten der Spalte
     ->*** durh Komma getrennt
      
      
      Dim wb As Workbook, ws As Worksheet
      Dim l_rows As Long, l_col As Long, x As Long, s_Spalte As String
      Dim ret As Integer, h As Integer
      Dim s_datei As String, s_Pfad As String, s_Name As String, s_NameFull As String
      Dim VarStringKomma$, VarString$, b_first As Boolean
      
      Set wb = ActiveWorkbook
      Set ws = ActiveSheet
      
      
      If Selection.Columns.Count > 1 Then
        MsgBox ( _
          Es sind  & Selection.Columns.Count &  Spalten selektiert. & vbLf & _
          Bitte slektieren Sie nur eine Spalte / Zelle.)
      Else
        l_col = Selection.Column
        s_Spalte = ws.Columns(l_col).Address(rowabsolute:=False, columnabsolute:=False)
        s_Spalte = Left(s_Spalte, Len(s_Spalte) \ 2)
        
       ->Sicheheitsabfrage
        ret = MsgBox( _
          Sollen die Inhalte der Spalte  & s_Spalte & vbLf & _
           mit Komma getrennt in eine Txt-Datei geschrieben werden ?, _
          vbQuestion + vbDefaultButton1 + vbYesNo)
        If ret = vbNo Then GoTo Aufraeumen
        
       ->letzte zeile bestimmen
        l_rows = ws.Cells(ws.Rows.Count, l_col).End(xlUp).Row
        
       ->Dateinamen und Pfad festlegen
        s_Pfad = wb.Path
        s_Name = Left(wb.Name, Len(wb.Name) - 4) & _
                 Spalte & l_col & Format(Now(), _yyyymmddhhnn) & _
                 .txt
                 
        s_NameFull = s_Pfad & \ & s_Name
        VarStringKomma$ = ,
       ->Datei neu anlegen
        h = FreeFile
        Open s_NameFull For Binary Access Write As #h
        b_first = True
        For x = 1 To l_rows
          VarString$ = ws.Cells(x, l_col).Value
          If VarString$ <>  Then
            If Not b_first Then
              Put #h, , VarStringKomma$
            Else
              b_first = False
            End If
            Put #h, , VarString$
          End If
        Next
        Close #1
      End If
      
      MsgBox (Textfile wurde geschrieben. & vbLf & s_NameFull)
    Aufraeumen:
     ->Objekt-Variablen freigeben
      Set ws = Nothing: Set wb = Nothing
    End Sub
     
Die Seite wird geladen...

Inhalte aus einer Spalte in einer Zelle zusammenfassen - Ähnliche Themen

Forum Datum
Textinhalte in einer ganzen Spalte automatisch einklammern! Windows XP Forum 25. Sep. 2010
Inhalte einer Excel-Tabelle 1:1 in ein anderes Tabellenblatt reinkopieren! Windows XP Forum 7. März 2009
[SUCHE] SW um Inhalte einer Datenbank(?) in HTML-Datei zu exportieren Webentwicklung, Hosting & Programmierung 17. Mai 2005
Zellinhalte vergleichen mit Größer, Kleiner oder Gleich-Funktion Windows XP Forum 13. Nov. 2004
Wiederherstellung eines Festplatteninhaltes mit Betriebssystem Software: Empfehlungen, Gesuche & Problemlösungen 18. Jan. 2016