title image


Smiley Re: Daten in einzelnen Spalten in eine Zelle stellen... ?
hallo ben,



mit ein wenig anpassen kannst du alle textdaten aus spalte a in einer zelle zusammenfassen. ich bin dabei davon ausgegangen, dass in der zelle A1 die spaltenüberschrift steht. ausgegeben wird das ganze in B2.









Sub verketten()

   Dim iRow%, strName1$, strName2$

   iRow =[A65536].End(xlUp).Row

   For a = 2 To iRow

      strName1 = Cells(a, 1)

      If strName2 = "" Then

         strName2 = strName1

         Else

            strName2 = strName2 & "," & strName1

         End If

   Next

   Cells(2, 2) = strName2

End Sub







Code eingefügt mit Syntaxhighlighter 4.0






 Servus



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: