Makro zur Datenzusammenfassung

Ernst Fischer
Sub Auswertung() 

    Application.ScreenUpdating = False 

'Nummern aus Kostentabelle holen: 
    Sheets("Kosten").Select 
    Range("C11:C5010").Select 
    Selection.Copy 
    Sheets("Ueb").Select 
    Range("C11").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 

'Kostensätze holen: 
    Sheets("Kosten").Select 
    Range("E11:E5010").Select 
    Selection.Copy 
    Range("A1").Select 
    Sheets("Ueb").Select 
    Range("F11").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 

'Daten aus Mengentabelle holen: 
    Sheets("Mengen").Select 
    Range("D11:F50010").Select 
    Selection.Copy 
    Range("A1").Select 
    Sheets("Ueb").Select 
    Range("C5011").Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 

'Gesamten Datenblock aufsteigend C11 sortieren: 
    Range("C11:F55010").Select 
    Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, _ 
    Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ 
    Orientation:=xlTopToBottom 
    Application.CutCopyMode = False 

'Einfügeblock für die Formeln herstellen:
    Range("C11:C55010").Select
    Selection.Copy
    Range("H11:K11").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

'Formeln einsetzen, Werte fixieren:
    Sheets("Fo").Select
    Range("H11:K11").Select
    Selection.Copy
    Sheets("Ueb").Select
    Range("H11").Select
    Selection.CurrentRegion.Select
    Selection.PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

'Gesamten Datenblock aufsteigend I11 sortieren:
    Range("C11:K55010").Select
    Selection.Sort Key1:=Range("I11"), Order1:=xlAscending, _
    Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom
    Application.CutCopyMode = False

'Zusätzliche Textkennung zur Sicherheit:
    Range("I10").Select
    ActiveCell.FormulaR1C1 = "a"

'Textkonstanten entfernen:
    Range("I10:I55010").Select
    Selection.SpecialCells(xlCellTypeConstants, 2).Select
    Selection.ClearContents
    Application.CutCopyMode = False

'Unten 2 Zeilen einfügen:
    Range("I55110").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Application.CutCopyMode = False

'Untere Blöcke entfernen:
    ActiveCell.Offset(2, -6).Select
    Selection.CurrentRegion.Select
    Selection.ClearContents
    Application.CutCopyMode = False
    ActiveCell.Offset(0, 5).Select
    Selection.CurrentRegion.Select
    Selection.ClearContents
    Application.CutCopyMode = False
    ActiveCell.Offset(0, 2).Select
    Selection.CurrentRegion.Select
    Selection.ClearContents
    Application.CutCopyMode = False

'Datenblöcke aufschließen:
    Range("J11:J55012").Select
    Selection.Copy
    Range("E11").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("H11:H55012").Select
    Selection.Copy
    Range("F11").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("K11:K55012").Select
    Selection.Copy
    Range("G11").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

'Blöcke rechts entfernen:
    Range("H11:K55012").Select
    Selection.ClearContents
    Application.CutCopyMode = False

'Formate einsetzen:
    Sheets("Fo").Select
    Range("C25:G25").Select
    Selection.Copy
    Range("A1").Select
    Sheets("Ueb").Select
    Range("C11").Select
    Selection.CurrentRegion.Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

'Resultate umsetzen:
    Selection.Copy
    Sheets("Tab1").Select
    Range("C11").Select
    ActiveSheet.Paste

'Überleitung löschen:
    Sheets("Ueb").Select
    Range("C11:G5010").Select
    Selection.Clear
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("Tab1").Select
    Range("A1").Select
    Application.ScreenUpdating = True

End Sub




letzte Änderung Ernst Fischer am 11.01.2025

Excel-Tools

Bleiben Sie auf dem Laufenden mit unserem Newsletter

Tragen Sie sich für den kostenfreien und unverbindlichen Newsletter von Controlling-Portal.de ein und erhalten Sie jeden Monat aktuelle Neuigkeiten für Controller. Wir informieren Sie über neue Fachartikel, über wichtige News, aktuelle Stellenangebote, interessante Tagungen und Seminare. Wir empfehlen Ihnen spannende Bücher und geben Ihnen nützliche Excel-Tipps. Verpassen Sie nie mehr wichtige Diskussionen im Forum und stöbern Sie in Software-Angeboten, die Ihnen den Arbeitsalltag erleichtern. Beispiel-Newsletter >>

Jetzt Newsletter gratis erhalten

Premium-Stellenanzeigen



Eigenen Fachbeitrag veröffentlichen? 

Sie sind Autor einer Fachpublikation oder Entwickler einer Excel-Vorlage? Gern können Sie sich an der Gestaltung der Inhalte unserer Fachportale beteiligen! Wir bieten die Möglichkeit Ihre Fachpublikation (Fachbeitrag, eBook, Diplomarbeit, Checkliste, Studie, Berichtsvorlage ...) bzw. Excel-Vorlage auf unseren Fachportalen zu veröffentlichen bzw. ggf. auch zu vermarkten. Mehr Infos >>

Kommentar zum Fachbeitrag abgeben

Nur registrierte Benutzer können Kommentare posten!

Neueste Stellenangebote

Sie möchten über neu eingehende Stellenangebote automatisch informiert werden? Dann können Sie unseren kostenfreien Jobletter abonnieren. Mit diesem erhalten Sie alle 14 Tage die aktuellsten Stellenanzeigen und weitere Arbeitsmarkt-News. Jobletter jetzt abonnieren >>

Über 3.000 Artikel und Vorlagen

Community_Home.jpg






Werden Sie Mitglied in einer großen Controller-Community (über 12.000 Mitglieder!) und erhalten Zugriff auf viele Inhalte und diskutieren ihre Fragen im Controlling-Forum.

Sehen Sie hier die neuesten Fachbeiträge >>

Eine neue Stelle?

Mit dem Studium fertig, Umzug in eine andere Region, Aufstiegschancen nutzen oder einfach nur ein Tapetenwechsel? Dann finden Sie hier viele aktuell offene Stellen im Controlling.
Zu den Stellenanzeigen >>

Zukunft_Aussicht_Menschen_Fernglas_pm_prometeus_315.jpg

Sie suchen einen Controller? Mit einer Stellenanzeige auf Controlling-Portal.de erreichen Sie viele Fachkräfte. weitere Informationen >>

KLR-Begriffe von A bis Z

A-C   D-F   G-I   J-L   M-R   S-U   V-Z 

Testen Sie ihr Wissen mit unseren Aufgaben und Lösungen im Bereich Kostenrechnung >>

Sie haben eine Frage?

Ratlos_Verwirrt_pm_RainerPlendl_400x275.jpg

Nutzen Sie kostenfrei das Forum für Controller und und diskutieren ihre Fragen zu Controlling-Themen.

Riesen- Ressource

Auf Controlling-Portal.de sind bereits über 1.800 Fachbeiträge veröffentlicht und ständig kommen neue dazu.

Zu den neuesten Fachbeiträgen >>
Zu den derzeit meistgelesenen Fachbeiträgen >>
Zu den Premium-Beiträgen >>

Sie möchten auch einen Fachbeitrag hier veröffentlichen? Dann erhalten Sie hier weitere Informationen >>

Amüsante Glosse

Zweifel_Denken_Frau_Brille_pm_luckyraccoon_400x300.jpg

Erfolgreiche Unternehmer einer Kleinstadt treffen sich regelmäßig im örtlichen Golfclub und diskutieren mit Ihrer Lieblingskellnerin und BWL-Studentin Pauline betriebswirtschaftliche Probleme. Amüsant und mit aktuellem Bezug geschrieben von Prof. Peter Hoberg.

Zur Serie "Neulich im Golfclub" >>

Sie möchten sich weiterbilden?

mann-treppe-up-karriere_pm_pressmaster_B10716345_400x300.jpg

In unserer Seminar-Rubrik haben wir einige aktuelle Seminar- und Kurs-Angebote für Controller, u.a. auch Kurse zum Controller / IHK zusammengestellt.

Talentpool - Jobwechsel einfach!

HR-Bewerbung-Digital_pm_yupiramos_B123251108_400x300.jpg

Tragen Sie sich kostenfrei im Talentpool auf Controlling-Portal.de ein und erhalten Jobangebote und Unterstützung beim Jobwechsel durch qualifizierte Personalagenturen.
Ebook_DG_ISBN_978-3-00-050814-1_290px.png

eBook: Erstellung einer integrierten Finanz- und Liquiditätsplanung mit Excel

Dieses Buch zeigt praxisnah und verständlich, wie Sie mit Excel eine integrierte, investoren- und bankenkonforme Finanz- und Liquiditätsplanung aufbauen. Die Notwendigkeit für einen solchen professionellen Finanzplan ergibt sich nicht nur in Gründungs- und Wachstumsphasen, z.B. bei der Kapitalbedarfsermittlung, Businessplanerstellung und Investorenansprache, sondern auch als Steuerungsinstrument im laufenden Betrieb sowie in Insolvenz- und Sanierungssituationen.

Jetzt hier für 26,75 EUR downloaden >>

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>
LI-In-Bug.pngBleiben Sie auf dem Laufenden und informieren sich über neue Fachbeiträge, Excel-Tools und Jobangebote auf unserer LinkedIn-Seite >>

Stellenanzeigen

Leitung (m/w/d) Finanzbuchhaltung
Das Klinikum Freising ist ein in der historischen Universitäts­stadt Freising bei München gelegenes Kranken­haus der Grund- und Regel­ver­sorgung in kommunaler Träger­schaft sowie akademisches Lehr­kranken­haus der Technischen Universität München. In elf medizinischen Ab­teilungen mit 335 Betten ... Mehr Infos >>

Kreditorenbuchhalter (m/w/d)
Als SHK Deutschland sind wir eine seit über 150 Jahren am Markt erfolgreich tätige und auf Expansion ausgerichtete Unternehmensgruppe der Sanitär-, Heizungs- und Lüftungsbranche. Zusammengewachsen aus drei erfolgreichen Familienunternehmen sind wir heute Teil der internationalen BME-Group (Bu... Mehr Infos >>

Controller (m/w/d)
Zur ExtraHolding GmbH gehören unter anderen die ExtraEnergie GmbH, ein unabhängiger Anbieter von Ökostrom und klimaneutralem Gas, und die eg factory GmbH, die das gesamte operative Geschäft für die ExtraEnergie GmbH betreibt. Für unseren Standort in Monheim am Rhein suchen wir einen: Mehr Infos >>

Kaufmännischer Mitarbeiter im Rechnungswesen (m/w/d) (mit der Perspektive zur stellvertretenden kaufmännischen Leitung)
Die GROTH-GRUPPE und ihre Baugesellschaften sind Komplettanbieter für das Bauen im Norden. Regionale Präsenz verbunden mit der Leistungsfähigkeit der gesamten Gruppe ist unsere Stärke. Wir erbringen mit über 400 Mitarbeitern Bauleistungen für jeden Bedarf aus einer Hand. Mehr Infos >>

Finanzbuchhalter*in
Das Max-Planck-Institut für Gravitationsphysik (Albert-Einstein-Institut) ist die weltweit größte Forschungs­einrichtung zur Allgemeinen Relativitäts­theorie und darüber hinausgehenden Themen. Das Institut befindet sich in Potsdam‑Golm und in Hannover. Mehr Infos >>

Bilanzbuchhalter (m/w/d)
Die WIRTGEN GROUP ist ein international tätiger Unternehmensverbund der Baumaschinenindustrie. Zur WIRTGEN GROUP gehören die traditionsreichen Produktmarken WIRTGEN, VÖGELE, HAMM, KLEEMANN, BENNINGHOVEN und CIBER mit Werken in Deutschland Brasilien, China und Indien. Die weltweite Kundenbetreuung... Mehr Infos >>

Sachbearbeitung (w/m/d) für Bundeshaushalt und Controlling (w/m/d)
Die Bundesanstalt für Immobilienaufgaben (BImA) ist das Immobilienunternehmen des Bundes, das die immobilienpolitischen Ziele der Bundesregierung unterstützt und für fast alle Bundesbehörden die notwendigen Flächen und Gebäude zur Verfügung stellt. Dementsprechend sind wir in ganz Deutsch... Mehr Infos >>

Teamleitung Finanzen (m/w/d)
Das Max-Planck-Institut für Geoanthropologie (MPI‑GEA) in Jena wurde im Sommer 2022 gegründet und ist ein dynamisch wachsendes, hochgradig internationales und interdisziplinär ausgerichtetes Forschungs­institut. Es besteht aktuell aus drei Abteilungen sowie mehreren Forschungs­gruppen, ze... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

Controlling-Portal auf:
Facebook >> und  Linkedin >>

Veranstaltungs-Tipp

Confex_Online-Banner_290px.jpg
Lernen Sie von unseren Experten alle Tricks zum Thema Power BI.
  • Erfahrene Trainer mit fundiertem Power BI Wissen
  • Praxisnahe Beispiele und Übungen für sofortige Anwendung
  • Kleine Gruppen für maximale Interaktion
Melden Sie sich jetzt an, es gibt noch freie Plätze.

JOB- TIPP

Karriere_290px.png
Sind Sie auf der Suche nach einer neuen Herausforderung? Interessante Stellenangebote für Controller finden Sie in der Controlling-Portal Stellenbörse. Immer auf dem Laufenden bleiben und neue Jobangebote mit dem Jobletter automatisch erhalten? Zur Jobletter-Anmeldung >>

Excel-Tool Bilanz- und Erfolgsanalyse

Bilanzanalyse-Tool 290px.jpg
Aus Bilanz und G+V werden alle gängigen Bilanz- und Erfolgskennzahlen errechnet und versucht, die Bewertung der Zahlen mit den Ampelfarben grün, gelb und rot deutlich zu machen. Die Ableitung bzw. Berechnung der Kennzahlen wird ausführlich dargestellt.

Jetzt hier für 34,- EUR downloaden >>

Excel-Tools für Controller!

Diagramme_Charts_pm_chormail@hotmail-com_B347361660_400x300.jpg

Über 500 Vorlagen direkt zum Download. Verschaffen Sie sich einen Überblick >>

Software-Tipps

jabatix_logo_290px.jpg
Jabatix NC ist eine Rechenmaschine, als add-on für Excel, für Controller in kleinen und mittleren Unternehmen. Sie führt komplexe Berechnungen durch und stellt die Ergebnisse in EXCEL bereit – ohne lange Einarbeitung. Mehr Informationen >>

Diamant.PNG
Diamant/3 bietet Ihnen ein Rechnungswesen mit integriertem Controlling für Bilanz- / Finanz- und Kosten- / Erfolgs- Controlling sowie Forderungsmanagement und Personalcontrolling. Erweiterbar bis hin zum unternehmensweiten Controlling. Mehr Informationen >>


Weitere Controlling-Software-Lösungen im Marktplatz >>

Excel-Vorlage SWOT Analyse Dashboard

SWOT-Analyse-mit-Excel.png
In dieser Excel-Vorlage können Sie 4 verschiedene Charts individuell pro Bereich der SWOT Analyse auswählen. Wenn diese zum Einsatz kommt, ist es sehr hilfreich, professionelle Business-Charts zu erstellen, um die jeweilige Situation besser darzustellen.
Mehr Informationen >>

ETF-Rechner

Der ETF-Rechner vergleicht die mögliche Wertenwicklung von ausschüttenden und thesaurierenden Aktien-ETFs zu den eingegebenen Annahmen. Das Excel-Tools funktioniert wie ein Zinseszinsrechner, optimiert auf ETFs!
Mehr Informationen >>

RS Controlling-System für EÜR inkl. Liquiditätsplanung

RS Controlling System.png
Mit dem RS-Controlling-System für Einnahme-Überschuss-Rechnung steuern Sie erfolgreich ihr Unternehmen. Dieses Tool ermöglicht es Ihnen ihr Unternehmen zu planen, zu analysieren und zu steuern. Durch den Soll-/Ist-Vergleich für Ihre Einnahmen-Überschuss-Rechnung können Sie gezielt  Abweichungen analysieren. 
Mehr Informationen >>

Weitere über 400 Excel-Vorlagen finden Sie hier >>

Titel mit Banner Ebook Controlling-Instrumente_Kristoffer-Ditz.jpg

E-Book Controlling-Instrumente

Der erfahrene Controller und Excel-Coach Kristoffer Ditz stellt in seinem E-Book "Controlling-Instrumente" mit ebenso einfachen wie hilfreichen Tools für alle Controller-Lebenslagen vor. Preis 8,90 EUR hier bestellen >>

Premium-WebinareVideo Kurs: Kennzahlen im Controlling

PantherMedia_Yuri_Arcurs200x150.jpg
Bei der Erstellung eines Kennzahlen-Cockpit, stellt sich oft die Frage, welche KPIs hier zwingend mit aufgenommen werden sollen. In diesem Online-Kurs lernen Sie Schritt für Schritt inkl. praktischer Übungsaufgaben, wie Kennzahlen im Unternehmen priorisiert und im Controlling effektiv eingesetzt werden. Zum Video-Kurs >>

Video Kurs: Controlling kompakt

Controller sind die internen Unternehmensberater im Betrieb. In diesem Controlling Kompakt-Kurs erhalten Sie mehrere Lernvideos, wie gutes Controlling funktioniert. Die Videos sind "Best-of" Auszüge aus anderen spezifischen Video-Kursen. Zum Video-Kurs >>

Video Kurs: Controlling im E-Commerce

Die Gesetze im E-Commerce sind für das Controlling anders. Die Kennzahlen müssen richtig interpretiert werden, um aus den Analysen die richtigen Maßnahmen ableiten zu können. In diesem Online-Kurs lernen Sie Schritt für Schritt, wie erfolgreiches Controlling im E-Commerce funktioniert. Zum Video-Kurs >>

Weitere Video-Kurse finden Sie hier >>

Software-Tipp

Liquiditätsplanung_Fimovi.jpgRollierende Liquiditätsplanung auf Wochenbasis. Mit der Excel-Vorlage „Liquiditätstool“ erstellen Sie schnell und einfach ein Bild ihrer operativen Liquiditätslage für die nächsten (bis zu 52) Wochen. Mehr Infos und Download >>