Spalte nach Wert durchsuchen und Zellen verbinden
09.11.2017 11:11:51
Lorenz
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
Über eure Hilfe freue ich mich wieder sehr!
Viele Grüße
Lorenz