Hallo, ich bin´s wieder!
Leider bekomme ich die Fehlermeldung "Anwendunds-und objektdefinierter Fehler" ab der unterstrichenen Zeile (Worksheets("Tabelle2").Range("A7").End(x1Down).Select)
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
ActiveCell.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
Ich bedanke mich!
|