ich möchte folgendes erzielen:
wenn in markierten Zeilenbereich (oder auch in Zellenmarkierung) in der Spalte T dies "offen" steht, dann soll der Zellenbereich T:Z dieser Zeilen verbunden werden und der Text "Mahnung erstellen" eingetragen und mit der Farbe 22 dargestellt werden.
Anbei mein Versuch. Was ist daran falsch?
Sub MergeCells2()
On Error GoTo DispFehler
Dim lrZelle As Range
For Each lrZelle In Selection
'Auswahl über Zeile als auch über Zellen
'wenn in Zelle T des markierten Zeilenbereiches oder markierten Zellenbereiches dies " _
offen" steht, dann
If Cells(lrZelle, 20).Value = "offen" Then
'soll der Zellenbereich T:Z verbunden
Range(Cells(lrZelle, 20), Cells(lrZelle, 26)).Merge
'und in Zelle T dies "Mahnung erstellen" in Farbe 22 eintragen werden
Cells(lrZelle, 20).Value = "Mahnung erstellen"
Cells(lrZelle, 20).Interior.ColorIndex = 22
End If
Next
DispFehler:
Application.DisplayAlerts = True
End Sub
Vielen Dank im Voraus.
Liebe Grüße
Selma