Hallo,
ich habe das Problem, dass in meinem Code die Fehlermeldung "Objekt erforderlich" erscheint.
Kann mir da jemand bitte helfen?
Sub Daten_zur_Übersicht()
Dim Name As String
Dim Durchschnittspunktezahl As String
Dim Datum As String
Worksheets("Tabelle1").Select
Name = Range("B1")
Datum = Range("B2")
Durchschnittspunktezahl = Range("L11")
Worksheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A7").Select
If Worksheets("Tabelle2").Range("A7").Offset(1, 0) <> "" Then
Worksheets("Tabelle2").Range("A7").End(x1Down).Select
End If
AcitveCell.Offset(1, 0).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Durchschnittspunktezahl
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Datum
End Sub
Danke im Voraus!!
|