Zeilenumbruch finden und Zeile anpassen
13.07.2020 08:51:59
Sleepyhead
jetzt habe ich auch schon die nächste Frage.
In meinem Worksheet "Matrix" können Daten manuell eingegeben werden oder in einer seperaten Tabelle auf dem selben Sheet eingefügt werden.
In der seperaten Tabelle kann es allerdings dazu kommen, dass Zeilenumbrüche vorhanden sind.
Die Daten aus der seperaten Tabelle werden per ButtonClick in die Tabelle für die manuelle Eingabe kopiert.
Nun möchte ich, dass, wenn Zeilenumbrüche vorhanden sind sich die manuelle Tabelle automatisch anpasst.
Versucht habe ich dies folgendermaßen.
https://www.herber.de/bbs/user/139000.xlsx
Public Sub Zeilen_Anpassen()
Dim i As Integer
For i = 17 to 56
If Cells(i,2).wraptext = true Then
Rows(i).autofit
ElseIf Cells(i,2).wraptext = False Then
Rows(i).rowheight = Rows(1).rowheight
End If
next i
End Sub
Vermutlich ist .wraptext die falsche Abfrage.
Was passiert wenn ich dies mache ist, dass in den oberen Zeilen (zwischen i=2 und ca. i=20) die Zeilenhöhe geändert wird, allerding nicht die Zeilen, die ich geändert haben möchte.
Ich bin für jede Hilfe dankbar!
Liebe Grüße
Sleepyhead