Hallo
ich möchte bestimmte Zellen aus einem Workbook zum anderen Workbook (in einem Textfeld) kopieren
beim debuggen zeigt es immer (bei dick markierte Zeile) "Lauzeitfehler '1004': Die Text Eigenschaft des Charakters-Objektes kann nicht festgelegt werden"
Dim wkbOrig As Workbook
Dim wkbTarg As Workbook
Dim Range1 As String
Set wkbOrig = ThisWorkbook
Set wkbTarg = Workbooks.Open("C:\Users\...)
For i = 1 To 10
Range1 = "B" & i & ":E" & i
If Cells(2, i) <> x Then
wkbTarg.Sheets(1).Shapes(i + 1).TextFrame.Characters.Text = wkbOrig.Sheets(1).Range(Range1).Value
End If
Next i
|