Thema Datum  Von Nutzer Rating
Antwort
14.06.2021 11:23:53 katja
NotSolved
14.06.2021 11:26:39 Gast10180
Solved
Rot Anwendunds-und objektdefinierter Fehler
14.06.2021 11:39:38 Der Steuerfuzzi
Solved

Ansicht des Beitrags:
Von:
Der Steuerfuzzi		 Datum:
14.06.2021 11:39:38		 Views:
430		 Rating:
     
Antwort:
 Nein
Thema:
Anwendunds-und objektdefinierter Fehler

Hallo,

 

ich klaue Dir eine 1 aus:

Worksheets("Tabelle2").Range("A7").End(x1Down).Select

und schenke Dir ein l:

Worksheets("Tabelle2").Range("A7").End(xlDown).Select

Aber mal im Ernst: Select braucht man idR nicht und ist oft kontraproduktiv, fehlerträchtig und langsam:

http://www.excel-ist-sexy.de/select-und-activate/

https://www.online-excel.de/excel/singsel_vba.php?f=61

Man kann die Blätter/Bereiche direkt referenzieren. Dieser Code sollte ohne Select (hoffentlich) das gleiche machen, wie Deiner:

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.06.2021 11:23:53 katja
NotSolved
14.06.2021 11:26:39 Gast10180
Solved
Rot Anwendunds-und objektdefinierter Fehler
14.06.2021 11:39:38 Der Steuerfuzzi
Solved