Kopieren per VBA

Forumthread: Kopieren per VBA

Kopieren per VBA

Benni

Hallo VBA-Profis,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Kopieren per VBA

JoWE

AW: Kopieren per VBA

11.05.2011 17:40:49

JoWE

Hallo Benni,
so vllt.?

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

Gruß
Jochen

Forumthread: Kopieren per VBA

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread