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!

Controlling- Newsletter

Neben aktuellen Fach- und Arbeitsmarkt-Trends für Controller und neu eingegangene Fachbeiträge, informieren wir Sie über interessante Veranstaltungen und stellen Ihnen einzelne Controlling-Tools im Detail vor.
Werden Sie jetzt monatlich über
neue Fachbeiträge, Jobs und Tools informiert! 
Zur Newsletter-Anmeldung >>

Ü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.

Bestens auf den Jahresabschluss vorbereitet – mit kostenloser Checkliste

Media-FIN_Bild_Vorarbeiten_290x 150 px.png
Befinden Sie sich in den Jahresabschlussarbeiten? Diese kostenlose Checkliste hilft Ihnen, alle Vorarbeiten im Blick zu behalten, Abläufe zu beschleunigen und Aufgaben einfach im Team zu delegieren.   

Jetzt kostenlos downloaden!

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>

Excel. Aber in schnell

CP-Webinar-roosi-3.jpg
Beschleunigen Sie Ihr Reporting: Wie Sie Excel weiterhin nutzen – aber mit AnaplanXL effizienter, konsistenter und ohne manuelle Schleifen.

Jetzt anmelden, es gibt noch freie Plätze!

Stellenanzeigen

Controller*in für Institutsfinanzierungen
Die Max-Planck-Gesellschaft zur Förderung der Wissenschaften e. V. (MPG) ist eine von Bund und Ländern finanzierte Selbstverwaltungs­organisation der Wissenschaft. Sie betreibt in gegenwärtig 85 Instituten und Forschungsstellen im In- und Ausland Grundlagen­forschung auf natur- und geiste... Mehr Infos >>

Kaufmännische Mitarbeiterin/kaufmännischer Mitarbeiter in der Finanzbuchhaltung (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 >>

Prüferin / Prüfer im Stabsbereich Innenrevision & Governance (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 >>

Sachbearbeitung externes Rechnungswesen (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 >>

Beteiligungscontroller:in
Börsennotierte Führungsgesellschaft einer mittelständisch geprägten Unternehmensgruppe mit aktuell 46 unmittelbaren Beteiligungen in den Segmenten Engineering, Infrastructure und Material Solutions, Nachhaltige Beteiligungsstrategie "Kaufen, Halten und Entwickeln", Sitz in Bergisch Glad... Mehr Infos >>

Buchhalter/-in (m/w/d)
Das Globana Village am Flughafen Leipzig/Halle besteht aus dem „Fashion-Campus“ um das MMC Mitteldeutsches Mode Center, welches mit über 200 Showrooms namhafter Modemarken und seinen Modemessen die zentrale Distributions- und Beschaffungsplattform für die Modeindustrie und den Modefachhandel in d... Mehr Infos >>

Mitarbeiter im Controlling/Financial Analyst (m/w/d)
Die WIRTGEN GROUP ist ein international führender Unternehmensverbund der Baumaschinenindustrie mit rund 9.000 Beschäftigten weltweit. Als starker Teil von John Deere und mit unseren spezialisierten Marken WIRTGEN, VÖGELE, HAMM, KLEEMANN, BENNINGHOVEN, CIBER sowie Werken in Deutschland, Brasilien... Mehr Infos >>

Controller*in für die Kosten- und Leistungsrechnung (KLR)
Die Max-Planck-Gesellschaft zur Förderung der Wissenschaften e. V. (MPG) ist eine von Bund und Ländern finanzierte Selbstverwaltungs­organisation der Wissenschaft. Sie betreibt in gegenwärtig 85 Instituten und Forschungsstellen im In- und Ausland Grundlagen­forschung auf natur- und geiste... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

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

Veranstaltungs-Tipp

it-kurse-excel-und-controlling-bei-pc-college.png
Sie sind Controller und wollen Ihre Excel oder Power-BI Kenntnisse verbessern? Dann sind unsere Excel /Power-BI Schulungen genau das Richtige für Sie! Lernen Sie, wie Sie Daten effizient analysieren, visualisieren und präsentieren können. Nutzen Sie die Vorteile von Pivot-Tabellen, Formeln, Makros und mehr. Melden Sie sich jetzt an und werden Sie zum Excel oder Power-BI Profi!  Mehr Infos >>  

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

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

Lucanet_logo.jpg
LucaNet.Financial Consolidation ist die Software für eine prüfungssichere Konsolidierung, die alle Funktionen für die Erstellung eines legalen Konzernabschlusses nach unterschiedlichen Rechnungslegungsstandards bietet.
Mehr Informationen >>

jedox-logo-250px.jpg
Jedox wird für Planung, Budgetierung, Analyse und Management-Reporting eingesetzt. Dank Excel-naher Benutzeroberfläche und ausgefeilter Dashboard- und Reporting-Funktionen genießt die Lösung eine hohe Akzeptanz im gesamten Unternehmen. Mehr Informationen >>

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

RS-Investitionsrechner

Der RS- Investitionsrechner ermittelt Ihnen den Kapitalwert oder internen Zinsfuß für Ihre Investitions- vorhaben. Zusätzlich können Sie die Rentabilität und die Amortisations- zeit Ihres Investitionsvorhabens berechnen lassen. Mehr Informationen >>

RS Plan

index_RS-Plan.jpg
Unternehmens- Planung leicht gemacht:
Erstellen Sie mit RS-Plan Ihre Unternehmensplanung professionell. Automatische Plan-GuV, Plan-Bilanz, Plan- Kapitalflussrechnung und Kennzahlen. Preis: 77,90 EUR 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 >>

Excel TOP-SellerRS Liquiditätsplanung L

PantherMedia_pannawat_B100513902_400x300.jpg
Die RS Liquiditätsplanung L ist ein in Excel erstelltes Werkzeug für die Liquiditätsplanung von Kleinunternehmen sowie Freiberuflern. Die Planung erfolgt auf Basis von veränderbaren Einnahmen- und Ausgabepositionen. Detailplanungen können auf extra Tabellenblättern für z.B. einzelne Projekte oder Produkte vorgenommen werden. 
Mehr Informationen >>

Rollierende Liquiditätsplanung auf Wochenbasis

Dieses Excel-Tool bietet Ihnen die Grundlage für ein Frühwarnsystem. Der erstellte Liquiditätsplan warnt Sie vor bevorstehenden Zahlungsengpässen, so dass Sie frühzeitig individuelle Maßnahmen zur Liquiditätssicherung einleiten können. Gerade in Krisensituationen ist eine kurzfristige Aktualisierung und damit schnelle Handlungsfähigkeit überlebenswichtig. Mehr Informationen >>

Strategie-Toolbox mit verschiedenen Excel-Vorlagen

Die Strategie-Toolbox enthält 10 nützliche Excel Vorlagen, die sich erfolgreich in der Strategie bewährt haben. Alle Tools sind sofort einsatzbereit und sind ohne Blattschutz. Damit können die Vorlagen individuell angepasst werden.
Ideal für Mitarbeiter aus dem strategischen ManagementMehr Informationen>>

Weitere über 400 Excel-Vorlagen 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 >>