1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel- färben von jedem zweiten Buchstaben

Discussion in 'Office-Programme' started by Es0x, Dec 17, 2009.

Thread Status:
Not open for further replies.
  1. Es0x

    Es0x ROM

    Hallo Leute, ich verzweifel so langsam, habe schon überall gesucht, finde aber nur Bruchstücke die nicht wirklich das wahre vom Ei sind !
    Folgendes Problem in Excel:

    Ich habe eine Spalte:
    A3 - A40:
    #1 001
    #1 002
    #2 001
    #2 002
    #1 003
    #0 001

    Nun Möchte ich den zweiten Buchstaben, also die Zahl nach der Raute Färben, bzw. Fett formatieren und zwar direkt nach der Eingabe !
    #1 001
    #1 002
    #2 001
    #2 002
    #1 003
    #0 001

    Welchen Code muss ich in die Bedingte Formatierung einsetzen ?
    Geht das überhaupt noch mit bedingter Formatierung ?
    :bet::bet::bet:
     
  2. Beverly

    Beverly Halbes Megabyte

    Hi,

    Teile einer Zelle lassen sich nicht mit bedingter Formatierung formatieren - das geht nur per VBA. Rechtsklick auf den Tabellenreiter -> Code anzeigen und kopiere den folgenden Code ins rechte (obere) Codefenster:
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim inFarbe As Integer
        If Not Intersect(Target, Range("A1:A40")) Is Nothing Then
            If Target.Count = 1 Then
                If Target <> "" Then
                    Select Case Mid(Target, 2, 1)
                        Case 1
                            inFarbe = 3
                        Case 2
                            inFarbe = 4
                        Case 3
                            inFarbe = 5
                        Case 4
                            inFarbe = 6
                        Case 5
                           ' usw.
                    End Select
                    Target.Characters(Start:=2, Length:=1).Font.Bold = True
                    Target.Characters(Start:=2, Length:=1).Font.ColorIndex = inFarbe
                End If
            End If
        End If
    End Sub
    
    Die Farbindxi (Variable inFarbe) musst du an deine W&#252;nsche anpassen und den Code um die weiteren Case-Anweisungen erg&#228;nzen.
     
  3. Es0x

    Es0x ROM

    Hey,

    vielen vielen Dank es hat geklappt SUPER !


    *~* D * A * N * K * E *~*
     
Thread Status:
Not open for further replies.

Share This Page