Hallo,
ich habe ein Problem, welches ich nicht lösen kann. Bei der fett gedruckten Zeile erhalte ich immer wieder den den Fehler 424. Den gleichen Funktionsaufbau habe ich schon mehrmals in der Sub verwendet, nur mit anderen Workbooks. Da funktioniert es ohne Probleme. Ich hoffe ihr könnt mir helfen
Beste Grüße
Hannes
Dim PathSP As String
Private Sub cbStart_Click()
Dim wbSP, wbThis As Workbook
Dim intRowX As Integer
Set wbthis = ActiveWorkbook
PathSP = Worksheets("Berechnung").Cells(5, 4)
Set wbSP = Workbooks.Open(PathSP)
intRowX = 1
For intRowX = 1 To 3
wbSP.Worksheets("Tabelle1").Cells(intRowX, 11) = wbthis.Worksheets("Dateneingabe").Cells(intRowX + 35, 9).Value
Next intRowX
End Sub
|