Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilenhöhe anpassen

Betrifft: Zeilenhöhe anpassen von: Viktor
Geschrieben am: 06.09.2004 09:49:59

Hallo zusammen,

Frage:
Kann man in VBA die zeilenhöhe in ganze Spalte B anpassen nur wenn inhalt dabei ist?
Z.B. ich habe in B1 "text", B4 "text2" und in B6 nichts. Also die Zeilenhöhe in B1 und B4 wird 50, B6 bleibt wie vorher.
Geht das?

Danke und Gruss, Viktor

  


Betrifft: AW: Zeilenhöhe anpassen von: Udo
Geschrieben am: 06.09.2004 09:52:56

Eine Zeile kann immer nur eine einheitliche Höhe haben. Workaround, einzelne Zellen
verbinden, ist aber nicht zu empfehlen.

Udo


  


Betrifft: AW: Zeilenhöhe anpassen von: P@ulchen
Geschrieben am: 06.09.2004 10:01:17

Hi Victor,

folgender Code prüft den Inhalt der Spalte B Zeile 1-100 und setzt die Zeilenhöhe auf 50, wenn die geprüfte Zelle nicht leer ist, ansonsten auf 12.75 :



Sub Zeilenhöhe()
For i = 1 To 100
    If Cells(i, 2) <> "" Then
        Rows(i).RowHeight = 50
    Else
        Rows(i).RowHeight = 12.75
    End If
Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5




Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: AW: Zeilenhöhe anpassen von: Viktor
Geschrieben am: 06.09.2004 10:44:07

Danke, laufts super.

Gruss, Viktor


 

Beiträge aus den Excel-Beispielen zum Thema "Zeilenhöhe anpassen"