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

Spalte nach Wert durchsuchen und Zellen verbinden

Spalte nach Wert durchsuchen und Zellen verbinden
09.11.2017 11:11:51
Lorenz
Tag zusammen ;)
ich versuche mit VBA einen Code zu schreiben, der meine Spalte nach dem Wert 0 durchsucht und wenn dieser gefunden wird, die Zelle mit der darüberliegenden verbindet. Code habe ich bisher folgenden:
Sub suchen1()
Dim suche As String
Dim z As Integer
z = 0
[B12].Activate
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Activate
If ActiveCell = 0 Then
z = z + 1
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-1, 0)).Select
Selection.Merge
End If
Loop
End Sub
Das Problem hierbei ist nur leider, dass nicht bei der ersten Zelle, die dann leer ist, aufgehört wird, sondern der Code ewig die letzte Zelle weiterverbindet.
Über eure Hilfe freue ich mich wieder sehr!
Viele Grüße
Lorenz

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte nach Wert durchsuchen und Zellen verbinden
09.11.2017 12:05:06
CitizenX
Hi,
Sub suchen1()
Dim i, lastRow, objrange, objarea
Const STRAT_ROW = 1 ' Startzeile der Überprüfung
Const inCOL = 1     ' Spalte der Prüfung
lastRow = Cells(Rows.Count, inCOL).End(xlUp).Row
Range(Cells(STRAT_ROW, inCOL), Cells(lastRow, inCOL)).UnMerge
For i = STRAT_ROW To lastRow
If Cells(i, inCOL).Text = 0 Then
If Not IsObject(objrange) Then Set objrange = Cells(i, inCOL)
Set objrange = Union(Cells(i, inCOL), Cells(i - 1, inCOL), objrange)
End If
Next
If IsObject(objrange) Then
Application.DisplayAlerts = False
For Each objarea In objrange.Areas
objarea.Merge
Next
Application.DisplayAlerts = True
End If
End Sub
VG
Steffen
Anzeige
AW: Spalte nach Wert durchsuchen und Zellen verbinden
09.11.2017 14:36:55
Lorenz
Danke dir, das hat schonmal funktioniert =)

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige