ich möchte gerne die Zellwerte aus Spalte 4 auslesen und diese in eine benachbarte Spalte 2 schreiben Sofern kein wert ausgelesen werden kann, soll ein verfügbar in Spalte 2 geschrieben werden. Was mir Probleme bereitet ist, dass die auszulesenden Zellen z.T. mit benachbarten Zellen der gleichen Zeile verbunden sind. Die Variable b nutze ich später zur Definition der Spalte i soll in der Spalte durchzählen. Zum Verständnis habe ich rechts das gewünschte Ergebnis formuliert.
Sub test()
Dim i, b As Integer
b = 4
For i = 5 To 12
If Cells(i, b).Value "" Then
Cells(i, 2).Value = Cells(i, b).Value
Else
If Cells(i, b).MergeCells = True Then
While Cells(i, b).Value = ""
b = b - 1
Wend
Cells(i, 2).Value = Cells(i, b).Value
End If
End If
If Cells(i, 4).Value = "" Then Cells(i, 2).Value = "Verfügbar"
Next
End Sub