ich habe ein Problem und komme nicht auf die Lösung bzw weiS nicht mehr weiter!
Ich habe farbig markierte Zellen in einem Gantt-Diagramm siehe Beispielsdatei. Nun möchte ich die farbigen Zellen des Diagramms ansprechen und aus der ersten Spalte die Seriennummer in die farbig markierte Zelle per VBA einfügen. (z.B aus der Datei den Zelleninhalt von A6 in die Grüne Zelle von I6 eintragen) . und das für das Komplette Diagramm.
Ich habe mal angefangen mit dem Code. Wenn ich an die Stelle des .....? irgend eine Zahl oder auch formel schreibe, schreibt er mir das in jedes grüne Feld:-D. Ich weiß nicht wie ich es hinbekomme, das wie obe nerwähnt der inhalt von A6 in die grüne Zelle von I6 soll, oder A7 in J7.
Ich hoffe Ihr könnt mir helfen das wäre klasse!
Vielen Dank im Vorraus!
Schönen Abend und Gruß
Jonas
https://www.herber.de/bbs/user/129675.xlsm _ a>
Sub AlleFarben()
Dim zelle As Object
'Bereich Markieren
[E6:L9].Select
For Each zelle In Selection
If zelle.Interior.Pattern = xlSolid Then zelle.Formula = ......?
Next
[A1].Select
End Sub