Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile Fett markieren

Forumthread: Zeile Fett markieren

Zeile Fett markieren
20.01.2023 17:03:01
Ron
Hallo,
wer kann helfen. In einer Tabelle, die immer unterschiedlich groß ist, sind mehrere Aufsummierungen.
Nun hätte ich gerne, dass beim Starten des Makros alle Zeilen, wo das Word "Summe" auftaucht fett markiert werden.
In meinem Code muss ich immer die Spaltenzuweisung anpassen.
Vielen Dank im voraus!
Gruß
Sub Zeile_Fett()
 
 Dim x As String
 Dim i As Long
        x = ActiveSheet.UsedRange.Rows.Count
    For i = 1 To x
        Rows(i).Select
        'wenn in Spalte D das Wort "Summe" steht
        If Cells(i, 4).Value Like "Summe" Then
            Selection.Font.Bold = True
        Else
            Selection.Font.Bold = False
        End If
    Next
End Sub
             
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile Fett markieren
20.01.2023 17:15:47
onur
Sub Zeile_Fett()
    Dim x, i, rng
    x = ActiveSheet.UsedRange.Rows.Count
    For i = 1 To x
        Set rng = Intersect(Rows(i), ActiveSheet.UsedRange)
        If WorksheetFunction.CountIf(rng, "*Summe") > 0 Then
            rng.Font.Bold = True
        Else
            rng.Font.Bold = False
        End If
    Next
End Sub

Anzeige
AW: Zeile Fett markieren
20.01.2023 17:18:37
onur
oder kürzer:
Sub Zeile_Fett()
    Dim x, i, rng
    x = ActiveSheet.UsedRange.Rows.Count
    For i = 1 To x
        Set rng = Intersect(Rows(i), ActiveSheet.UsedRange)
        rng.Font.Bold = WorksheetFunction.CountIf(rng, "*Summe") > 0
    Next
End Sub

Anzeige
AW: Zeile Fett markieren
20.01.2023 17:21:09
GerdL
Hallo,
Fettschrift entfernen stand nur im Code, nicht in der Beschreibung.
Sub Unit()
    Dim C As Range, F As Range
    
    For Each C In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Cells
        If C.Value Like "Summe" Then
            If F Is Nothing Then
            Set F = C
            Else
            Set F = Union(F, C)
            End If
        End If
    Next
    If Not F Is Nothing Then
        F.EntireRow.Font.Bold = True
        Set F = Nothing
    End If
End Sub
Gruß Gerd
Anzeige
AW: Zeile Fett markieren
20.01.2023 19:19:56
Ron
Vielen Dank!
AW: Zeile Fett markieren
20.01.2023 17:30:01
Daniel
HI
als Makro:
Sub test()
With ActiveSheet.UsedRange
    With .Columns(.Columns.Count + 1)
        .FormulaR1C1 = "=IF(COUNTIF(RC1:RC[-1],""*Summe*""),1,"""")"
        If WorksheetFunction.Sum(.Cells) > 0 Then
           Intersect(ActiveSheet.UsedRange, .SpecialCells(xlCellTypeFormulas, 1).EntireRow).Font.Bold = True
       End If
       .Clear
    End With
End With
End Sub
du kannst natürlich auch die bedingte Formatierung verwenden, mit dieser Formel als Regel:
=ZählenWenn(1:1;"*Summe*")
Gruß Danie
Anzeige
AW: Zeile Fett markieren
20.01.2023 19:21:04
Ron
Vielen Dank
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige