ich möchte in meiner Tabelle einen Wert suchen und die Zeilenhöhe der nächsten Zeile auf 4 festlegen.
Dazu habe ich folgenden Code:
Sub Zeilenhöhe()
With Worksheets("Tabelle1")
Set c = .Range("B:B").Find("Text1", LookIn:=xlValues)
If Not c Is Nothing Then
.Rows(c.Row + 1).RowHeight = 4
End If
Set c = .Range("B:B").Find("Text2", LookIn:=xlValues)
If Not c Is Nothing Then
.Rows(c.Row + 1).RowHeight = 4
End If
End With
End Sub
Leider bleibt er immer bei .Rows(c.Row + 1).RowHeight = 4 mit der Fehlermeldung "Die RowHeight-Eigenschaft des Range-Objektes kann nicht festegelegt werden." hängen. Egal, ob er Text1, Text2 oder beides findet. Wenn ich den Code weiterlaufen lasse, dann funktioniert er. Warum bleibt er aber erst hängen?Danke und Gruß
Uppe