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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen