Hallo Forum,
ich brauche nochmal eure Hilfe!!!
Ich habe folgenden Code:
Private Sub CommandButton1_Click()
Dim a, b, c
Select Case InputBox("Welcher Periode wird aktualisiert? - 1,...,12?")
Case Is = "1"
For a = 16 To 6 Step -1
For b = 152 To 42 Step -1
If Sheets(2).Cells(a, 1).Value = Sheets(15).Cells(b, 2).Value Then
Sheets(2).Cells(a, 3).Value = Sheets(15).Cells(b, 3).Value
Sheets(2).Cells(a, 4).Value = Sheets(15).Cells(b, 4).Value
End If
Next b
Next a
For a = 16 To 6 Step -1
For b = 152 To 42 Step -1
If Sheets(3).Cells(a, 1).Value = Sheets(16).Cells(b, 2).Value Then
Sheets(3).Cells(a, 3).Value = Sheets(16).Cells(b, 3).Value
Sheets(3).Cells(a, 4).Value = Sheets(16).Cells(b, 4).Value
End If
Next b
Next a
...
...
Case Is = "2"
For a = 16 To 6 Step -1
For b = 152 To 42 Step -1
If Sheets(2).Cells(a, 1).Value = Sheets(15).Cells(b, 2).Value Then
Sheets(2).Cells(a, 5).Value = Sheets(15).Cells(b, 3).Value
Sheets(2).Cells(a, 6).Value = Sheets(15).Cells(b, 4).Value
End If
Next b
Next a
For a = 16 To 6 Step -1
For b = 152 To 42 Step -1
If Sheets(3).Cells(a, 1).Value = Sheets(16).Cells(b, 2).Value Then
Sheets(3).Cells(a, 5).Value = Sheets(16).Cells(b, 3).Value
Sheets(3).Cells(a, 6).Value = Sheets(16).Cells(b, 4).Value
End If
Next b
Next a
...
...
Case Is "3"
...
Case Is "4"
......usw.
bis Case is "12"
Innerhalb eines Cases verändert sich:
die Angabe in welches Sheet er den Wert schreiben soll jeweils um 1 und
ebenso die Angabe aus welchem Sheet er den Wert beziehen soll!
[also Sheets(2) zu Sheets(3)]
Für jeden Case verändert sich:
der Zellwert der Zellen in die der Wert geschrieben wird jeweils um 2 [von Cells(a, 3) zu Cells(a, 5)]
Gerne würde ich diese Zellen und Sheet-Angaben auch als Variable angeben!
Ich weiß nur nicht wie!!!!
Vielleicht kann mir jemand von euch weiterhelfen!!!
VIELEN DANK schon mal im Voraus!!!
Beste Grüße
Tobias