Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA

VBA
02.12.2005 11:06:53
Oli
https://www.herber.de/bbs/user/28893.xls
Hi,
bei der anliegenden Tabelle, werden die Daten von TB"Einnahmen 2005" auf TB "1" kopiert. Anschließend wird im TB "1" einige funktionen ausgeführt z.B. Summe, und zwar immer in der letzten Zeile. Jetzt habe ich das Problem, dass wenn ich in TB "Einnahmen 2005" eine neue Zeile einfüge, diese zwar richtig kopiert wird, aber leider die Summe nicht um eine Zeile weiter nach unten verschoben wird sondern an gleicher Stelle stehen bleibt. Kann mir jemand helfen?
Kann es sein, das meine Wenn-Formel nur einmal ausgeführt wird, und dann beim hin und her springen nicht mehr?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA
02.12.2005 11:16:42
Galenzo
Formel in D62 nicht SUME(..), sondern dynamisch:
=SUMME(BEREICH.VERSCHIEBEN(D1;0;0;ZEILE()-1))
Viel Erfolg!
AW: VBA
02.12.2005 11:47:04
Oli
Bis jetzt hatte ich das ja so gemacht:
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=IF('Einnahmen 2005'!RC[-1]=""LVGA Magdeburg"",750,'Einnahmen 2005'!RC*'Abrechnung Anlage '!R2C7/100)"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D" & Cells(Rows.Count, 4).End(xlUp).Row), Type:=xlFillDefault
ActiveCell.FormulaR1C1 = _
"=IF('Einnahmen 2005'!RC[1]="""",""nicht bezahlt"",IF('Einnahmen 2005'!RC[-1]=""LVGA Magdeburg"",750,'Einnahmen 2005'!RC*'Abrechnung Anlage '!R2C7/100))"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D" & Cells(Rows.Count, 4).End(xlUp).Row), Type:=xlFillDefault
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Application.Sum(Range(Cells(4, 4), Cells(Rows.Count, 4).End(xlUp)))
Verstehe ehrlich gesagt jetzt nicht wie ich das ändern muss!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige