Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mehrere Zellen in einer einfügen

mehrere Zellen in einer einfügen
27.01.2009 18:00:00
Claus
Hallo,
wie kann ich per Makro die Eingaben einiger Zellen in einer andere kopieren? Beispiel
A1 = 1,
A2 = 2,
A3 = 3,
A4 = 4,
A5 = 5,
Ergebnis sollte in B1 stehen und müsste wie folgt lauten 1,2,3,4,5,
Die Anzahl der A Zeilen ist nich fix. Fängt immer bei A1 an, könnte aber bei A100 enden.
VIELEN DANK!
Gruß
Claus
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Zellen in einer einfügen
27.01.2009 18:12:31
Peter
Hallo Claus,
das könnte z. B. so funktionieren:
Option Explicit

Public Sub Vereinigen()
Dim lZeile  As Long
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
.Range("B1").ClearContents
For lZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Range("B1").Value = "" Then
.Range("B1").Value = .Range("A" & lZeile).Value
Else
.Range("B1").Value = .Range("B1").Value & "," & .Range("A" & lZeile).Value
End If
Next lZeile
End With
End Sub


Gruß Peter

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige