Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere Zellen in einer Zelle

Betrifft: mehrere Zellen in einer Zelle von: Sebastian
Geschrieben am: 14.09.2004 20:25:21

Hallo liebes Forum,

ich steh gerade auf dem schlauch ist schon spät:

ich möchte aus der Spalte A mehrere Zellen in einer Zelle darstellen
Hab folgenden Code begonnen aber das klappt nicht.

Sub test()
Dim zl As Long
For r = 1 To Worksheets("Tabelle1").Range("A10").End(xlUp).Row
Cells(1, 2).Value = Cells(r, 1) & "," & Cells(r + 1, 1) & "," & Cells(r + 2, 1)
Next
End 
Sub 


Gruß und Danke 

Sebastian


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Ramses
Geschrieben am: 14.09.2004 20:43:51

Hallo

Für was soll das denn gut sein ?

For r = 1 To Worksheets("Tabelle1").Range("A10").End(xlUp).Row
Cells(1, 2).Value = Cells(r, 1) & "," & Cells(r + 1, 1) & "," & Cells(r + 2, 1)
Next

jetzt schreibst du im ungünstigsten Fall 10 x etwas in B1, und zum Schluss steht dort doch der letzte Wert aus dem Bereich "A1:A10" in der Zelle ?
Bei dem kleinen Bereich mag das ja noch gehen, aber wenn du ein paar hundert einträge hast, dauert das. Das geht doch auch einfacher. Ausserdem wird die Variable "z1" nicht verwendet, dafür "i" die nicht deklariert ist :-)

Sub test()
Dim r As Long
r = Worksheets("Tabelle1").Range("A10").End(xlUp).Row
Cells(1, 2).Value = Cells(r, 1) & "," & chr$(10) & Cells(r + 1, 1) & "," & chr$(10) & Cells(r + 2, 1)
'Zeilenumbruch für B1 festlegen
With Cells(1, 2)
  .WrapText = True
End With
End 
Sub 

Hier wird nach jedem Komma ein Zeilenumbruch eingeführt

Gruss Rainer



  


Betrifft: AW: mehrere Zellen in einer Zelle von: Sebastian
Geschrieben am: 14.09.2004 21:07:09

OK mein Versuch ist Müll, vielleicht kannst Du mir noch mal Helfen:

Ich möchte nur:

z.B.

In spalte A
1
2
3
4
5
6
Jeweils in einzelnen Zellen.

Die sollen in einer Zellen kopiert werden also:
In B1: 1,2,3,4,5,6

Bin halt erst am Anfang

Gruß

Sebastian


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Ramses
Geschrieben am: 14.09.2004 21:14:49

Hallo

jeder fängt mal klein an,... deshalb sollte die Fragestellung umso besser sein :-)

Sub test()
Dim i As Long, tmpStr as String
tmpStr = ""
For i = 1 to  Worksheets("Tabelle1").Range("A10").End(xlUp).Row
tmpStr = tmpStr & Cells(i, 1).Value & "," & chr$(10)
next i
With Cells(1, 2)
   .Value = left(tmpstr,len(tmpstr)-2)
   .WrapText = True
End With
End 
Sub 

Gruss Rainer



  


Betrifft: AW: mehrere Zellen in einer Zelle Nachfrage von: PeterW
Geschrieben am: 14.09.2004 21:24:16

Hallo Rainer,

erlaube eine Detailfrage: warum setzt du vor der Schleife tmpStr = ""? Wird das nicht durch Dim tmpStr As String automatisch erledigt?

Danke und Gruß
Peter


  


Betrifft: AW: mehrere Zellen in einer Zelle Nachfrage von: Ramses
Geschrieben am: 14.09.2004 22:43:27

Hallo

Gewohnheit,... dann bin ich sicher dass nix drin ist wenn ich die Routine nochmal laufen lasse ;-)
Bei EXCEL weiss man nie ;-)

Gruss Rainer


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Sebastian
Geschrieben am: 14.09.2004 21:46:43

Hi Reiner,

ich versuch es diesmal besser zu erklären.

Ich bin gerade dabei das ganze noch weiter zu entwickeln aber schon wieder gibt es Grenzen:

Kann ich das ganze auch noch mit einer Bedingung machen, also zb wenn in einer weiteren Zelle der gleichen Zeile OK steht dann sollen nur die Zellenwerte zusammen gefasst werden.

So wie im Beispiel


Gruß Sebastian und vielen Dank für die Hilfe, bin so schon ein Stück weiter gekommen Freu





https://www.herber.de/bbs/user/10886.xls


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Ramses
Geschrieben am: 14.09.2004 22:44:54

Hallo

mit VBA ist nahezu alles machbar,... aber definiere doch erstmal genau, was du wirklich haben willst und wo dann was steht.
Mein altes Hirn ;-) hat keine Lust ständig etwas neues zu machen ;-)

Gruss Rainer


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Sebastian
Geschrieben am: 14.09.2004 23:57:45

Hi Reiner,

Ok hier kommt die Datei so wie sie endgültig aussehen soll:

Ich habe Produkte in Spalte A
Unter den Produkten gibt es Beschreibungen in verschiedenen Zellen sowie eine weitere Spalte B mit OK’s

Wenn nun eine Beschreibung ein OK hat soll sie in eine Zelle Kopiert werden sowie alle weiteren Beschreibungen mit Ok’s

Anschließend sollen die neuen Beschreibungszeilen auf ein anderes sheet kopiert werden

Siehe alles nochmals zum kapieren in dem Beispielblatt:


Gruß und eine Gute Nacht




https://www.herber.de/bbs/user/10889.xls


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Ramses
Geschrieben am: 15.09.2004 00:08:10

Hallo

die Datei enthält nicht deaktivierbare EXCEL4 Makros.
Tut mir leid, solche Dateien öffne ich grundsätzlich nicht.

Gruss Rainer


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Sebastian
Geschrieben am: 15.09.2004 07:04:56

https://www.herber.de/bbs/user/10890.xls

Hier die Datei ohne Macro.

Es war aber nur der Code von Dir drin.

Gruß

Sebastian


  


Betrifft: AW: mehrere Zellen in einer Zelle von: Sebastian
Geschrieben am: 15.09.2004 07:09:52

https://www.herber.de/bbs/user/10891.xls
Und das ganze nochmal, jetzt hab ich alles deaktiviert was geht addins etc.


 

Beiträge aus den Excel-Beispielen zum Thema "mehrere Zellen in einer Zelle"