in einer Excel-Datei würde ich gerne per VBA die Spalten E und F sowie die Zellen B5 und C5 aus den Sheet V1 in alle weiteren Sheets kopieren.
Kann mir jemand bei diesem VBA-Problem helfen?
Vielen Dank
Benni
Sub kopieren()
Dim sh, shSource As Worksheet
Set shSource = ThisWorkbook.Sheets("V1")
For Each sh In ActiveWorkbook.Sheets
If sh.Name shSource.Name Then
shSource.Range("E:F").Copy _
Destination:=sh.Range("E1")
shSource.Range("B5:C5").Copy _
Destination:=sh.Range("B5")
End If
Next
End Sub