Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei best. Wert Zeile Fett formatieren ?

Bei best. Wert Zeile Fett formatieren ?
Toni
Hallo zusammen,
bin auf der Suche nach einem Makro das folgendes macht:
sobald in der Spalte A die Zahl 1000 oder 2000 oder 3000 auftaucht soll die ganze Zeile in der die Zahl steht fett formatiert werden.
Wie stelle ich soetwas an ?
Gruß
toni
AW: Bei best. Wert Zeile Fett formatieren ?
22.04.2004 10:37:02
Martin
Hallo Toni,
schau dir mal die bedingte Formatierung an.
Grüsse
Martin
AW: Bei best. Wert Zeile Fett formatieren ?
Hannes
hallo toni, würde ich mit bedingter formatierung versuchen.
da hast du drei kriterien, also passend für 1000/2000/3000.
lg
hannes
AW: Bei best. Wert Zeile Fett formatieren ?
K.Rola
Hallo,
bedingte Formatierung bezogen auf A1
die Formel ist =ODER(A1=1000;A1=2000;A1=3000)
gruß K.Rola
AW: Bei best. Wert Zeile Fett formatieren ?
toni
... entschuldigung das ich micht korrekt ausgedrückt habe. In der Spalte A stehen mehr als nur die 3 Zahlen. Es befinden sich dort Zahlen zwischen 1000 und 10000. Nun soll aber die Zeile Fett formatiert erden wenn dort entweder die Zahl 1000 od. 2000 od. 3000 od. 5000 od. 7000 od. 9000 steht.
Ich hoffe das hilft weiter.
Gruß
Toni
Anzeige
AW: Bei best. Wert Zeile Fett formatieren ?
K.Rola
Hallo,
du kannst die Formel doch erweitern.
Gruß K.Rola
AW: Bei best. Wert Zeile Fett formatieren ?
22.04.2004 11:02:50
toni
... habt alle vieln Dank, habe eine Lösung gefunden:

Sub Zeile_einfügen2()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(lngZeile, 1) = 1000 Or Cells(lngZeile, 1) = 2000 Or Cells(lngZeile, 1) = 3000 Or Cells(lngZeile, 1) = 4000 Or Cells(lngZeile, 1) = 5000 Or Cells(lngZeile, 1) = 6000 Or Cells(lngZeile, 1) = 7000 Or Cells(lngZeile, 1) = 8000 Or Cells(lngZeile, 1) = 9000 Or Cells(lngZeile, 1) = 10000 Then
With Rows(lngZeile)
.Font.Bold = True
End With
End If
Next
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Bei best. Wert Zeile Fett formatieren ?
22.04.2004 10:48:11
Philipp
Hallo.
So geht es auch. Vieleicht hift das dir weiter-...

Sub test()
Dim Zelle As Range, x As Integer
For Each Zelle In Range("A1:A10")
If Right(Zelle, 3) = "000" Then
x = Zelle.Row
Rows(x).Font.Bold = True
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige