Office: Datenausgabe nach bedingte Formatierung

Hallo Kollegen,
ich habe folgendes Problem, vielleicht kennt jemand die Lösung.

Vielen Dank im Voraus.

In Spalte A sind bestimmte wiederholende Bereiche.
In Spalte B sind Daten. Wenn eine farbig markierte Date in Spalte ""B"" vorkommt,
muss ganzes Bereich aus Spalte A in C übertragen werden, sonst solle es leer bleiben.

 

Hallo!

Das ist bestimmt möglich, aber wir wissen leider nicht, welche Formeln du für die Bedingte Formatierung verwendet hast.
Diese müssten wir schon kennen, denn eine Formel à la
=WENN(IrgendwoBedingteFormatierung;DannMachDies;LasseLeer)
gibt es leider nicht. ;)
Also teile uns bitte deine Bedingten Formatierungen mit, dann finden wir sicher einen Weg!

 

Erstmal vielen Dank für schnelle Antwort auf meine Frage.
Erste und zweite Spalte bekomme ich vorgegeben. Die Daten werden schon farbig markiert (in Spalte B) ohne Formeln.
Das heißt, ich brauche Formel für dir dritte Spalte:
a la WENN in der SPALTE-B mindestens ein Zahl aus dem Bereich (Spalte A) farbig markiert ist, dann muss gesamte Bereich aus Spalte A in Spalte C übertragt werden. Wie in der Abbildung. Sonst soll es leer bleiben.

Vielen Dank im Voraus.

 

Hallo!

Nun bin ich etwas verwirrt.
In deiner Überschrift schreibst du von Bedingter Formatierung, und nun klingt es aber so, als würden die Zellen manuell gefärbt. Magst du mich mal aufklären?
Im Falle einer manuellen Färbung hast du mit einer Formel keine Chance; das müsste dann in VBA programmiert werden.

 

Ja, das sind werklich Vorgaben, die manuell gemacht wurden. Tut mir leid für die Verwirrung.
Also ist das Problem für mich ohne Programmierung Kenntnissen unlösbar?

 

Hallo!

Teste mal diesen Code, den du ins Modul des Tabellenblattes kopierst:

Code:

Sub mrAibo()
    Dim letzte As Long, i As Long, j As Long
    letzte = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To letzte
        If Cells(i, 2).Interior.ColorIndex <> -4142 Then
            For j = 2 To letzte
                If Cells(j, 1) = Cells(i, 1) Then Cells(j, 3) = Cells(i, 1)
            Next j
        End If
    Next i
End Sub

 

Vielen, vielen Dank für die Unterstützung!
Das hat uns weiter gebracht! Ohne Sie wären wir verloren.