Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige