VBA Problem Schule
18.07.2003 23:49:44
Hans
Habe eine Schülerliste, welche 400 Schüler in den Klassen
1a bis 1i,
2a bis 2i
3a bis 3i
4a bis 4i beinhaltet. Nun möchte ich per VBA am Schulende alle Schüler um eine Schulstufe anheben, sodass alle die in die klassen 1a bis 1i gehen nach 2a bis 2i aufsteigen usw.. Bei den Schülern der 4. Klassen sollte der Wert dann auf "NS" (neue Schule)gesetzt werden.
Habe dies auf die herkömmliche Art probiert und die funktioniert auch, doch dafür benötige ich ca. 30 Seiten in VBA und das ist nicht das Wahre.
hier ein Beispiel für eine Zelle: und ich habe 400 davon
If Range("i6") = "2a" Then
Range("i6") = "3a"
Call i7
End
Else
End If
If Range("i6") = "3a" Then
Range("i6") = "4a"
Call i7
End
Else
End If
If Range("i6") = "4a" Then
Range("i6") = "-"
Call i7
Else
End If
If Range("i6") = "2b" Then
Range("i6") = "3b"
Call i7
End
Else
End If
If Range("i6") = "3b" Then
Range("i6") = "4b"
Call i7
End
Else
End If
If Range("i6") = "4b" Then
Range("i6") = "-"
Call i7
Else
End If
If Range("i6") = "2i" Then
Range("i6") = "3i"
Call i7
End
Else
End If
If Range("i6") = "3i" Then
Range("i6") = "4i"
Call i7
End
Else
End If
If Range("i6") = "4i" Then
Range("i6") = "-"
Call i7
Else
End If
If Range("i6") = "2s" Then
Range("i6") = "3s"
Call i7
End
Else
End If
If Range("i6") = "3s" Then
Range("i6") = "4s"
Call i7
End
Else
End If
If Range("i6") = "4s" Then
Range("i6") = "-"
Call i7
Else
End If
End Sub
Mit der Bitte um Hilfe!!!!
Danke im Voraus!
Hj