Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe eine Tabelle in der in der Spalte A stehen Namen. Die folgendne Spalten B und C beinhalten das Hinflug bzw. das Rückflugdatum. In der 2. Zeile habe ich dann quer rüber das Datum. In diesem Kalendarium sind für die NAmen die Reiseperioden als farbiger Balken dargestellt. Ich stelle einfach die Zelle gelb und die hat den Wert 1, damit ich am Ende über die Summe die Reisetage pro Name und nach unten runter die Anzahl Reisender pro Tag habe. Nun möchte ich anhand der Farbe Hinflug grün Rückflug rot das Datum automatisch in Spalte B bzw C eingetragen haben. Das ganze wenn möglich als Formel oder eben Makro. Aber da kenne ich mich nicht aus. Vielen Dank !

Hi tannex,

ich hoffe mal, dass ich entsprechend Deinen Angaben mir die richtige Beispieldatei erstellt habe. Kopiere nachfolgendes Makro in ein StandardModul und starte es über eine Schaltfläche.

Option Explicit

Sub Datum_ermitteln()
Dim Zeile As Long, Spalte As Integer
For Zeile = 1 To Range("A65536").End(xlUp).Row
    For Spalte = 4 To 256
        If Cells(Zeile, Spalte).Interior.ColorIndex = 6 Then
        Cells(Zeile, 2) = Cells(2, Spalte)
        End If
        If Cells(Zeile, Spalte).Interior.ColorIndex = 3 Then
        Cells(Zeile, 3) = Cells(2, Spalte)
        Exit For
        End If
    Next
Next
End Sub

In dem Makro wird über zwei Schleifen in den Zellen die Farbe ermittelt. Entspricht die Farbe der Farbindexzahl 6, also gelb, wird in Spalte B das Datum aus Zeile 2 eingetragen. Entspricht der Farbindex der Zahl 3, als rot, wird in Spalte C ebenfalls das Datum aus der Spalte aus Zeile 2 eingetragen.

Ich hoffe mal, dass Dir der Vorschlag schon mal weiterhilft. Bei Fragen melde Dich. Sollte es nicht funktionieren, benötigt man ein paar mehr Details, wenn nicht sogar mal deine Datei, damit man sich den Aufbau ansehen kann.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

echt große Klasse. habe den Code kopier und schön mit einem Schaltbutton in meiner Tabelle verbunden ...
Fun ktioniert 1A und ich habe es an meine Spalten und Zeilen angepaßt.
Echt große Klasse!
Habe vielen Dank!

Grüße aus den USA
FRANK

• excel farben ändern sich nach kopieren
• Farben vergeben
• Nach Farben sortieren...
• Excel 2007