Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelleninhalte an andere anhängen ?

Zelleninhalte an andere anhängen ?
29.04.2009 10:01:40
Selma
Hallo Leute,
per VBA möchte ich die Zelleninhalte ab Zeile 2 der Spalte D an Zelleninhalte Spalte C (hinten) anhängen.
Vor dem Anhängen soll bei Zelleninhalte der Spalte C am Ende ein Leerzeichen eingefügt werden.
Die letzte Zelle mit Daten kann in Spalte A ermittelt werden.
Wie mache ich das ?
Vielen Dank und viele Grüße,
Selma

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte an andere anhängen ?
29.04.2009 10:12:44
Tino
Hallo,
versuche es mal hiermit.
Sub Beispiel()
Dim Bereich As Range
Dim myAr
Dim LCount As Long
'ab C2, sollte in C1 eine Überschrift sein 
Set Bereich = Range("C2", Cells(Rows.Count, 1).End(xlUp).Offset(0, 3))

myAr = Bereich

For LCount = 1 To Ubound(myAr)
 If myAr(LCount, 2) <> "" Then
  'Werte aus C und D verketten 
  myAr(LCount, 1) = myAr(LCount, 1) & " " & myAr(LCount, 2)
  'Werte in Spalte D löschen, sonst Zeile löschen 
  myAr(LCount, 2) = ""
 End If
Next LCount

Bereich = myAr
End Sub


Gruß Tino

Anzeige
AW: Zelleninhalte an andere anhängen ?
29.04.2009 12:43:03
Selma
Vielen Dank Tino !
VG,
Selma

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige