Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2004to2008
2004to2008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Beginnend mit G52 - dann nächste freie Zelle G53 usw.

Forumthread: Beginnend mit G52 - dann nächste freie Zelle G53 usw.

Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 16:27:38
chris58
Hallo !
Welchen Code muß ich einfügen, damit das Makro immer die nächste freie Zelle nach G52 berechnet, wenn in der Zelle A52 .... A53.....A54 usw. ein Datum steht.
Danke für Eure Hilfe
chris58

Sub Add()
Range("G52").Select
ActiveCell.FormulaR1C1 = "=SUM(R44C2+RC[-1])"
End Sub
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 17:17:58
JoWE
Hallo,
und warum VBA?
Mit einer Formel (z.B. in B1) wäre es so möglich, hier nur bis zu Zeile 500 ausgewertet:
=AGGREGAT(14;4;(A52:A500>"")*ZEILE(A52:A500);1)+1

Gruß
Jochen
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 17:57:09
Christian
Hallo Chris,

ich bin jetzt auch kein VBA Fachmann aber Probier mal 


Sub Add()

    Dim nextRow As Long

    nextRow = 52

    

    Do While Not IsEmpty(Range("A" & nextRow))

        nextRow = nextRow + 1

    Loop

    

    Range("G52").FormulaR1C1 = "=SUM(R" & (nextRow - 8) & "C2+RC[-1])"

End Sub


Gruß
Christian

Anzeige
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 21:59:47
chris58
Hallo !
Danke für Eure Zeit. Ich habe das nun nach langem hin und her so gelöst.
Ich hoffe es treten keine weiteren Fragen auf.
Danke nochmal
chris58

Sub Add()
Cells(Rows.Count, 7).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "=SUM(R44C2+RC[-1])"
End Sub
Anzeige
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
09.02.2025 10:18:07
GerdL
Hallo Chris,
du kannst hier auf Select verzichten. 
Cells(Rows.Count, 7).End(xlUp).Offset(1).FormulaR1C1 = "=SUM(R44C2+RC[-1])"

Gruß Gerd
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
09.02.2025 13:51:35
chris58
Hallo Gerd !
Herzlichen Dank - habe nun dein Teil genommen. Danke
chris58
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 17:20:01
JoWE
sorry für die Spalte G muss es so lauten
=AGGREGAT(14;4;(G52:G500>"")*ZEILE(G52:G500);1)+1
Anzeige
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 17:29:54
BoskoBiati
Hi,

wenn es denn in 2003 schon AGGREGAT gab, was ich für unwahrscheinlich halte!

Gruß

Edgar
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 17:41:48
JoWE
ja! Stimmt leider - hatte ich glatt übersehen :=)
Hast Du eine andere Idee?
AW: Beginnend mit G52 - dann nächste freie Zelle G53 usw.
08.02.2025 20:45:54
BoskoBiati
Hi,

ohne Datei schwierig. 

=KKLEINSTE(WENN(G2:G52="";ZEILE(G2:G52));1)

=VERWEIS(9;1/(G2:G52>"");ZEILE(G2:G52)+1)


Gruß

Edgar
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum