Schleife bitte einbauen
Bernd
ich bitte um Eure Ergänzung:
folgendes soll mit dem Code realisert werden: es gibt zwei Scheifen: die eine soll die 19 Kostenstellen, die in Range C53-C77 stehen, nacheinander abarbeiten und jeweils in Blatt 1 ("CTA") in die Zelle B5 schreiben.
Zu jeder Kostenstelle gibt es 14 sogenannte Cluster, die innerhalb der vorgenannen ersten Kostenstellen-Schleife nacheinander abgearbeitet werden müssen. Diese Cluster stehen in dem Zellbereich F53:F71 und müssen in die Zelle G5 (Blatt "CTA")geschrieben werden.
Ist das erfolgt, kommt die zweite Kostenstelle dran - wieder nacheinander mit den gleichen 14 Clustern usw. bis die 19 KST abgearbeitet sind.
Der nachfolgende Code aktualisert nicht die Kostenstelle....(also Schleife 1)... Danke Euch!! Ich habe versucht, ihn für Euch gut lesbar zu strukturieren.
Sub CTA_Automatisch_Aktualisieren_und_Speichern()
Dim Bereich As Range
Dim Zelle As Range
Dim MerkWert As String
Dim KST As Range
Dim Zelle1 As Range
Sheets("CTA").Activate
Set KST = Range("F53:F71") 'Liste der zu bearbeitenden KST
Set Bereich = Range("C53:C77") 'Liste der zu bearbeitenden Cluster
'es folgt die erste Schleife, um die erste KST (von 19 Kostenstellen) mit den Werten aus der _
Range C53:C77 nacheinander in die Zelle 'Zelle B5 in Blatt CTA zu schreiben:
With Application
KST = Range("B5").Value
For Each Zelle1 In Bereich
'es folgt die zweite Schleife innerhalb der ersten Schleife, um die Cluster mit der KST( _
Kostenstellen) mit den Werten aus der Range C53:C77 nacheinander in die Zelle 'Zelle B5 in Blatt CTA zu schreiben:
With Application
MerkWert = Range("G5").Value
.ScreenUpdating = True
.EnableEvents = False
.DisplayAlerts = False
For Each Zelle In Bereich
Range("G5").Value = Zelle.Value
'bestehende Blätter aus dem Master/Vorlage kopieren und separat mit Cluster-Name aus Zelle G5 _
abspeichern
Sheets(Array("CTA", "Entities", "Partner", "GIGGs_AREn")).Copy
With ActiveWorkbook
.SaveAs ("P:\ALL CTA Templates\" & Zelle.Text & ".xls"), FileFormat:=56
.Close False 'verhindert, dass der Master geschlossen wird.
End With
Next Zelle
Range("G5").Value = MerkWert
.EnableEvents = True
.DisplayAlerts = True
.ScreenUpdating = True
End With 'Ende Schleife 2
' gehört zu Schleife 1
Next Zelle1
Range("B5").Value = KST
.EnableEvents = True
End With 'Ende Schleife 1
End Sub
---
Grüße
bernd