ich habe mal wieder ein Thema, wo ich Eure Hilfe brauche.
Folgender Code ist mir zu unübersichtlich, da ich von diesen Blöcken ca. 100 Stück haben werde.
Er funktioniert aber!
Sub WWWerte_kopieren(ur As String, vo As String)
Windows(ur).Activate
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Windows(vo).Activate
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Ich war der Meinung es müßte auch so gehen:
Sub WWerte_kopieren(ur As String, vo As String)
Dim vSh As Worksheet, uSh As Worksheet
Set vSh = Workbooks(ur).Worksheets("Vorlage")
Set uSh = Workbooks(vo).Worksheets("Vorlage")
vSh.Cells(4, 13).Value = uSh.Cells(3, 1).Value
End Sub
leider aber ohne Erfolg.
Hat einer eine Idee warum.
Gruß Günter