VBA Code erkennt Formelinhalt nicht
24.11.2016 07:59:37
Marco
ich habe eine Excel Datei, bei der Zellen ausgeblendet werden sollen, wenn kein Inhalt vorhanden ist. Es handelt sich um ein VBA Code, der die Zeilen 113 bis 121 ausblenden soll, wenn die Zelle kein Inhalt hat. Der Inhalt wird allerdings per wenn Formel (abhängig von Eingabedaten) angezeigt.
Hierfür benötige ich den nachfolgenden VBA Code - kann mir bitte jemand sagen, was daran falsch ist bzw. wie er richtig heißen sollte? Vielen Dank.
VBA Code
Public Sub Spezifikationen_ausblenden()
Dim i As Integer
Dim l_zeilen As Integer
For i = 113 To 121
If Trim(Tabelle2.Range("R" & i).Value) = "" Then
Tabelle2.Rows(i).RowHeight = 0
Else
l_zeilen = Len(Tabelle2.Range("B" & i)) - Len(Replace(Tabelle2.Range("B" & i), Chr( _
10), "")) + 1
If l_zeilen > 0 Then
Tabelle2.Rows(i).RowHeight = Tabelle2.Rows(113).RowHeight * l_zeilen
Else
Tabelle2.Rows(i).RowHeight = Tabelle2.Rows(113).RowHeight
End If
End If
Next
End Sub