Zeilenhöhe nach Zelleninhalt
01.09.2008 13:53:00
Tom
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die Formel die ich da versucht habe zu bastelt funktioniert nicht.
Private Sub CommandButton2_Click()
Dim i As Long
For i = 4 To ActiveSheet.UsedRange.Rows.Count
If (Cells(i, 4)) = "Hauptprojekt" Then
ActiveCell.RowHeight = 27
End If
If (Cells(i, 4)) = "Teilprojekt" Then
ActiveCell.RowHeight = 20
Else
ActiveCell.RowHeight = 15
End If
Next i
End Sub
Jemand eine Lösung für mich?
Danke!
Der Tom
Anzeige