SpecialCells(xlCellTypeConstants.. nur eine Zelle
30.08.2017 16:46:10
UweD
habe gerade einen Fehler in meinem Code festgestellt,
In einem ermittelten Range RNG sollen alle Zellen mit Text bearbeitet werden.
Das funktioniert mit SpecialCells(xlCellTypeConstants.. auch gut.
Aber:
Wenn nur eine Zelle im Range vorhanden ist, dann werden alle Zellen der Blattes betrachtet.
Wie kann ich das ändern?
hier eine Musterdatei:
https://www.herber.de/bbs/user/115895.xlsm
Wenn in C3 auch ein Eintrag steht, dann klappt es.
Sub Test()
Dim RNG, LR2 As Integer
Dim EZ2 As Integer
EZ2 = 2
With Sheets("Tabelle1")
LR2 = .Cells(.Rows.Count, 3).End(xlUp).Row
If LR2 < EZ2 Then Exit Sub
Set RNG = .Range(.Cells(EZ2, 3), .Cells(LR2, 3))
If WorksheetFunction.CountA(RNG) > 0 Then
'Application.EnableEvents = False
'*** alle auf Update setzen
RNG.SpecialCells(xlCellTypeConstants, 2).Select '.Value = "Update"
End If
End With
End Sub
LG UweD