Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Formeln bis bestimmte Zeile ausführen

Formeln bis bestimmte Zeile ausführen
07.04.2020 11:15:00
Tom
Hallo zusammen,
ich habe in Zeile 6 (Spalte A,B,C,D,E) jeweils eine Formel eingefügt. In Zelle P26 habe ich eine Zahl eingetragen.
Ich möchte die Formeln aus Zeile 6 bis zu einer bestimmten Zeile nach unten hin ausführen, und zwar bis zu der Zeile, die ich in P26 angegeben habe +5.
Sprich wenn ich in Zelle P26 den Wert "25" eingegeben habe, möchte ich die Formel bis Zeile 25 +5, also bis Zeile 30 ausführen.
Dies möchte ich per VBA erreichen.
Könnt Ihr mir dabei helfen?
Vielen Dank vorab.
Gruß
Tom
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 07:40:26
ChrisL
Hi Tom
Modul der betreffenden Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P26")) Is Nothing Then
If IsNumeric(Range("P26")) And Range("P26")  0 Then
Range("A7:E1000").ClearContents
Range("A7:E" & Range("P26") + 5).Formula = Range("A6:E6").Formula
End If
End If
End Sub
cu
Chris
Anzeige
AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 09:33:21
ChrisL

Sub t()
If IsNumeric(Range("P26")) And Range("P26")  0 Then
Range("A7:E1000").ClearContents
Range("A7:E" & Range("P26") + 5).Formula = Range("A6:E6").Formula
End If
End Sub

AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 10:31:51
Tom
Hallo Chris,
danke für deine Hilfe!
Soweit funktioniert das Ganze. Problem ist nur, dass er den Inhalt aus Zeile 6 in Zeile 7 noch einmal schreibt. In Zeile 7 sollte aber quasi schon die Liste fortgeführt werden, als würde ich Zeile 6 (A6:E6) mit der Maus markieren und anschließend nach unten ziehen.
Hast du dafür noch eine Idee?
Gruß
Tom
Anzeige
AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 11:27:39
ChrisL
Hi Tom
Welche Formel steht denn in Zeile 6 resp. lade bitte mal eine Beispieldatei.
Gemäss Vorgabe wird die Formel kopiert, der "Inhalt" wäre somit irrelevant.
cu
Chris
AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 11:56:22
Tom
Hallo Chris,
danke wiederum für deine Hilfe.
Anbei die Datei mit Inhalt.
Ich möchte, dass nach unten hin das Ganze fortgesetzt wird.
Mit deinem Code funktioniert das auch, nur dass zunächst der Inhalt aus Zeile 6 in Zeile 7 ebenfalls übernommen wird.
https://www.herber.de/bbs/user/136528.xlsx
Gruß
Tom
Anzeige
AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 13:44:37
ChrisL
Hi Tom
Versuch mal so...
Sub t()
If IsNumeric(Range("P26")) And Range("P26")  0 Then
Range("A7:E1000").ClearContents
Range("A6:E" & Range("P26") + 5).Formula = Range("A6:E6").Formula
End If
End Sub
cu
Chris
AW: Formeln bis bestimmte Zeile ausführen
08.04.2020 13:50:44
Tom
... Es funktioniert perfekt!!
Ich danke dir Chris.
Gruß
Yannick
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Formeln bis zu einer bestimmten Zeile ausführen in Excel


Schritt-für-Schritt-Anleitung

Um Formeln bis zu einer bestimmten Zeile auszuführen, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("P26")) Is Nothing Then
           If IsNumeric(Range("P26")) And Range("P26") > 0 Then
               Range("A7:E1000").ClearContents
               Range("A7:E" & Range("P26") + 5).Formula = Range("A6:E6").Formula
           End If
       End If
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Gib eine Zahl in Zelle P26 ein, um die Formeln bis zur angegebenen Zeile auszuführen.

Dieser Code sorgt dafür, dass die Formeln aus Zeile 6 bis zur Zeile, die Du in P26 angegeben hast, ausgeführt werden.


Häufige Fehler und Lösungen

  1. Formeln werden nicht aktualisiert: Stelle sicher, dass die Zellreferenz P26 korrekt ist und eine gültige Zahl enthält.
  2. Fehler beim Ausführen des Codes: Prüfe, ob der Code im richtigen Modul eingefügt wurde und dass der VBA-Editor geöffnet ist.
  3. Inhalt aus Zeile 6 wird auch in Zeile 7 geschrieben: Anpassen des Codes, um sicherzustellen, dass die Formeln nicht dupliziert werden. Hier ist der angepasste Code:

    Sub t()
       If IsNumeric(Range("P26")) And Range("P26") > 0 Then
           Range("A7:E1000").ClearContents
           Range("A6:E" & Range("P26") + 5).Formula = Range("A6:E6").Formula
       End If
    End Sub

Alternative Methoden

Falls Du VBA nicht verwenden möchtest, kannst Du auch die Funktion =INDIREKT() in Kombination mit =WENN() nutzen, um die Formeln dynamisch zu generieren.

Beispiel:

=WENN(ZEILE() <= $P$26 + 5; A6; "")

Diese Formel prüft, ob die aktuelle Zeile kleiner oder gleich der Zeile in P26 plus 5 ist. Wenn ja, wird der Wert aus A6 übernommen.


Praktische Beispiele

  • Summe bis zu einer bestimmten Zeile: Wenn Du die Summe von Werten in Spalte A bis zur Zeile, die Du in P26 angibst, berechnen möchtest, kannst Du die Formel verwenden:

    =SUMME(A1:INDIREKT("A" & P26 + 5))

Diese Formel addiert alle Werte in Spalte A von der ersten Zeile bis zur Zeile, die Du in P26 plus 5 angegeben hast.


Tipps für Profis

  • Verwende benannte Bereiche: Um Deine Formeln übersichtlicher zu gestalten, kannst Du benannte Bereiche nutzen, die es Dir erleichtern, Zellen zu referenzieren.
  • Fehlermeldungen vermeiden: Füge in Deinen Formeln WENNFEHLER() hinzu, um potenzielle Fehler zu handhaben und stattdessen einen benutzerfreundlichen Hinweis anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich die Formeln auch bei Änderungen in anderen Zellen aktualisieren? Du kannst den Code anpassen, um andere Zellen zu überwachen, indem Du die Zellreferenzen in der If Not Intersect(Target, ...)-Bedingung erweiterst.

2. Funktioniert das auch in Excel Online? VBA-Code funktioniert nicht in Excel Online. Du musst die Desktop-Version von Excel verwenden, um diesen Code auszuführen.

3. Was passiert, wenn ich eine Zahl unter 0 in P26 eingebe? Der Code berücksichtigt nur positive Zahlen. Bei negativen Eingaben bleibt der Bereich unverändert.

4. Kann ich mehrere Formeln gleichzeitig ausführen? Ja, Du kannst mehrere Formeln in den entsprechenden Zellen definieren, solange die Logik im VBA-Code entsprechend angepasst wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige