Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summenformel mit VBA

Summenformel mit VBA
09.05.2008 15:29:00
Larissa
Hallo,
wieder stehe ich vor einem Problem:
Ich übertrage per VBA eine Tabelle mit 4 Spalten auf ein neues Tabellenblatt und lösche dann alle Formeln.
Jetzt möchte ich, dass unterhalb der 4. Spalte eine Formel mit der Summe von dieser Tabelle generiert wird.
Danach wird wieder eine neue Tabelle darunter eingefügt, wo wieder die Formel mit der Summe unterhalb der 4. Spalte stehen sollte.
Mit dem Makrorekorder sieht die Formel einfach so aus:
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
Die Tabellen sind immer unterschiedlich lang. Wie kann das funktionieren?
Vielen Dank für Eure Hilfe,
Larissa

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeige bitte mal den vorhandenen Code o.w.T
09.05.2008 15:32:00
Reinhard

AW: Zeige bitte mal den vorhandenen Code o.w.T
09.05.2008 15:47:00
Larissa
ok, ich habe die Tabelle mal hochgeladen:
https://www.herber.de/bbs/user/52270.xls
In das blaue Feld sollte eine Summenformel per VBA eingetragen werden und in das grüne muss dann eine Formel mit dem Umrechnungskurs aus dem gelben Feld stehen, damit dort der EUR Betrag steht. Das wäre dann meine nächste Aufgabe.
Das Problem ist, dass jede Tabelle unterschiedlich lang ist. D.h. nach diesem Prozess wird wieder eine neue Tabelle eingefügt für ein neues Land.
Die Markierung steht nach dem letzten Makro genau so, wie sie jetzt ist. Vielleicht gibt es ja ein Makro, dass in die aktive Zelle die Summenformel aus der Markierung setzt. Das wäre super.
Lieben Gruß,
Larissa

Anzeige
Datei kam an, wo bitte ist der Code? :-) o.w.T.
09.05.2008 15:52:30
Reinhard

Danach frage ich ja ;-)
09.05.2008 15:59:51
Larissa
Ich suche nach dem VBA-Code, der in die ActivCell eine Summenformel setzt.
Die Tabellen sind immer unterschiedlich lang, deshalb kann ich nicht sagen, immer 7 Schritte nach oben oder so.
Lieben Gruß,
Larissa

AW: Danach frage ich ja ;-)
09.05.2008 16:32:00
Tino
Hallo Larissa,
versuche es mal hiermit.

Sub SummeFormel()
Dim Zelle As Range, A As Long, Adresse As String
For A = 1 To Application.WorksheetFunction.CountIf(Columns("A:A"), 1)
If A = 1 Then
Set Zelle = Columns("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
Else
Set Zelle = Zelle.FindNext(Zelle)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
End If
Next A
End Sub


Gruß
Tino

Anzeige
AW: Danach frage ich ja ;-)
09.05.2008 16:46:25
Larissa
Hallo Tino,
schön von Dir zu hören ;-)
Bei einer Tabelle funktioniert es, wenn aber ein weiteres Land dazu kommt, nicht mehr.
Da ist noch irgendwo der Wurm drinnen.
Tabelle nochmal mit Makro hochgeladen:
https://www.herber.de/bbs/user/52271.xls
Lieben Gruß und vielen Dank,
Larissa

AW: Danach frage ich ja ;-)
09.05.2008 16:52:00
Tino
Hallo,
habe mal mit mehreren Tabellen getestet, die FindNext funktionierte nicht sauber warum weis ich auch nicht.
Wen er die nicht mag machen wir es eben so.

Sub SummeFormel()
Dim Zelle As Range, A As Long, Adresse As String
For A = 1 To Application.WorksheetFunction.CountIf(Columns("A:A"), 1)
If A = 1 Then
Set Zelle = Columns("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
Else
Set Zelle = Columns("A:A").Find(What:="1", After:=Zelle, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
End If
Next A
End Sub


Gruß
Tino

Anzeige
mit Range bei FindNext
09.05.2008 17:04:00
Tino
Hallo,
hab es gefunden, man muss mit Range arbeiten damit FindNext Funktioniert.

Sub SummeFormel()
Dim Zelle As Range, A As Long, Adresse As String
For A = 1 To Application.WorksheetFunction.CountIf(Columns("A:A"), 1)
If A = 1 Then
Set Zelle = Range("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
Else
Set Zelle = Range("A:A").FindNext(After:=Zelle)
Adresse = Range(Zelle, Zelle.End(xlDown)).Offset(0, 4).Address
Zelle.End(xlDown).Offset(1, 4).Formula = "=SUM(" & Adresse & ")"
End If
Next A
End Sub


Gruß
Tino

Anzeige
Funktioniert Erstklassig !!!
09.05.2008 17:05:44
Larissa
Lieber Tino,
das ist ja mal wieder fantastisch, wie Du das immer hinbekommst.
Jetzt spielt die blöde Markierung gar keine Rolle mehr - Einfach Super.
Vielen Dank und ganz liebe Grüße,
Larissa

zu
09.05.2008 17:18:00
zu
zu

Rüffel
09.05.2008 17:20:00
Tino
Hallo,
muss mir selbst einen Rüffel geben, bei FindNext muss ich natürlich auch den Suchbereich angeben!
Na ja bevor ich kritisiert werden, gebe ich mir den Rüffel lieber selbst.
Gruß
Tino

Sollen immer nur 7 Zeilen summiert werden ?
09.05.2008 15:37:51
NoNet
Hallo Larissa,
ich habe es nicht ganz verstanden : Funktioniert das Makro wie gewünscht oder nicht ?
Sollen also IMMER GENAU 7 Zeilen addiert werden ?
Kopierst Du wirklich 4 SPALTEN (also z.B. Zahlen aus A1:D1) oder etwa doch 4 ZEILEN (also z.B. A1:A4) ?
Schau Dir zum besseren Verständnis dieser Funktion bzw. R1C1-Schreibweise mal folgenden Beitrag im Spotlight-Forum an :
http://spotlight-wissen.de/archiv/message/231967.html
Gruß, NoNet
Anzeige

167 Forumthreads zu ähnlichen Themen

Summenformel Zellbezüge markieren
Christian

Hi Leute,
heute möchte ich eine Frage stellen die mich schon eine Zeit lang beschäftigt, für die ich aber leider selber noch keine Antwort gefunden habe.
Ich habe ein Registerblatt in dem einige "Summen-Formeln" stehen, die auf Zellbeüge in anderen Registerblättern (alle in der selben A...
08.09.2008 08:38:00
Thread-ID: 1008042
6 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Summenformel ändert sich beim Löschen
Manu

Hallo,
ich will von Zeile 10 die ganze Spalte aufsummieren. bis Zeile 9 sind die Zeilen gesperrt.
Meine Formel lautet: =Summe(A10:A65000)
Problem nun, wenn ich in diesem Bereich eine Zeile lösche wird aus 65000 - 64999. Gibts da was, wie man das verhindern kann und es bei 65000 ble...
06.01.2009 15:26:00
Thread-ID: 1037256
9 Beiträge
Anzeige
Makro mit Ordnerfunktion und Summenformel
joop

Hallo Liebe VBA Profis,
Ich hätte hier ein Excel Problem, welches wahrscheinlich auch schon öfter besprochen wurde, leider finde ich dazu nichts. Ich bin also auch für links super dankbar.!!!
Sachverhalt:
Gegeben ist ein Datensatz welcher durch eine Abteilungskennziffer in der erste...
10.06.2009 10:27:21
Thread-ID: 1080368
6 Beiträge
Dynamsiche Summenformel
wolfman

Hallo und einen schönen guten Abend!
Habe folgendes Problem:
Ich möchte in einer Zeile Zellen addieren, z.B. Summe(a10:a15). Dabei kenne ich den Namen der letzen Zelle (A15), die 1.Zelle (a10) soll errechnet werden durch eine Variable ( also hier 5 Spalten zurück)
Gibt es dafür ein...
05.10.2009 20:45:13
Thread-ID: 1107343
7 Beiträge
Summenformel auf VBA umschreiben
Martin

Hallo,
folgende Formel möchte ich gerne für VBA schreiben:
=SUMMENPRODUKT((Geschlecht=A2)*(Endzeit<B2))+1
So geht es mit VBA:
MsgBox [SumProduct((Geschlecht = A2) * (Endzeit MsgBox Evaluate("SumProduct((Geschlecht = A2) * (Endzeit ("Geschlecht" und "Endzeit" sind benannte...
07.10.2009 19:33:12
Thread-ID: 1107979
11 Beiträge
SUMMENFORMEL mit VBA einfügen
Peter

Guten Tag
Ich möchte mit VBA eine Summenformel einfügen.
Selektiert ist irgend eine Zelle in der Spalte H (z.B. H35).
Nun möchte ich in Zelle H35 eine Summenformel einfügen, die den Bereich von H2 bis H34 berücksichtigt.
Wenn H100 selektiert ist, soll die Summenformel H2 bis H99...
30.12.2009 10:14:36
Thread-ID: 1126356
6 Beiträge
bei Zeile einfügen per VBA Summenformel anpassen
Klaus

wie kann ich erreichen, dass eine Summenformel im Tabellenblatt z.B. Zelle A1: '=Summe(A2:A10)' nach dem einfügen einer Zeile nach der 10ten Zeile sich in '=Summe(A2:A11)' ändert!
Für den Fall, dass die Summe unter der Liste steht hab ich hier im Forum mal eine geniale Lösung gelesen:=SUMME(...
12.04.2002 17:43:41
Thread-ID: 112908
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
4
6
8
5
5
6
10
5
10
2
4
1
5
4
2
8
14
5
2
1
3
2
6
5