Microsoft Excel

Herbers Excel/VBA-Archiv

Wenn Wert Fettschrift...

Betrifft: Wenn Wert Fettschrift...
von: Josef
Geschrieben am: 16.04.2003 - 18:57:24

Hallo!

Ich habe z.B. in Spalte G eine Menge Beträge (ca. 13.000)stehen.Dazwischen sind viele in Fettschrift. Nun sollten alle Werte, welche in Fettschrift in der Spalte stehen, auf den Wert 0,00 gesetzt werden, egal welcher Wert in Fettschrift in der Spalte steht.
Gäbe es hier bitte eine VBA Lösung? Für eine Hilfe wäre ich sehr dankbar.

Josef


  

Re: Wenn Wert Fettschrift...
von: ChrisL
Geschrieben am: 16.04.2003 - 19:18:39

Hallo Josef

Versuchs mal hiermit...

Option Explicit

Sub WerteFett_aufNull()
Dim Zelle As Object

For Each Zelle In Range("G1:G" & Range("G65536").End(xlUp).Row)
If Zelle.Font.Bold = True Then Zelle = 0
Next
End Sub


Gehe davon aus, dass die Zellen bereits auf zwei Kommastellen formatiert sind.

Gruss
Chris

  

Re: Wenn Wert Fettschrift...
von: ChrisL
Geschrieben am: 16.04.2003 - 19:20:18

noch eine kleiner Nachbesserung...

Option Explicit

Sub WerteFett_aufNull()
Dim Zelle As Object

For Each Zelle In Range("G1:G" & Range("G65536").End(xlUp).Row)
If IsEmpty(Zelle) = False And Zelle.Font.Bold = True Then Zelle = 0
Next
End Sub

  

Re: Wenn Wert Fettschrift...
von: Josef
Geschrieben am: 16.04.2003 - 19:20:19

Hallo Chris!

Danke, ich werde es gleich ausprobieren

Josef

  

Re: Wenn Wert Fettschrift...
von: Josef
Geschrieben am: 16.04.2003 - 19:23:42

Hallo Chris!

Funktioniert alles. Danke

Josef