Thema Datum  Von Nutzer Rating
Antwort
Rot Durch Einfügungen wandernde Zelle in Makro referenzieren
30.12.2022 14:06:07 Oliver Ding
NotSolved
30.12.2022 14:48:52 Oliver Ding
NotSolved
30.12.2022 16:45:35 Gast15772
NotSolved

Ansicht des Beitrags:
Von:
Oliver Ding
Datum:
30.12.2022 14:06:07
Views:
78
Rating: Antwort:
  Ja
Thema:
Durch Einfügungen wandernde Zelle in Makro referenzieren

Hallo beisammen,

ich habe ein Problem mit einem Makro, weil eine Zelle nicht adäquat ausgewählt wird, da sie durch das Makro immer eine Zeile tiefer rutscht, da neue Zeilen ergänzt werden. Aufgezeichnet hab ich folgendes:

 

Sub Bewohner_hinzufügen()
'
' Bewohner_hinzufügen Makro
'

'
    Rows("2:2").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("B2:Q2").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=9
    Range("E25").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-23]C[13]:R[-1]C[13])"
    Range("E26").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-24]C[-2]:R[-2]C[-2])"
    Range("B2").Select
End Sub

Das ist mein Makro. Die Zeilen 25 und 26 wandern nach jeder Einfügung in Zeile 2 jeweils eins nach unten, dort soll aber der Wert in Spalte E jeweils um 1 erhöht werden.

Meine Idee wäre, in der Spalte R, wo jeweils Einträge stehen, die Anzahl der Zellen mit Inhalt als $WERT zählen zu lassen, und dann mit E$WERT+1 zu starten. Oder gibt es da einfacherere Möglichkeiten?

Wie muss ich das Makro anpassen, damit dies klappt?

Schönen Dank im voraus und einen guten Rutsch!


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 Durch Einfügungen wandernde Zelle in Makro referenzieren
30.12.2022 14:06:07 Oliver Ding
NotSolved
30.12.2022 14:48:52 Oliver Ding
NotSolved
30.12.2022 16:45:35 Gast15772
NotSolved