Guten Tag an Alle,

Ich habe hier das Bild zur "Problemaufgabe" hochgeladen:

https://imageshack.com/i/po4kbeMAp

Im Kommentar meine bisherigen Versuche.. Aufgabe 4.1.) funktioniert

ab 4.2. komme ich leider nicht weiter. Meine Code wird noch sehr fehlerhaft sein, dafür sorry, bin noch Anfänger und da funktioniert oft nur probieren geht über studieren...

Es wäre wirklich super wenn Ihr mir helfen könnt die restlichen Aufgabe auch zu lösen.

Bleibe heute solange dran, bis es funktioniert. 

LG Tobias

Option Explicit
Option Base 1 '?

Type GlobalDatenfeld '4.3.
    VN As String
    NN As String
    MNR As Integer
    HUE As Single
    KL As Double
    SUM As Double
    Note As Double
    
End Type '4.3

'4.1.) Anzahl und globale Variable -> Public
Public Function AnzahlDatensätze() As Integer
    Dim i As Integer
    i = 2
    Do
        If Tabelle1.Cells(i, 1).Value = "" Then Exit Do
        i = i + 1
    Loop
        AnzahlDatensätze = i - 2
        'Kontrolle bereits hier = MsgBox "Anzahl = " & AnzahlDatensätze
        'als globale Variable zur Verfügung stellen - AnzahlDatensätze
    MsgBox "Anzahl = " & AnzahlDatensätze
End Function

'4.2.) Ermittlung der Zeilennummer für eine Matrikel-Nr. (MNR)
Function MNRFinden() As Integer
    Dim i As Integer
    Dim x As Integer
    Dim MatrikelNr As Integer
    
    x = InputBox("Matrikel-Nr.")
    
    For i = 1 To 7
        If x = Tabelle1.Cells(i, 4) Then
        MsgBox "Zeile =" & i
        End If
    Next i
End Function

'4.3.) Benutzerdefinierte Variable und globale Variable -> Datenfeld
Public Sub Hauptprogramm()
    Dim Datenfeld() As GlobalDatenfeld
    
'4.4.) Prozedur - einlesen in Datenfeld
    ReDim Datenfeld(AnzahlDatensätze)
    Dim i As Integer
        For i = 1 To AnzahlDatensätze
            With Datenfeld(i)
            .VN = Cells(i + 1, 2)
            .NN = Cells(i + 1, 3)
            .MNR = Cells(i + 1, 4)
            .HUE = Cells(i + 1, 5)
            .KL = Cells(i + 1, 6)
            '.SUM = Cells(i+1,7) ?
            '.NOTE = Cells(i+1,8) ?
            End With
        Next i
End Sub
'4.5)???
Sub calNoten()
'Berechnung der Punktesumme
End Sub