|
Hi, ich habe ein "Select Case" - Problem: ich muss die Anzahl Schüler im Tabellenblatt ""3A_Castelli_Claudia" Zelle "B30" im Tabellenblatt "DatabaseDocenti" in der Zeile des entsprechenden Lehrers in die Spalte "Numero Classe" Spalte "V" einfügen. Der Name des Lehres steht im Tabellenblatt "3A Castelli_Claudia" in "B1".
Das Problem dabei ist, dass in der "DatabaseDocenti" alle Orginalnamen aufgelistet sind: z.B. Pietro Zuccolo, aber auch Paula Virginia Claro oder D'Agostini Susi,... im Falle von "Castelli Claudia" steht der Name "Castelli Cavadini Claudia".
Ich hab's mit Select Case probiert, hab dafür den Namen im Sheet "3A_Castelli_Claudia" aufgeteilt in "G1" = Castelli und "H1" = Claudia.
Leider klappt mein Code nicht.
Kann mir jemand auf die Sprünge helfen? Grazie Berni
Private Sub Worksheet_Activate()
Dim Zeile As Integer
'Name des Lehrers in DatabaseDocente suchen und Anzahl Schüler eintragen
For Zeile = 5 To 88
'Suche Zeile in "DatabaseDocenti" welche mit Lehrername übereinstimmt
Select Case Worksheets("DatabaseDocenti").Cells(Zeile, 2).Value
Case ActiveSheet.Range("G1").Value, ActiveSheet.Range("H1").Value
'Kopiere die Anzahl Schüler "B30" und füge diese in "DatabaseDocenti" in Splate N (14) ein
Worksheets("DatabaseDocenti").Cells(Zeile, 14) = ActiveSheet.Range("B30")
End Select
Next Zeile
'Deaktivieren von Worksheet_Activate und somit das automatisches Ausführen der vba _Activate()
Application.EnableEvents = False
End Sub
|