Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1224to1228
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
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige