Thema Datum  Von Nutzer Rating
Antwort
25.01.2021 16:10:40 XXIIVBARookie
NotSolved
Blau Text aus einer bestimmten Zelle einfügen wenn bedingte Formatierung zutrifft
 25.01.2021 17:58:24 Werner
NotSolved
25.01.2021 19:05:12 XXIIVBARookie
NotSolved
25.01.2021 20:11:05 Werner
NotSolved
26.01.2021 03:02:13 Trägheit
*****
Solved
26.01.2021 20:41:58 XIIVBARookie
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
25.01.2021 17:58:24		 Views:
1387		 Rating:
     
Antwort:
  Ja
Thema:
Text aus einer bestimmten Zelle einfügen wenn bedingte Formatierung zutrifft

Hallo,

anpassen mußt du das dann noch selbst, da du ja nicht verraten hast aus welcher Zelle und von welchem Blatt der Text kommen soll.

Public Sub aaa()
Dim raZelle As Range

With Range("B4:BA4")
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="=UND(B$3>=Daten!$B$3;B$3<=Daten!$C$3)"
    .FormatConditions(1).Interior.Color = RGB(55, 86, 36)
End With

For Each raZelle In Range("B4:BA4")
    If raZelle >= Worksheets("Daten").Range("B3") And raZelle <= Worksheets("Daten").Range("C3") Then
        raZelle.Value = Worksheets("Daten").Range("A1").Value
        Exit For
    End If
Next raZelle

End Sub

 

Gruß Werner

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
25.01.2021 16:10:40 XXIIVBARookie
NotSolved
Blau Text aus einer bestimmten Zelle einfügen wenn bedingte Formatierung zutrifft
 25.01.2021 17:58:24 Werner
NotSolved
25.01.2021 19:05:12 XXIIVBARookie
NotSolved
25.01.2021 20:11:05 Werner
NotSolved
26.01.2021 03:02:13 Trägheit
*****
Solved
26.01.2021 20:41:58 XIIVBARookie
NotSolved