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.

Kostenloses Whitepaper: Stressfrei durch die Jahresabschlussprüfung

Tipp_Haufe_Pruefungsfehler_200x150 px.png
Jetzt kostenloses Whitepaper sichern und 8 häufige Stolpersteine bei der Jahresabschlussprüfung vermeiden.   

Zum Download!

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

Buchhalter (m/w/d) Vollzeit/Teilzeit
Wir sind der erste Ansprechpartner für die Marken Volvo, Peugeot und Ford im Raum Aschaffenburg. Freuen Sie sich auf ein modernes, innovatives Autohaus und wachsen Sie mit uns! Wir bieten Ihnen: Flexible Arbeitszeiten, Ab dem ersten Tag einen unbefristeten Arbeitsvertrag, 30 Tage Urlaub, Verkürzt... Mehr Infos >>

Sachbearbeitung im Rechnungswesen
Wir, die Eisenbahner-Baugenossenschaft München-Hauptbahnhof eG, wurden 1908 gegründet. Heute bewirtschaften wir über 2.566 Wohneinheiten, 41 Gewerbeeinheiten sowie über 1.000 Garagen und Stellplätze. Wir sind stolz auf unsere lange Tradition als erfolgreiche Genossenschaft und realisieren heute a... Mehr Infos >>

Finanzbuchhalter (m/w/d) in Vollzeit
Die Handwerkskammer Wiesbaden hat mehr als 27.000 Mitgliedsbetriebe. Sie sorgt für eine gemeinsame und solidarische Vertretung der Anliegen aller Handwerkerinnen und Handwerker in Politik und Öffentlichkeit. Unter dem Motto „praxisnah und fachkundig“ bietet die Handwerkskammer maßgeschneiderte Be... Mehr Infos >>

Controller (m/w/div.) Global Business Unit
Die Intelligente Sensorsysteme Dresden GmbH (i2s) ist eine von elf opera­tiven Ein­heiten und eine von mehr als 20 Marken unter dem Dach der Amphenol Sensor Technology Group. Dabei ist i2s seit 2017 Teil der Amphenol Corporation und kann so von den Wachs­tums- bzw. Ent­wick­lungs­chancen ... Mehr Infos >>

Sachbearbeiter:in Finanzen und Controlling in der Energieforschung (Teilzeit) (w/m/d)
Forschung für eine Gesellschaft im Wandel: Das ist unser Antrieb im Forschungszentrum Jülich. Als Mitglied der Helmholtz-Gemeinschaft stellen wir uns den großen gesellschaftlichen Herausforderungen unserer Zeit und erforschen inter­disziplinär die digitalisierte Gesell­schaft, ein klima­schonende... Mehr Infos >>

Bilanzbuchhalter:in als Teamleitung (m/w/d)
Das Leibniz-Institut für Finanzmarktforschung SAFE – Sustainable Architecture for Finance in Europe – (www.safe-frankfurt.de) fördert Forschung und unabhängige Politikberatung zu allen Aspekten, die sich mit der Struktur und Funktionsweise des Finanzsystems befassen. Es verfolgt das Ziel,... Mehr Infos >>

Finanzbuchhalter (m/w/d)
Die DPG ist der innovative Dienstleister für hochwertige elektrische und nichtelektrische Betriebssicherheitsprüfungen. Unsere qualifizierten und engagierten Mitarbeitenden bieten bundesweit ein breites Prüfangebot auf Basis modernster Technologien, unterstützt durch hochwertiges Messequipment, a... Mehr Infos >>

Schleifring GmbH
In Kürze: Bei SCHLEIFRING erwartet Sie in unserem international ausgerichteten, produzierenden Unternehmen eine vielseitige Controlling-Rolle mit großem Gestaltungsspielraum. Wir freuen uns, Sie kennenzulernen. 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 >>

Kostenverfolgung Bauprojekte

Kostenverfolgung-Bauprojekte.jpg
Mit diesem einfachen Excel-Tool lässt sich die Kostenverfolgung für Bauprojekte leicht gestalten. Sie pflegen separate Listen für das Budget, Hauptaufträge, Nachträge, erwartete Kosten und Rechnungen und bekommen diese Kosten in einer Übersicht auf einem separaten Blatt nach Vergabeeinheiten und Kostengruppen zusammengefasst.

Jetzt hier für 20,- 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

QuoVadis.jpg
Der BusinessPlanner besticht seit Jahren durch seine schnelle und professionelle Umsetzung einer integrierten Unternehmensplanung. Ein besonderer Fokus liegt auf der Integration von Planbilanz und Finanzplan / Cashflow – inklusive transparentem und aussagekräftigem Reporting.
Mehr Informationen >>

Lucanet_logo.jpg
LucaNet.Planner deckt alle Anforderungen der integrierten Unternehmensplanung, des Reportings und der Analyse ab. Setzen Sie auf eine Software, die Ihnen mit maximaler Transparenz Arbeitsprozesse erleichtert. Mit wenigen Mausklicks passen Sie vorgefertigte Strukturen an Ihre Bedürfnisse an und importieren Ist-Zahlen über fertige Schnittstellen aus Ihrem Vorsystem.  Mehr Informationen >>

idl.png
Die IDL CPM Suite ist eine Software für die Unternehmenssteuerung mit integrierten Applikationen für Konzernkonsolidierung, Finanzplanung, operative Planung, Managementreporting, regulatorisches Berichtswesen und Analyse. Herausragende Usability, hohe Automatisierung und Fachlichkeit zeichnen sie aus. Mehr Informationen >>

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

Rollierende Liquiditätsplanung auf Wochenbasis

03_Liquiditaetstool.png
Dieses Excel-Tools 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 >>

Excel-Finanzplan-Tool PRO für Kapitalgesellschaften

Dieses Excel-Tool ist ein umfangreiches - auch von Nicht-Betriebswirten schnell nutzbares - integriertes Planungstool, welches den Nutzer Schritt-für-Schritt durch alle Einzelplanungen (Absatz- und Umsatz-, Kosten-, Personal-, Investitionsplanung etc.) führt und daraus automatisch Plan-Liquidität (Cashflow), Plan-Bilanz und Plan-GuV-Übersichten für einen Zeitraum von bis zu 5 Jahren erstellt.
Mehr Informationen >>

Vorlage - Formular für Investitionsplanung, Investitionsantrag

PantherMedia_Prakasit-Khuansuwan_400x299.jpg
Dieses Excel-Tool bietet Ihnen Muster-Formulare für die Steuerung von Investitionen/ Anlagenbeschaffungen in einem Unternehmen. Es sind es sind Vorlagen zu Investitionsplanung und Investitionsantrag enthalten.
Mehr Informationen >>

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

Buch-Tipp

Dashboards mit Excel im Controlling

dashboards_cover.jpgWie erstelle ich ein Tacho- oder Ampel-Diagramm? Wie kann ich Abweichungen in Tabellen ansprechend visualisieren? Das wird Ihnen hier anschaulich erklärt.

E-Book für 12,90 EUR mehr Infos >>


Begriffsverwirrung vermeiden - Eine Serie von Prof. Ursula Binder 

PantherMedia_Wavebreakmedia_ltd_400x289.jpg
Im Laufe der Zeit haben sich Fachbegriffe entwickelt, die exakt definiert sind. Jedoch sind einige Begriffe mehrdeutig, was zu vielen Missverständnissen und Fehlern führt. In dieser Serien werden einige Begriffe vorgestellt um Verwirrungen zu vermeiden.
Zur kompletten Serie >>
Weitere interessante Serien 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 >>