Herbers Excel-Forum - das Archiv
Zeilenhöhe anpassen
- Zeilenhöhe anpassen von vom 19.08.2015 13:38:56
- AW: Zeilenhöhe anpassen - von JoWE am 19.08.2015 14:34:49
- AW: Zeilenhöhe anpassen - von am 19.08.2015 15:09:49
- AW: Zeilenhöhe anpassen - von JoWE am 19.08.2015 15:20:52
- AW: Zeilenhöhe anpassen - von JoWE am 19.08.2015 15:20:52
- AW: Zeilenhöhe anpassen - von am 19.08.2015 15:09:49
 |
Betrifft: Zeilenhöhe anpassen
von:
Hallo,
ich bin noch vollkommener Anfänger bei VBA und bräuchte daher mal eure Hilfe.
Also ich möchte einen Code schreiben, bei dem die Spalte A durchlaufen wird. Momentan haben alle Zeilen die Höhe 15. Aber ich hätte gern, dass wenn der Text in der Zelle länger als 50 Zeichen ist, dass die Höhe dann auf 30 geht.
Momentan sieht mein Code so aus:
Dim i As Long
i = 1
Dim laenge As Integer
For i = 1 To i = 100
laenge = Len(Cells(i, 1))
If laenge > 50 Then
Rows(i).RowHeight = 15
Else: Rows(i).RowHeight = 30
End If
Next
Ich muss wahrscheinlich noch hinzufügen, dass immer die ersten 3 zellen einer zeile verbunden sind. (Also z.B. in Zeile 1 sind A1, B1 und C1 eine Zelle; in Zeile 2 sind A2, B2, C2 eine Zelle, usw.). Und außerdem sind die eingegebenen Texte aus einer Dropdown Liste ausgewählt, falls das von Belang beim Programmieren ist.
Ich hoffe ihr versteht mein Problem und danke schonmal für alle hilfreichen Antworten.
 |
Betrifft: AW: Zeilenhöhe anpassen
von: JoWE
Geschrieben am: 19.08.2015 14:34:49
Hallo namenloser,
so etwa?
Sub test()
Dim i As Long
i = 1
Dim laenge As Integer
For i = 1 To 100
laenge = Len(Cells(i, 1))
If laenge > 50 Then
Rows(i).RowHeight = 30
Else
Rows(i).RowHeight = 15
End If
Next
End Sub
Gruß
Jochen
|
Betrifft: AW: Zeilenhöhe anpassen
von:
Geschrieben am: 19.08.2015 15:09:49
Der Code zeigt zwar keine Fehlermeldung, aber die Zeilenhöhe verändert sich leider nicht. Trotzdem danke
|
Betrifft: AW: Zeilenhöhe anpassen
von: JoWE
hmm, mit meiner Tabelle1 (da ist der Code drin) schon:
In Spalte A, Zeile 4 steht z.B.
"0123456789 0123456789 0123456789 0123456789 0123456789"
dann wird bei Ablauf des Makros die Zeilenhöhe auf 30 gesetzt!
| |