Tino hat mir folgenden Code erstellt. Im Moment sucht der Code aber nur nach dem Wort Entwicklung. Ich bräuchte aber das Wort Entwicklung in Schriftgrösse 14. Wie muss ich den Code anpassen?
Danke euch vielmals für eure Hilfe!
Gruss JE
Private Sub ToggleButton1_Click()
Dim varRow
Dim i As Integer
With ToggleButton1
.Caption = IIf(.Value = True, "einblenden", "ausblenden")
If Not booAktion Then
For i = 1 To ThisWorkbook.Worksheets.Count
With ThisWorkbook.Worksheets(i)
If .Visible = True And .Name Like "Monat*" Then
varRow = Application.Match("Entwicklung", .Columns(1), 0)
If IsNumeric(varRow) Then
If varRow > 1 Then
If ToggleButton1 Then
.Rows("1:" & varRow - 1).EntireRow.Hidden = True
Else
.Rows("1:" & varRow - 1).EntireRow.Hidden = False
End If
End If
End If
End If
End With
Next i
End If
End With
End Sub