Hallo Zusammen,
ich würde mein Makro gerne erweitern. Aktuell geht es ab Zeile C302 nach rechts und schaut wo die erste leere Zelle ist (Range definiert). In den Zellen sind Zellbezüge hinterlegt. Dann geht es in die entsprechenden Zellen rein und kopiert den Inahlt als Wert rein, damit keine Formeln mehr hinterlegt sind.
Jetzt möchte ich aber noch, dass es parallel in C304 reingeht und schaut, ob dort "Bearbeiten" oder "nicht Bearbeiten" drin steht. Falls "Bearbeiten" drin steht, dann soll das Makro nicht nur den Zellinhalt als Wert einfügen sondern die Zelle auch noch rot markieren und entsperren.
Hier der Code:
Dim Bearbeitungszellen As Range
Dim Zelle As String
Set Bearbeitungszellen = Range(Cells(302, 3), Cells(302, 3).End(xlToRight))
For Each Cell In Bearbeitungszellen
Zelle = Cell
Range(Cell).Copy
Range(Cell).PasteSpecial xlPasteValues
--HIER müsste der Zusatz rein ("304 "Bearbeiten" oder "nicht Bearbeiten")
Next
Über jegliche Hilfe bin ich dankbar.
Viele Grüße
Basti