Forums Neueste Beiträge
 

Verkettung von mehreren Zellen aus einem Bereich

05/10/2007 - 11:51 von Bruno Thurnherr | Report spam
Hallo Zusammen

Ich taste mich langsam an Excel ran... aber wàre froh um etwas Unterstützung.

Mein Ziel:
Ist von der Spalte A1 bis A30 alle Zellen in eine Zelle zu schreiben
und mit ; zu trennen --> Resultat A1;A2 etc.

Mit Verketten könnte man dies lösen =VERKETTEN(A1;A2)..
dies erfordert aber extrem viel Arbeit sollte dies mal eine làngere Liste
sein.

Vielleicht hàtte jemand einen Tipp wie ich dies als Schleife zusammen kriege..

Danke und liebe Grüsse
Bruno
 

Lesen sie die antworten

#1 Dietmar Vollmeier
05/10/2007 - 13:03 | Warnen spam
Servus Bruno!

*Bruno Thurnherr* schrieb am 05.10.2007 um 11:51 Uhr...
Mein Ziel:
Ist von der Spalte A1 bis A30 alle Zellen in eine Zelle zu schreiben
und mit ; zu trennen --> Resultat A1;A2 etc.

Mit Verketten könnte man dies lösen =VERKETTEN(A1;A2).. dies erfordert
aber extrem viel Arbeit sollte dies mal eine làngere Liste sein.

Vielleicht hàtte jemand einen Tipp wie ich dies als Schleife zusammen
kriege..



Öffne den Visual-Basic Editor (Alt+F11) und kopiere folgenden Code
hinein. Achte dabei auf den Tabellennamen!


Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A:A")) Is Nothing _
Then Exit Sub

Dim iAnz As Integer
Dim iSchleife As Integer
Dim strAusgabe As String

iAnz = Cells.CurrentRegion.Rows.Count
strAusgabe = ""

For iSchleife = 1 To iAnz
strAusgabe = strAusgabe + Cells(iSchleife, 1)
If iSchleife < iAnz Then
strAusgabe = strAusgabe + ";"
End If
Next
Range("B1").Value = strAusgabe
End Sub


HTH

und tschüss,
Didi
Wissen ist Macht - nichts wissen macht auch nichts.

Ähnliche fragen