Suchfunktion
16.10.2020 14:34:39
Meier
Ich habe drei Worksheets:
1.)Namen & Noten Eingabe
2.)Schülerliste mit ID, Name, Vorname
3.)Zeugnisvorlage
Mein erstes Macro hat die Funktion Name und Schulnoten über je eine Inputbox einzugeben. ( _ folgend nur ein
Sub Name() aufgelistet, nicht Note)
Sub Name()
Range("C5").Select
Dim Name As String
Name = InputBox("Namen eingeben", "Name")
If Name = "" Then
MsgBox "kein Eintrag"
Range("C5").Value = "kein Eintrag"
Else
Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = Name
End If
End Sub
Das zweite Macro soll die folgenden Funktionen haben:
1.) Kontrollieren, ob der eingegebene Name im Sheet "Schülerliste" in der Spalte C2:C36 unter "Name" vorhanden ist.
a) Falls nein, soll die Eingabe ignoriert werden.
b) Falls ja, soll ein Kopie des Sheets "Zeugnisvorlage" mit dem Namen erstellt werden.
Kann mir jemand helfen?