Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen verbinden (merge) mit vba

Zellen verbinden (merge) mit vba
19.07.2005 10:25:25
Chris
Hallo Leute ich habe ein Problem, und zwar möchte ich in der Statusliste in Spalte A die Zeilen miteinander verbebinden (merge), welche die gleichen Nummern (Spalte B)beinhalten. Die jeweilige anzahl der Spalten steht in der Lokationsliste. Am Schluß soll vor allen Lokationen mit der selben Nummer eine verbundene Zelle mit der Nummer sein.
Die Datei findet ihr hier: https://www.herber.de/bbs/user/24707.xls
Vielen Dank im Vorraus, ihr seid super.
Chris

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen verbinden (merge) mit vba
19.07.2005 10:51:28
IngGi
Hallo Chris,
versuch's mal damit:

Sub Verbinden()
Dim rng As Range, i As Integer
Set rng = ThisWorkbook.Sheets("Statusliste (2)").Range("B2")
Do
Do While rng = rng.Offset(i, 0)
i = i + 1
Loop
rng.Offset(0, -1) = rng
Range(rng.Offset(0, -1), rng.Offset(i - 1, -1)).Merge
Set rng = rng.Offset(i, 0)
i = 0
Loop Until rng = ""
End Sub

Gruß Ingolf
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige