Office: (Office 2016) Zellen wert bei Farbiger formatierung in andere Zelle kopieren

Wenn eine Zelle grün gefärbt wird soll der sich darin befindliche Inhalt (zahlen und text) in eine andere zelle kopieren. kann mir bitte jemand helfen

 

Hola,

so ein Hallo und danke machen eine Frage gleich viel angenehmer, oder nicht?
Erfolgt die Färbung händisch oder per bedingter Formatierung?

Gruß,
steve1da

 

ah stimmt Hallo, sry war in Eile beim schreiben und dachte nicht daran. die Färbung erfolgt händisch. Danke :)

 

das sieht so ungefähr aus

 

Hallo,

1. dieses Problem lässt sich nicht mit normalen Excel-Funktionen lösen, man muss dazu die VBA-Programmierung einsetzen.
2. wenn die Zelle in D5 "händisch grün" eingefärbt wird, dann soll der Inhalt der Zelle übertragen werden, womit sich sofort die Frage stellt: Welche Grün-Farbe ?
   Ich habe grün im Bereich RGB(0,128,0) bis RGB(0,255,0) angenommen und nicht irgendwelche wischi-waschi-Grüns, die sich irgendwie aus rot/grün/blau zusammensetzen.
3. Wird die Zelle auf eine korrekte Grünfarbe eingefärbt, passiert noch nichts. Es muss danach die aktive Zelle zur Zelle D5 entweder mit der Tastatur oder mit der Maus verschoben werden. Erst dann wird der Inhalt in die Zelle E3 kopiert (zugewiesen).
4. Falls du diesen Vorgang für mehrere Zellen vorgesehen hättest, müsstest du die Ereignissteuerung auch für jede dieser Zellen programmieren bzw. ermöglichen.
5. Ich habe das VBA-Makro für die Ereignissteuerung (Worksheet_SelectionChange) ins Codemodul des Arbeitsblattes "Tabelle1" eingefügt, ebenso die Funktion zur Grün-Farbenerkennung (IstGruen). Eine Excel-Datei mit diesen Makros habe ich beigefügt.

Angesichts der Probleme, die sich ergeben, und angesichts der bescheidenen Vorteile weiß ich nicht wirklich, wie sinnvoll das Ganze ist.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    'Erfolgte die Auswahländerung in Zelle D5 ?
    If .Row = 5 And .Column = 4 Then
      'Ist der Hintergrund von Zelle D5 grün im Bereich 128-255 ? (dunkelgrün - hellgrün)
      If IstGruen(.Interior.Color, 128, 255) Then
        'Dann kopiere Zellinhalte von D5 nach E3:
        Me.Range("E3").Value = .Value  '.Offset(-2,1).Value = .Value
      End If
    End If
  End With
End Sub
Private Function IstGruen(Farbe As Long, Dunkel As Byte, Hell As Byte) As Boolean
  Dim FTst As Long
  If (Farbe And &HFF00FF) Then
    'Auch rot/blau-Anteile sind enthalten
    IstGruen = False
  Else
    'Es sind keine rot/blau-Anteile enthalten.
    'Teste, ob grün-Anteil im Dunkel-Hell-Intervall liegt:
    FTst = Farbe \ &H100
    IstGruen = (Dunkel <= FTst) And (FTst <= Hell)
  End If
End Function

 

Hallo,
ich habe zu dem Thema auch noch eine dringende Frage und ich habe nur den Zitieren Button gefunden.

Mir stellt sich ein ähnliches Problem:


Die Aufgabe ist, Lieferanten für Kundenprojekte vorzuschlagen.
Die schwarzen LF sind Neu Vorschläge und damit muss nichts gemacht werden.
Bereits an den Kunden angebundene LF, die also keine Neuvorschläge sind, sondern lediglich deren Katalog um die entsprechenden eclasses erweitert werden müssen, markiere ich händisch rot.
Diese muss ich bis jetzt dann manuell in den unteren Teil der Tabelle eintragen und dann aus dem oberen Teil löschen, sodass oben nur die schwarzen und unten nur die roten stehen.
Da ich aber mit Tabellen von bis zu 200 Zeilen arbeite, ist das eine sehr zeitfressende Aufgabe.

Ich würde natürlich eine unkomplizierte Lösung ohne Makros bevorzugen.
Könnte man z.B. das als Tabelle formatien und hinter jede LF Spalte eine Leerspalte einfügen und wenn ich dann bspw. hinter Gerber GbR einen Wert setze, wird der Name Gerber GbR sowie die zu der Zeile gehörende eclass in die untere Tabelle kopiert?

Sry für den langen Text und vielen Dank schonmal im voraus.