Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile einfügen und alten Bereich nach unten verschieben
21.06.2021 11:23:03 Sani
NotSolved
21.06.2021 14:57:14 Gast39988
NotSolved

Ansicht des Beitrags:
Von:
Sani 		Datum:
21.06.2021 11:23:03		 Views:
1176		 Rating:
     
Antwort:
  Ja
Thema:
Zeile einfügen und alten Bereich nach unten verschieben

Hallo zusammen, 

ich möchte gerne eine neue Zeile in A8 einfügen und den alten Bereich nach unten verschieben. Bei weiteren neuen Zeilen würde sich natürlich wieder der alte Bereich nach unten verschieben und die neue Zeile wäre dann in A8. In meinem Code werden die neuen Zeilen nämlich am Ende eingefügt. 

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("L16")

Worksheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A7").Select
If Worksheets("Tabelle2").Range("A7").Offset(1, 0) <> "" Then
Worksheets("Tabelle2").Range("A7").End(xlDown).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

Danke!! 
 

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
Rot Zeile einfügen und alten Bereich nach unten verschieben
21.06.2021 11:23:03 Sani
NotSolved
21.06.2021 14:57:14 Gast39988
NotSolved