Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1204to1208
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
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro über Summenverteilung

Makro über Summenverteilung
addi23
Hallo Zusammen,
ich möchte eine Summenaufteilung die ich derzeit manuell mit einem "sverweis" und einer normalen Multiplikation druchführe in ein Makro packen, dazu benötige ich Eure Hilfe.
Die Spalten A, B, D, E und F sind gegeben.
In Spalte G möchte ich nun mit sverweis den entsprechenden Wert aus der Matrix der Spalten A und B wiedergeben, um im Anschluss in Spalte H das Produkt aus Spalte F und Spalte G zu bilden.
Hierzu hätte ich gerne ein Makro, welches die Befehle verbindet.
Anmerkung: die Anzahl der Zeilen auch mit unterschiedlichen Kunden und Übergeordneten Kunden ist variabel. I.d.R. sind es auch viel mehr Zeilen, das Beispiel soll nur das Prinzip erklären.
Ich habe es auch schon mal mit einer Makroaufzeichnung versucht, aber leider sind meine Kenntnisse nicht so ausgereift, das ich die darin fixen Zellen, bzw. Spalten und Zeilendaten sozusagen auf "unbegrenzt" setzen kann.
Könnt Ihr mir hierbei bitte behilflich sein?
Vielen vielen Dank vorab.
Gruß, addi23
https://www.herber.de/bbs/user/74081.xls

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro über Summenverteilung
23.03.2011 16:23:52
Rudi
Hallo,
so? 
Sub Formeln()
With Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp))
.Offset(, 3).FormulaR1C1 = _
"=vlookup(RC[-3],C1:C2,2,0)"
.Offset(, 4).FormulaR1C1 = _
"=RC[-2]*RC[-1]"
End With
End Sub

oder so? 
Sub Formeln()
With Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp))
.Offset(, 3).FormulaR1C1 = _
"=vlookup(RC[-3],C1:C2,2,0)*RC[-1]"
End With
End Sub

Gruß
Rudi
AW: Makro über Summenverteilung
23.03.2011 16:39:20
addi23
Hallo Rudi,
das ist super so habe ich mir das vorgestellt, kann man das auch noch um eine "sumif" Formel erweitern,
um die ermittelten Beträge in Spalte H in Summe dem "Übergeordneten Kunden" in Spalte E zuzuordnen,
sodass dann darunter oder daneben eine kleine Tabelle erscheint:
Ü.Kd. Betrag
1A 55,83
2A 375,79
3A 612,54
Das wäre dann absolut der Burner!!!
Vielen Dank.
Gruß, addi23
Anzeige
der absolute Burner
23.03.2011 21:38:12
Rudi
Hallo,
try this: 
Sub Formeln_und_Summen()
Dim oKd As Object, lRow As Long
Set oKd = CreateObject("scripting.dictionary")
oKd("Ü.Kd.") = "Betrag"
With Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp))
.Offset(, 3).FormulaR1C1 = _
"=vlookup(RC[-3],C1:C2,2,0)*RC[-1]"
End With
For lRow = 2 To Cells(Rows.Count, 5).End(xlUp).Row
oKd(Cells(lRow, 5).Value) = Application.SumIf(Columns(5), Cells(lRow, 5), Columns(7))
Next
Cells(1, 9).Resize(oKd.Count) = Application.Transpose(oKd.keys)
Cells(1, 10).Resize(oKd.Count) = Application.Transpose(oKd.items)
End Sub

Gruß
Rudi
Anzeige
AW: der absolute Burner
24.03.2011 12:01:25
addi23
Hallo Rudi,
auch das ist wieder der absolute Hammer - funktioniert so wie ich mir das vorgestellt habe,
eine letzte Frage...in meinem Test Excel Sheet hat der Inhalt immer in der Zeile 1 (Zelle A1) begonnen.
Kann man das auch noch variabel gestallten?
Hintergrund ist der, das ich mir täglich diverse Sheets erstellen lasse, die zwar gleich aufgebaut sind allerdings vom Umfang her unterschiedlich, d.h. mal sind es 80 Zeilen, mal sind es 20 und mal 150 etc...
Aus diesem Datenpool erstelle ich dann die Zahlen und Werte, die ich in dem Test Excel Sheet hinterlegt habe. Somit kann diese Datenmenge mal in Zelle A82 oder A22 oder A150 beginnen.
Kann man das Marko so stricken, das es erkennt wo es loslegen soll?
Besten Dank und viele Grüße,
addi23
Anzeige
unverständlich owT
24.03.2011 21:50:49
Rudi

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge

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
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2