Thema Datum  Von Nutzer Rating
Antwort
20.02.2020 17:35:17 Huch
NotSolved
21.02.2020 09:26:35 tscharl
*****
NotSolved
21.02.2020 10:25:56 Huch
NotSolved
21.02.2020 12:20:35 tscharl
NotSolved
21.02.2020 12:21:47 tscharl
NotSolved
21.02.2020 12:24:49 Gast50692
NotSolved
Rot Schriftarten ersetzen
 21.02.2020 13:01:15 tscharl
NotSolved
21.02.2020 13:32:01 Huch
NotSolved
21.02.2020 13:34:53 tscharl
NotSolved
21.02.2020 13:40:04 Huch
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
21.02.2020 13:01:15		 Views:
558		 Rating:
     
Antwort:
  Ja
Thema:
Schriftarten ersetzen

Erster Annäherungsversuch:

Sub ErsetzenUndFormatieren()
    ' In Zeichenketten der Spalte A wird nach "$1" gesucht und
    ' durch "1" in Schriftart Arial ersetzt.
    Dim wks As Worksheet
    Dim varZelle As Variant
    Dim strSuche As String
    Dim lngPos As Long
    
    ' Der Suchstring muss 2 Zeichen haben.
    strSuche = "$1"
    
    Set wks = ActiveSheet
    
    ' Jede Zelle in "A1:A100" selektieren.
    For Each varZelle In wks.Range("A1:A100")
        varZelle.Select
        '
        ' Die Zeichen der Zelle einzeln auf den Suchstring prüfen.
        For lngPos = 1 To Len(Cells(1, 1))
            If Mid(Cells(1, 1), lngPos, 2) = strSuche Then
                ' Den Suchstring nach Arial umformatieren.
                Cells(1, 1).Characters(Start:=lngPos, Length:=2).Font.Name = "Arial"
                ' Das erste Zeichen des Suchstrings (hier "$") löschen.
                Cells(1, 1).Characters(Start:=lngPos, Length:=1).Delete
            End If
        Next lngPos
    Next varZelle
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.02.2020 17:35:17 Huch
NotSolved
21.02.2020 09:26:35 tscharl
*****
NotSolved
21.02.2020 10:25:56 Huch
NotSolved
21.02.2020 12:20:35 tscharl
NotSolved
21.02.2020 12:21:47 tscharl
NotSolved
21.02.2020 12:24:49 Gast50692
NotSolved
Rot Schriftarten ersetzen
 21.02.2020 13:01:15 tscharl
NotSolved
21.02.2020 13:32:01 Huch
NotSolved
21.02.2020 13:34:53 tscharl
NotSolved
21.02.2020 13:40:04 Huch
NotSolved