Makro um Wingdings auszublenden/Arial umwandeln

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe folgendes Problem:
ich habe 3 verschiedene Mitarbeiterstatuse. Einmal Coach, Trainee und Bediener. Ich habe mir per Makro alle von CO, B, TR in Wingdingssymbole umwandeln lassen sobald ich einen von dreien auswähle.

Makro

Sub makro1()
AnzZeilen = ActiveSheet.UsedRange.Rows.Count
AnzSpalten = ActiveSheet.UsedRange.Columns.Count
For spalte = 1 To AnzSpalten
For Zeile = 1 To AnzZeilen
If Cells(Zeile, spalte) = „CO“ Then
Cells(Zeile, spalte).Interior.ColorIndex = 0
Cells(Zeile, spalte).Font.Color = 9
Cells(Zeile, spalte).Font.Size = 18
Cells(Zeile, spalte).Font.FontStyle = „wingdings 2“
Cells(Zeile, spalte).Font.Name = „wingdings 2“
Cells(Zeile, spalte).Value = ChrW(156)

End If
Next
Next

End Sub

funktioniert auch super.
Nun möchte ich sie aber wieder zurückwandeln per makro in arial oder wenigsten wingdingssymbole suchen und ausblenden können wen ich diese nict angezeigt haben will. Probiere jetzt schon stundenlang. Vielleicht kann mir jemand helfen.
Schonmal Danke im vorraus.

#2

funktioniert auch super.
Nun möchte ich sie aber wieder zurückwandeln per makro in
arial oder wenigsten wingdingssymbole suchen und ausblenden
können wen ich diese nict angezeigt haben will. Probiere jetzt
schon stundenlang. Vielleicht kann mir jemand helfen.
Schonmal Danke im voraus.

Hallo Balou,

vllt. so:

Sub makro2()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
 If Zelle.Value = ChrW(156) Then
 Zelle.Interior.ColorIndex = -4142
 Zelle.Font.Color = 0
 Zelle.Font.Size = 10
 Zelle.Font.FontStyle = "Standard"
 Zelle.Font.Name = "Arial"
 Zelle.Value = "CO"
 End If
Next Zelle
End Sub
#3

geht :smile:

Vielen Dank,

Nicole