Total einfügen

Forumthread: Total einfügen

Total einfügen

Markus

Guten Tag,
ich habe folgendes Problem und finde keine Lösung.
Aus einem Fremd-Programm füge ich Daten in eine Tabelle.
( die Mappe habe ich schon wegen der Formatierung als Vorlage gespeichert,
dort würde ich auch das Makro ablegen).
Nach dem Einfügen soll ein Makro gestartet werden, dass folgendes kann:
Multiplikation von Menge (Spalte E) X Preis (Spalte F) in Spalte (G).
Die Formeln sollen ab Zeile 6 gefüllt werden bis zum Schluss.
Am Ende der Tabelle soll die Summe stehen in der Spalte G und "Total Betrag" in der Spalte B.
Möglichst eine Zeile auslassen zwischen Total-Zeile und letzter Zeile.
Hoffentlich ist das nicht zu schwierig.
Danke für Makro.
Markus

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Total einfügen

Henrik
AW: Total einfügen

Markus
+Zusatzzahl :)

Henrik

AW: Total einfügen

19.08.2011 14:53:35

Henrik

Hallo Markus,
hier mal verschiedene Lösungswege.
Durch entfernen der Häkchen ' vor den Codezeilen kannst du die unterschiedlichen Ergebnisse anschauen.

Sub Multi()
Dim LetzteZeile As Long, StartZeile As Long, zae1 As Long
Dim Ergebnis, Menge, Preis
With ActiveSheet
StartZeile = 2
LetzteZeile = .Cells(Rows.Count, "E").End(xlUp).Row
' LÖSUNG A
' Schreibt die Formel in die Spalte G
'.Range(.Cells(StartZeile, "G"), .Cells(LetzteZeile, "G")).FormulaR1C1 = "=RC[-2]*RC[-1] _
' LÖSUNG B
' oder schreibt das Ergebnis in die Spalte G, Zeile für Zeile
' Variante 1
Set Ergebnis = .Range(.Cells(StartZeile, "G"), .Cells(LetzteZeile, "G"))
Set Menge = .Range(.Cells(StartZeile, "E"), .Cells(LetzteZeile, "E"))
Set Preis = .Range(.Cells(StartZeile, "F"), .Cells(LetzteZeile, "F"))
For zae1 = 1 To Ergebnis.Rows.Count
Ergebnis(zae1) = Menge(zae1) * Preis(zae1)
Next zae1
' Variante 2
'For zae1 = StartZeile To LetzteZeile
'.Cells(zae1, "G") = .Cells(zae1, "E") * .Cells(zae1, "F")
'Next zae1
.Cells(LetzteZeile + 2, "G").Formula = "=SUM(G" & StartZeile & ":G" & LetzteZeile & ")"
.Cells(LetzteZeile + 2, "B") = "Total Betrug"
End With
End Sub

Wäre es aber nicht einfacher, wenn du einmal in Zelle G2 die Formel =E2*F2 schreibst und dann einfach auf das kleine PlusZeichen rechts unten von der Zelle Doppelklickst.
Dann noch schnell TotelBetrug eintragen und die Summe ermitteln fertig.
Gruß
Henrik

AW: Total einfügen

19.08.2011 15:11:56

Markus

Hallo Henrik,
echt genial.
Natürlich das ganze habe ich bis jetzt so gemacht, wie von Dir beschrieben.
Aber diesen Job führe ich pro Woche ca 80 Mal durch.
Dann lohnt sich halt ein solches Makro.
Der liebe Gott möge Dir für Deine Arbeit 6 Richtige im Lotto bescheren.
Markus

+Zusatzzahl :)

19.08.2011 15:16:25

Henrik

Hallo Markus,
da bist du jetzt aber ein bischen geizig ;)
Zusatzzahl muss auch drin sein, sonst bringst ja nix mehr.
Aber bitte gern und thx für Rückmeldung.
Gruß
Henrik

Beliebteste Forumthreads (12 Monate)

Forumthread: Total einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread