Schleife im Makro
09.12.2004 14:43:53
Steffen
ich bitte Euch um Hilfe bei folgendem Problem:
Ich möchte aus Datei "AK-Planung 2005.xls" vier Zellinhalte (Zahlen) in "aktuelle AK Berechnung A5 & B6.xls" kopieren, dann die dort errechneten Werte (Zahlen aus zwei Zellen) wieder zurückholen. Soweit klappt dies auch. Diese Prozedur müsste sich allerdings auf weiteren ca. 19000 Zeilen in "AK-Planung 2005.xls" wiederholen. Wie kann ich im Makro eine Schleife setzen?
Vielen dank im Voraus
Steffen
Hier mein bisheriges Werk . . .
Sub update_net_gros_personal_planning()
' Makro am 08.12.2004 von ... aufgezeichnet
'Bildschirm-Update aus!
Application.ScreenUpdating = False
Cells(7, 2).Select
Selection.Copy
Workbooks.Open Filename:= _
"Y:\Personalplanung AB\aktuelle AK Berechnung A5 & B6.xls"
Windows("aktuelle AK Berechnung A5 & B6.xls").Activate
Range("BG10").Select
ActiveSheet.Paste
Windows("AK-Planung 2005.xls").Activate
ActiveCell.Offset(0, 1).Select
Selection.Copy
Windows("aktuelle AK Berechnung A5 & B6.xls").Activate
Range("CL10").Select
ActiveSheet.Paste
Windows("AK-Planung 2005.xls").Activate
ActiveCell.Offset(0, 1).Select
Selection.Copy
Windows("aktuelle AK Berechnung A5 & B6.xls").Activate
Range("CC22").Select
ActiveSheet.Paste
Windows("AK-Planung 2005.xls").Activate
ActiveCell.Offset(0, 1).Select
Selection.Copy
Windows("aktuelle AK Berechnung A5 & B6.xls").Activate
Range("CC23").Select
ActiveSheet.Paste
Range("DG38").Select
Selection.Copy
Windows("AK-Planung 2005.xls").Activate
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows("aktuelle AK Berechnung A5 & B6.xls").Activate
Range("DG24").Select
Selection.Copy
Windows("AK-Planung 2005.xls").Activate
'Cells(7, 7).Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, -5).Select
'Schleife?
'Schließen mit Speichern vom Template
Windows("aktuelle AK Berechnung A5 & B6.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
'Wechsel zum AK-Planung
Windows("AK-Planung 2005.xls").Activate
'Bildschirmaktualisierung wieder einschalten
Application.ScreenUpdating = True
End Sub