Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum formatieren

Forumthread: Makro zum formatieren

Makro zum formatieren
18.02.2005 17:09:15
nicki
Hallo zusammen,
ich habe eine Exceltabelle mit Spalten A bis F und ca. 200 Zeilen. Nun möchte ich, dass alle Zeilen, bei denen in Spalte B das Wert "Total" erscheint fett formatiert werden. Was muß ich tun? Schon mal vielen Dank für Eure Hilfe.
Gruß Nicole
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum formatieren
Sven
Die Zellen mit "Total" markieren, Format|Zelle fett.
Sven
AW: Makro zum formatieren
18.02.2005 17:17:23
nicki
Hi,
ich möchte aber nicht alle 200 Zeilen einzeln durchgehen und nachsehen, ob ich irgendwo das Wort TOTAL finde. Daher dachte ich an ein Makro, dass automatisch durch die Zeilen loopt und mir diese Arbeit abnimmt. Außerdem möchte ich nicht nur die Zelle, sondern die ganze Zeile markieren.
Trotzdem danke.
Nicki
Anzeige
AW: Makro zum formatieren
Willie
Hallo Niki
Hier habe ich dir ein Makro geschriben, das dir sicher weiter helfen wird!
Rückmeldung nicht vergessen!
Gruß
Willie

Sub niki()
wert = "Total"
With Worksheets(1).Range("b1:b500")
Set c = .Find(wert, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(c.Row, c.Column).Select
Selection.Font.Bold = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Anzeige
AW: Makro zum formatieren
Sven
Hab ich übersehen, dass du ein Makro wolltest:
Option Explicit
Sub total_()
Const s As String = "Total"
Dim c As Range, addr As String
With Worksheets(1).Columns(2)
Set c = .Find(s, lookat:=xlWhole)
If Not c Is Nothing Then
addr = c.Address
Do
c.EntireRow.Font.Bold = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> addr
End If
End With
End Sub

Sven
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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