Thema Datum  Von Nutzer Rating
Antwort
Rot "Select Case" mit 2 Bedingungen
18.09.2023 18:46:02 Berni
Solved
19.09.2023 06:54:57 ralf_b
NotSolved
19.09.2023 07:53:30 Mase
NotSolved
19.09.2023 16:45:37 Gast38129
NotSolved
19.09.2023 22:16:56 Gast53982
NotSolved
20.09.2023 06:31:38 Mase
NotSolved
20.09.2023 10:25:04 Gast69270
NotSolved

Ansicht des Beitrags:
Von:
Berni
Datum:
18.09.2023 18:46:02
Views:
1070
Rating: Antwort:
 Nein
Thema:
"Select Case" mit 2 Bedingungen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot "Select Case" mit 2 Bedingungen
18.09.2023 18:46:02 Berni
Solved
19.09.2023 06:54:57 ralf_b
NotSolved
19.09.2023 07:53:30 Mase
NotSolved
19.09.2023 16:45:37 Gast38129
NotSolved
19.09.2023 22:16:56 Gast53982
NotSolved
20.09.2023 06:31:38 Mase
NotSolved
20.09.2023 10:25:04 Gast69270
NotSolved