Sub FC_kopieren()
Dim test As Object
Dim ziel As Object
Dim dummy As Object
Dim zeile As Integer, spalte As Integer
Dim station As String, baustein As String
Dim letzteZeile As Integer
letzteZeile = 156
Call ProjektOeffnen
global_Simatic.AutomaticSave = False
For zeile = 4 To letzteZeile
For spalte = 3 To 34
If ThisWorkbook.Sheets("Tabelle1").Cells(zeile, spalte) <> "" Then
station = ThisWorkbook.Sheets("Tabelle1").Cells(3, spalte) 'Station in die kopiert wird
baustein = ThisWorkbook.Sheets("Tabelle1").Cells(zeile, 2) 'Baustein der kopiert werden soll
ThisWorkbook.Sheets("Tabelle1").Cells(2, 8) = "kopiere " & baustein & " nach " & station
Set ziel = global_Project.Programs(station).Next("Bausteine") 'Ziel vom kopieren festlegen
'++++++++++++++++++++++++++++++ Baustein löschen wenn vorhanden +++++++++++++
For Each dummy In ziel.Next
If dummy = baustein Then
dummy.Remove
Exit For
End If
Next dummy
Set dummy = Nothing
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Set test = global_Project.Programs("M1020").Next("Bausteine").Next(baustein).Copy(ziel) ' kopieren
test.Download (S7OverwriteAll)
End If
Next spalte
ThisWorkbook.Sheets("Tabelle1").Cells(2, 8) = "Autosave" & zeile & " " & spalte
global_Simatic.Save
Next zeile
Call CloseProject
End Sub