Schleife - Werte austauschen in allen roten Blätt
Claudia
ich stehe vor einem Problem. Ich muss in allen Blättern in meiner Datei zwei bestimmte Datenfelder (C6 und C7) ersetzen durch Werte, die im Reiter Blattnamen stehen.
Der Reiter Blattname hat in der ersten Zeile dioe Überschrift, ab Zeile 2 geht es dann los.
In Spalte A der Name des Blattes und in Spalte B (Wert C6) und C (Werte C7) der jeweilige Wert, der in dieses betreffende Blatt eingetragen werden soll.
Etwas habe ich schon gebastelt, aber das Problem ist halt die Bestückung aus dem Reiter Blattnamen. Hier komme ich nicht weiter. Kann mit jemand helfen?
Liebe Grüße
Claudia
Sub test()
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Worksheets
If blatt.Tab.ColorIndex = 3 Then
blatt.Select
'Range("C1:C3").Select
'Selection.ClearContents
End If
Next blatt
End Sub