Habe eine Frage. Ich habe ca. 60 Arbeitsmappen und muss genau das gleiche in jeder machen (Copy and paste und paar kleine formeln)! Ist dies irgendwie möglich das man einen Vorgang gleich für alle Arbeitsmappen machen kann?
Danke und gruss
fritz
Sub text()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
With sh
.Cells(1, 1).Copy Destination:=.Cells(2, 1)
.Cells(1, 1).Value = "Überschrift"
End With
sh.Cells(1, 1).Interior.ColorIndex = 6
Next
End Sub
Gruß, Daniel