Ich muß alle Zellen der Reihe 2 von E bis zur ersten leeren Zelle markieren (um sie später zu löschen). Wie kann ich das per VBA am besten erledigen?
Vielen Dank im Voraus für eine Antwort.
MfG
Ludwig
With ActiveSheet
.Range(.Cells(2, 5), .Cells(2, .Columns.Count).End(xlToLeft)).Clear
End With
Der entsprechende Bereich wird so gleich gelöscht, warum erst auswählen, wenn's auch direkt geht ;-).Sub a()
Dim Ws As Worksheet
Dim Bereich As Range
Dim Zelle As Range
Set Ws = ActiveSheet
With Ws
Set Bereich = .Range(.Cells(2, 5), _
.Cells(2, .Columns.Count).End(xlToLeft))
For Each Zelle In Bereich
If Zelle.MergeCells Then
Zelle.MergeArea.Clear
Else: Zelle.Clear
End If
Next Zelle
End With
End Sub
Hinweis: .Clear entfernt Dir den Zellverbund, .ClearContents nur die Zellinhalte, der Zellverbund bleibt bestehen.