Sub Daten_zur_Übersicht()
Dim Name As String
Dim Durchschnittspunktezahl As String
Dim Datum As String
Name = Worksheets("Tabelle1").Range("B1").Value
Datum = Worksheets("Tabelle1").Range("B2").Value
Durchschnittspunktezahl = Worksheets("Tabelle1").Range("L11").Value
If Worksheets("Tabelle2").Range("A7").Offset(1, 0).Value <> "" Then
With Worksheets("Tabelle2").Range("A7").End(xlDown)
.Offset(1, 0).Value = Name
.Offset(1, 1).Value = Durchschnittspunktezahl
.Offset(1, 2).Value = Datum
End With
End If
End Sub