bedingte Formatierung bei maximaler Zeilenhöhe
31.08.2017 14:18:26
Alex
ich habe eine Tabelle mit so viel Zeicheninhalt, dass teilweise die maximale Zeilenhöhe (409,5) erreicht wird. Ich möchte nun die Benutzer der Tabelle zumindest auf das Problem aufmerksam machen, damit diese es lösen können. Dazu würde ich die Problemzellen (oder auch Zeilen) gerne rot ausfüllen.
Hier im Forum habe ich schon folgende Lösung für eine Messagebox gefunden. Wie sähe der Code aus, wenn ich statt der Messagebox erreichen will, dass die problematische Zelle rot ausgefüllt wird? Bei sämtlichen Versuchen den Messagebox-Code umzuschreiben bin ich leider gescheitert...
Vielen lieben Dank, viele Grüße
Alex
Sub Check_Max_Zeilenhöhe()
Dim Zeile As Long, wks As Worksheet, sMsgtext As String
Set wks = ActiveSheet
wks.UsedRange.EntireRow.AutoFit
For Zeile = 1 To wks.Cells.SpecialCells(xlCellTypeLastCell).Row
If wks.Rows(Zeile).RowHeight > 400 Then
sMsgtext = sMsgtext & vbNewLine & "Zeile " & Zeile
End If
Next
If sMsgtext = "" Then
MsgBox "Alle Zeilenhöhen OK", vbInformation + vbOKOnly, "Prüfung Zeilenhöhen"
Else
MsgBox "Folgende Zeilen enthalten evtl. zu viel Text" & vbNewLine & sMsgtext, vbInformation _
_
_
+ vbOKOnly, "Prüfung Zeilenhöhen"
End If
End Sub