Hallo zusammen!
versuche es gerade von den Werten, die ich in der Spalte 'G' habe andere in der Spalte 'H' zu bekommen. In 'G' stehen die Jahre des Kindes und in 'H' möchte ich dann die entsprechende Klasse bekommen. Die Klassen sind hier mit den Kodes in der Variable EXP_GRADE_05_06 gekennzeichnet .
Hoffe, dass ihr mir helfen könnt.....weiß momentan nicht woran mein Fehler liegt :) Danke euch im Voraus!
Beni
P:S: Hier ist, was ich bis jetzt gemacht habe.
Sub EDUC_GAP()
Dim AGE_05_06, EXP_GRADE_05_06 As Integer
EXP_GRADE_05_06 = Range(Cells(2, 8), Cells(3532, 8)).Value
Range(Cells(2, 7), Cells(3532, 7)).Value = AGE_05_06
If AGE_05_06 = "6" Then
EXP_GRADE_05_06 = "10"
ElseIf AGE_05_06 = "7" Then
EXP_GRADE_05_06 = "11"
ElseIf AGE_05_06 = "8" Then
EXP_GRADE_05_06 = "12"
ElseIf AGE_05_06 = "9" Then
EXP_GRADE_05_06 = "13"
ElseIf AGE_05_06 = "10" Then
EXP_GRADE_05_06 = "14"
ElseIf AGE_05_06 = "11" Then
EXP_GRADE_05_06 = "15"
ElseIf AGE_05_06 = "12" Then
EXP_GRADE_05_06 = "16"
ElseIf AGE_05_06 = "13" Then
EXP_GRADE_05_06 = "30"
ElseIf AGE_05_06 = "14" Then
EXP_GRADE_05_06 = "31"
ElseIf AGE_05_06 = "15" Then
EXP_GRADE_05_06 = "32"
ElseIf AGE_05_06 = "16" Then
EXP_GRADE_05_06 = "33"
ElseIf AGE_05_06 = "17" Then
EXP_GRADE_05_06 = "34"
ElseIf AGE_05_06 = "18" Then
EXP_GRADE_05_06 = "35"
End If
End Sub
|