Macro erweitern
21.05.2009 09:33:20
Torsten
Ist der folgende Aufbau des Macros so in Ordnung und kann ich dieses nach meinem Muster für das ganze Jahr erweitern?
Danke.
mfg Torsten
Option Explicit
Rem Mai
Private Sub Worksheet_Activate()
Dim E As Integer
Dim F As Integer
Dim I As Integer
Rem If Day(Now) = Now Then
E = 53
F = 25
For I = 2 To 8
Sheets("Berichte").Cells(53, I).Value = Sheets("Ergebnisse").Cells(F, 10).Value
F = F + 1
Rem Torsten
Next I
E = 57
F = 15
For I = 3 To 8
Sheets("Berichte").Cells(57, I).Value = Sheets("Ergebnisse").Cells(F, 10).Value
F = F + 1
Next I
Rem Dieter
E = 55
F = 46
For I = 2 To 8
Sheets("Berichte").Cells(55, I).Value = Sheets("Ergebnisse").Cells(F, 10).Value
F = F + 1
Next I
End If
Rem Juni
If DateSerial(2009, 7, 20) >= Now Then
E = 65
F = 25
For I = 2 To 8
Sheets("Berichte").Cells(65, I).Value = Sheets("Ergebnisse").Cells(F, 11).Value
F = F + 1
Rem Torsten
Next I
E = 69
F = 15
For I = 3 To 8
Sheets("Berichte").Cells(69, I).Value = Sheets("Ergebnisse").Cells(F, 11).Value
F = F + 1
Next I
Rem Dieter
E = 67
F = 46
For I = 2 To 8
Sheets("Berichte").Cells(67, I).Value = Sheets("Ergebnisse").Cells(F, 11).Value
F = F + 1
Next I
End If
End Sub
Anzeige