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
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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen