Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA Formel in letzte Zeile (+1) eintragen

Forumthread: Per VBA Formel in letzte Zeile (+1) eintragen

Per VBA Formel in letzte Zeile (+1) eintragen
Marten
Hallo liebe Herber-Welt,
ich konnte schon oft Lösungen in diesem Forum finden, nun muss ich aber einen eigenen Beitrag schreiben, da ich nicht weiß wie und wo ich danach gucken sollte... :)
Da ich an meinem Arbeits-PC nicht über Admin-Rechte verfüge, kann ich leider kein Jeanie benutzen. Versuche daher, mein Anliegen mal so zu beschreiben.
Also ich habe eine Tabelle, in der ich immer bestimmte Dateien einlese. Die Anzahl der Spalten bleibt gleich (einschließlich Spalte R), die Anzahl der Zeilen variiert.
Ich habe bereits eine Formel, die mir den relevanten Bereich markiert:
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("D" & LetzteZeile + 1 & ":R" & LetzteZeile + 1).Select
Nun bräuchte ich eine variable Formel (á la =SUMME(ZÄHLENWENN(D2:D31;{"Kriterium 1";"Kriterium 2"}))
wobei "D31" ja eigentlich eine Variable sein sollte. Geht sowas? Kann mir hier jemand helfen?
Schon mal vielen Dank im Voraus.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Per VBA Formel in letzte Zeile (+1) eintragen
18.07.2011 11:35:48
Rudi
Hallo,
1. ist Select überflüssig.
Cells(LetzteZeile, 4).FormulaR1C1= "=Sum(CountIf(R2C:R[-1],{""Krit1"",""Krit2""}))"
Gruß
Rudi
AW: Per VBA Formel in letzte Zeile (+1) eintragen
18.07.2011 11:46:15
Marten
Hallo Rudi,
danke für die schnelle Hilfe. Aber das funktioniert irgendwie nicht. Wenn ich das Makro ausführe steht in der Zelle die Formel:
=SUMME(ZÄHLENWENN(D$2:30:30;{"Krit 1"."Krit 2"}))
Eigentlich sollte er ja in "D2" bis "D und letzte Zeile" suchen.
Gruß
Marten
Anzeige
AW: Per VBA Formel in letzte Zeile (+1) eintragen
18.07.2011 11:55:06
Rudi
Hallo,
da reiche ich ein C nach.
Cells(LetzteZeile, 4).FormulaR1C1= "=Sum(CountIf(R2C:R[-1]C,{""Krit1"",""Krit2""}))"
Gruß
Rudi
AW: Per VBA Formel in letzte Zeile (+1) eintragen
18.07.2011 12:51:43
Marten
Klappt. Super. Danke!!!
;

Forumthreads zu verwandten Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Formel für letzter Zeilenwert
Andre´

Hallo alle zusammen,
gibt es eine Formel, die mir den letzten Zeilenwert anzeigt.
Tabelle1

 BCDEFGHIJKLMN3 = letzter Zeilenwert() AnnePeter12.01.2008       Ändern4 = letzter Zeilenwert() FranzPetraLutz15.05.2008   ...
05.12.2008 07:44:00
Thread-ID: 1030336
8 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Anzeige
FOrmeln einfügen bis zur letzten Zelle
Tobias

Hallo zusammen,
derzeit füge ich folgende Formeln mit einem Makro ein:
Private Sub Formeln_einfügen2() Range("j2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,IF(RC[-2]-RC[-3]>=75,""ja"",""nein""),"""")" Range("j2").Select Selection.AutoFill Destination:=Range("j2:j20000"), Ty...
01.05.2009 16:36:03
Thread-ID: 1072338
3 Beiträge
Anzeige
Makro: Wort ersetzen bis letzte Zeile von...
Julia

Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben() Sheets("Datenbasis").Select ActiveWindow.SmallScroll ToRight:=-3 Columns("I:I").Select Selection.Replace What:="Fixed", Repl...
30.06.2009 11:17:32
Thread-ID: 1085300
3 Beiträge
Anzeige
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
Anzeige
in sverweis bis zur letzten Zeile durchsuchen
Stein

Hallo,
ich habe ein kleines Problem:
In einer Tabelle für Auftragsverläufe ist in einer Formel unter anderem auch eine Sverweis- _ Funktion enthalten, in der in der Spalte A das maximale Datum ermittelt und in der entsprechenden Spalte derselben Zeile nachgeprüft werden soll, ob dort ei...
15.09.2010 09:52:41
Thread-ID: 1177651
14 Beiträge
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
VBA - letzte Zeile ermitteln
WalterK

Hallo,
für die letzte belegte Zeile in Spalte D habe ich folgende Codezeile gefunden:
Zeletzte = Cells(Rows.Count, 4).End(xlUp).Row
Leider werden hier auch die Formelergebnisse "" mitberücksichtigt.
Wie müßte die Codezeile lauten, wenn für die Ermittlung der letzten belegten Zei...
09.12.2011 11:55:16
Thread-ID: 1241383
6 Beiträge
Druckbereich bis letzte Zeile
Mike

Hallo,
warum kann ich den Druckbereich so nicht einstellen?
.PageSetup.PrintArea = "$A$1:$N" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row & "
Die Variable steht nicht in den "".
Gruß
Mike
16.03.2012 10:32:06
Thread-ID: 1255262
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Per VBA Formel in die letzte Zeile (+1) eintragen

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Projekt-Explorer mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

  3. Gib den folgenden Code ein:

    Sub EintragInLetzteZeile()
   Dim LetzteZeile As Long
   LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   Cells(LetzteZeile + 1, 4).FormulaR1C1 = "=SUMME(ZÄHLENWENN(R2C:R" & LetzteZeile & "C,{""Krit1"",""Krit2""}))"
End Sub

  4. Schließe den VBA-Editor: Drücke ALT + Q, um den Editor zu schließen.

  5. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle EintragInLetzteZeile und klicke auf Ausführen.

Dieser Code sucht nach der letzten Zeile in der ersten Spalte und trägt die gewünschte Formel in die nächste Zeile der vierten Spalte ein.

Häufige Fehler und Lösungen

  • Formel wird nicht korrekt eingetragen: Stelle sicher, dass Du FormulaR1C1 und nicht Formula verwendest. Dies ist wichtig, um die relative Adressierung korrekt zu handhaben.

  • Fehler bei der Zeilenberechnung: Wenn die letzte Zeile nicht korrekt erkannt wird, überprüfe, ob die Tabelle leere Zeilen enthält. Die End(xlUp)-Methode funktioniert am besten bei durchgehenden Daten.

  • Syntaxfehler in der Formel: Achte darauf, dass Du die richtigen Anführungszeichen verwendest und die Formel korrekt aufbaust.

Alternative Methoden

Eine Alternative zur Verwendung von VBA ist die Verwendung von Excel-Formeln, um ähnliche Ergebnisse zu erzielen.

  • Formel in Zelle einfügen: Du kannst auch die folgende Formel in eine Zelle manuell eingeben:

    =SUMME(ZÄHLENWENN(D2:D100;{"Krit1";"Krit2"}))

  • Tabelle als dynamisch definierte Namensliste: Definiere einen dynamischen Bereich, der die letzte Zeile automatisch anpasst. Das kannst Du mit einer Kombination von OFFSET und COUNTA erreichen.

Praktische Beispiele

Hier sind einige Beispiele, wie Du den VBA-Code anpassen kannst:

  1. Ändern der Spalte: Wenn Du die Formel in einer anderen Spalte eintragen möchtest, ändere die Zahl 4 in Cells(LetzteZeile + 1, 4) auf die gewünschte Spalte.

  2. Anpassung der Kriterien: Ändere die Kriterien in der Formel, um sie an Deine Bedürfnisse anzupassen:

    Cells(LetzteZeile + 1, 4).FormulaR1C1 = "=SUMME(ZÄHLENWENN(R2C:R" & LetzteZeile & "C,{""NeuesKriterium1"",""NeuesKriterium2""}))"

Tipps für Profis

  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass Dein Makro auch bei unerwarteten Daten robust bleibt.

    On Error Resume Next
' Dein Code hier
On Error GoTo 0

  • Dokumentation: Kommentiere Deinen Code gut, damit Du und andere Benutzer später nachvollziehen können, was jeder Teil des Codes macht.

FAQ: Häufige Fragen

1. Wie finde ich die letzte Zeile in einer anderen Spalte?
Du kannst die Spalte in der Cells-Funktion anpassen. Zum Beispiel Cells(Rows.Count, 2).End(xlUp).Row für die zweite Spalte.

2. Funktioniert das auch in Excel Online?
Leider ist die VBA-Funktionalität nicht in Excel Online verfügbar. Du musst die Desktop-Version verwenden, um VBA-Makros auszuführen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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