Zellen Zusammenfassen

Bild

Betrifft: Zellen Zusammenfassen
von: Simone
Geschrieben am: 01.11.2003 21:45:54

Hallo,

ich möchte Werte aus mehreren Zellen (z.B. Bereich A1:A100) in eine Zelle zusammenfassen, die Werte sollen durch ein Semikolon getrennt sein. Könnt ihr mir dabei helfen!

lieben Gruß
Simone

Bild


Betrifft: AW: Zellen Zusammenfassen
von: PeterW
Geschrieben am: 01.11.2003 21:53:19

Hallo Simone,

das wird aber eine große Zelle:

Sub Zusammen()
   Dim strAlle As String
   Dim lgZeile As Long
   strAlle = Range("A1")
   For lgZeile = 2 To 100
      strAlle = strAlle & ", " & Cells(lgZeile, 1)
   Next
   Range("B1") = strAlle
End Sub

Gruß
Peter


Bild


Betrifft: AW: Zellen Zusammenfassen
von: Klaus-Dieter
Geschrieben am: 01.11.2003 21:56:28

Hallo Simone,

so geht es:

Option Explicit
Sub verketten()
Dim s As Integer
Dim inh As String
inh = Cells(1, 1)
For s = 2 To Range("A65536").End(xlUp).Row
    inh = inh & ";" & Cells(s, 1)
Next s
Cells(1, 2) = inh
End Sub


Code eingefügt mit: Excel Code Jeanie


Gruß Klaus-Dieter




Bild


Betrifft: Oh, da war einer schneller ;-) o.T.
von: Klaus-Dieter
Geschrieben am: 01.11.2003 21:58:01




Bild


Betrifft: Und nocheins ohne leerzeilen
von: Josef Ehrensberger
Geschrieben am: 01.11.2003 22:09:56

Hi Simone,
hab auch noch eins für dich.



Sub verketten()
Dim rng As Range
Dim trenner As String
trenner = ";"  'Trennzeichen
[B1].ClearContents   'Ausgabezelle
For Each rng In [A1:A100]
If rng <> "" Then
[B1] = [B1] & rng & trenner
End If
Next
[B1] = Mid([B1], 1, Len([B1]) - 1)  'letztes Trennzeichen entfernen
End Sub


Gruß Sepp


Bild


Betrifft: Vielen Dank-oT
von: Simone
Geschrieben am: 01.11.2003 22:32:25




Bild


Betrifft: AW: Zellen Zusammenfassen
von: Beni
Geschrieben am: 01.11.2003 22:05:38

Hallo Simone,
Gruss Beni



Sub Zellen_zusammenfassen()
[B1] = [A1]
    r = Cells(65536, 1).End(xlUp).Row
For i = 2 To r
[B1] = [B1] & ";" & Cells(i, 1)
Next i
End Sub



Bild


Betrifft: AW: Zellen Zusammenfassen
von: Simone
Geschrieben am: 01.11.2003 22:14:31

Vielen Dank an Euch alle ! Alle drei Funktionieren super, genau das was ich gesucht habe.

lieben Gruß
Simone


Bild


Betrifft: AW: Zellen Zusammenfassen - ohne VBA...
von: FP
Geschrieben am: 01.11.2003 22:15:48

Hallo Simone,

geht das mit dieser "kurzen" Formel ;-)

=A1&"; "&A2&"; "&A3&"; "&A4&"; "&A5&"; "&A6&"; "&A7&"; "&A8&"; "&A9&"; "&A10&"; "&A11&"; "&A12&"; "&A13&"; "&A14&"; "&A15&"; "&A16&"; "&A17&"; "&A18&"; "&A19&"; "&A20&"; "&A21&"; "&A22&"; "&A23&"; "&A24&"; "&A25&"; "&A26&"; "&A27&"; "&A28&"; "&A29&"; "&A30&"; "&A31&"; "&A32&"; "&A33&"; "&A34&"; "&A35&"; "&A36&"; "&A37&"; "&A38&"; "&A39&"; "&A40&"; "&A41&"; "&A42&"; "&A43&"; "&A44&"; "&A45&"; "&A46&"; "&A47&"; "&A48&"; "&A49&"; "&A50&"; "&A51&"; "&A52&"; "&A53&"; "&A54&"; "&A55&"; "&A56&"; "&A57&"; "&A58&"; "&A59&"; "&A60&"; "&A61&"; "&A62&"; "&A63&"; "&A64&"; "&A65&"; "&A66&"; "&A67&"; "&A68&"; "&A69&"; "&A70&"; "&A71&"; "&A72&"; "&A73&"; "&A74&"; "&A75&"; "&A76&"; "&A77&"; "&A78&"; "&A79&"; "&A80&"; "&A81&"; "&A82&"; "&A83&"; "&A84&"; "&A85&"; "&A86&"; "&A87&"; "&A88&"; "&A89&"; "&A90&"; "&A91&"; "&A92&"; "&A93&"; "&A94&"; "&A95&"; "&A96&"; "&A97&"; "&A98&"; "&A99&"; "&A100

nein, ich habe sie nicht von Hand eingegeben, sondern diese Formel bis zur Zeile 100 gezogen, kopiert, als Wert eingefügt und ein "=" davor gesetzt...

Excel Jeanie HTML
Formeln der Tabelle
C1 : =ADRESSE(ZEILE();1;4)
C2 : =C1&"&""; """&"&"&ADRESSE(ZEILE();1;4)
C3 : =C2&"&""; """&"&"&ADRESSE(ZEILE();1;4)
C4 : =C3&"&""; """&"&"&ADRESSE(ZEILE();1;4)
  Excel Tabellen einfach im Web darstellen
  Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

Bild


Betrifft: AW: Zellen Zusammenfassen - ohne VBA...
von: Simone
Geschrieben am: 01.11.2003 22:31:21

Hallo,
bekam schon einen Schrecken ;-)) werde ich aber gleich ausprobieren. Dankeschön!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellen Zusammenfassen"