Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Formatierung bei verschiedenen Zeichen
09.10.2017 10:55:45 Michael
NotSolved
10.10.2017 14:30:22 Werner
****
Solved
17.10.2017 16:13:12 Michael
NotSolved
17.10.2017 17:10:20 Werner
Solved
18.10.2017 08:34:14 Gast54590
Solved

Ansicht des Beitrags:
Von:
Michael
Datum:
09.10.2017 10:55:45
Views:
59
Rating: Antwort:
  Ja
Thema:
Bedingte Formatierung bei verschiedenen Zeichen
'Hat jemand eine Idee wie die Variable verändert werden muss, damit ich die Formel bzw. die Spaltenbezeichnung 
über die Inputbox geben kann. Vielen Dank!

' Diese Formel müsste angepasst werden.

'' "=FINDEN("","";$D2)

_____________________________________________________________________

'Variable für bestimmte Spalten

Dim Variable As String

Variable = InputBox("Bitte geben Sie die Spalte ein die nach Zeichen kontrolliert werden soll. z.B.: B")
'__________________________________________________________________________________________________

' Verschiedene Zeichen/Sonderzeichen werden kontrolliert

' Bedingte Formatierung
' Kennzeichnen wenn ein "," enthalten ist

  Range("D2").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=FINDEN("","";$D2)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Formatierung bei verschiedenen Zeichen
09.10.2017 10:55:45 Michael
NotSolved
10.10.2017 14:30:22 Werner
****
Solved
17.10.2017 16:13:12 Michael
NotSolved
17.10.2017 17:10:20 Werner
Solved
18.10.2017 08:34:14 Gast54590
Solved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar