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

Literaturhinweise
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 Neuigkeiten für Controller und neu eingegangene Fachartikel, informieren wir Sie über interessante Literaturtipps, Tagungen , Seminarangebote und stellen Ihnen einzelne Software- Produkte im Detail vor.
Werden Sie jetzt monatlich über
neue Fachbeiträge, Controlling-Tools und News informiert! Zur Newsletter-Anmeldung >>

Über 3.000 Artikel und Vorlagen

Community_Home.jpg






Werden Sie Mitglied in einer großen Controller-Community (fast 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.500 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.

Buch-Tipp


kennzahlen.png Kennzahlen-Guide für Controller- Über 200 Kennzahlen aus Finanzen, Personal, Logistik, Produktion, Einkauf, Vertrieb, eCommerce und IT.
Jede Kennzahl wird in diesem Buch ausführlich erläutert. Neben der Formel wird eine Beispielrechnung aufgeführt. Für viele branchenneutrale Kennzahlen stehen Zielwerte bzw. Orientierungshilfen für eine Bewertung zur Verfügung. Für die genannten Bereiche hat die Redaktion von Controlling-Portal.de jeweils spezialisierte Experten als Autoren gewonnen, die auf dem jeweiligen Gebiet über umfangreiche Praxiserfahrung verfügen. 
Preis: ab 12,90 Euro Brutto mehr >>

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>
Anzeige
Excel-Vorlage: RS Controlling System

Stellenanzeigen

Risikocontroller (m/w/d) für das Risikomanagement Factoring
Die activ factoring AG mit Sitz in München ist eine Tochtergesellschaft der Raiffeisenlandesbank Oberösterreich AG, Österreichs größte und erfolgreichste Regionalbank. Wir sind einer der führenden Factoring-Dienstleister in Deutschland und auch Ansprechpartner für maßgeschneiderte Lösungen zur Fo... Mehr Infos >>

Bilanzbuchhalter / Buchhalter (w/m/d), z. B. Betriebswirt, Steuerfachwirt (w/m/d)
Die Zech-Unternehmens­gruppe­ wird von der Zech Management als zentralem Dienstleister bei ihrer Ent­wicklung unterstützt: Mit unseren über 450 Mitar­bei­terinnen und Mitar­beitern erbringen wir unterschied­liche Services - vom Rech­nungs­wesen über die IT bis zum Personalwesen. Mehr Infos >>

Finanzkoordination für Drittmittelprojekte (m/w/d)
Die Ludwig-Maximilians-Universität München ist eine der führenden Univer­sitäten in Europa mit einer über 500-jährigen Tradition. Sie steht für anspruchs­volle aka­demische Aus­bildung und heraus­ragende For­schung. Das Referat beschäftigt sich mit Drittmitteln, die eine wichtige Finanzierungs­qu... Mehr Infos >>

(Junior) Projektmanager / Prozessmanager im Rechnungswesen (w/m/d)
Nutze deine Chance: Verstärke unser derzeit zweiköpfiges Team als Prozess- und Projektmanager (w/m/d) im Rechnungswesen. Eure gemeinsame Mission: Die abteilungsübergreifende Optimierung unserer Prozesslandschaft. Mehr Infos >>

Stellvertretende Leitung Finanzbuchhaltung (m/w/d)
Seit Generationen kümmern wir uns um die Erfassung und Abrechnung von Heizenergie, Wasser und Strom in den verschiedensten Immobilienarten. Dank unserer digitalen Messtechniken können wir Kunden und Kundinnen verlässliche Daten über ihren Energieverbrauch zur Verfügung stellen und machen damit Ei... Mehr Infos >>

Referent (m/w/d) Controlling / Einnahmenaufteilung
Wir suchen Dich! Für drei Bundesländer, acht Kreise, 30 Verkehrs­unter­nehmen und rund 3,67 Mio. Einwohner über­nimmt der hvv das Management des öffent­lichen Personen­nah­verkehrs (ÖPNV) in der Metro­pol­region Hamburg. Mit rund 120 Mitarbei­tenden ist die hvv GmbH die Regie­organi­satio... Mehr Infos >>

Controlling Specialist (m/w/d) – Bereich Theater
Hierbei bist du nicht nur Zahlenjongleur, sondern auch ein echter Business Partner für unsere Produktionen bzw. Shows. Du trägst mit deiner Arbeit aktiv zum Erfolg von internationalen Bühnenhits, wie König der Löwen, Tarzan, &Julia und MJ bei! Mehr Infos >>

Teamleitung Finanzen (m/w/d)
Wir bieten eine interessante und anspruchsvolle Tätigkeit in einem dynamischen, anregenden und unterstützenden internationalen Forschungs­umfeld. Die Vergütung erfolgt nach dem Tarifvertrag für den öffentlichen Dienst (TVöD), je nach persönlicher Qualifikation und Erfahrung bis zur Entgel... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

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

Viele kostenlose Webinare rund ums Controlling

CoPlanner_Logo_2_RGB_tuerkis_300dpi-controllingportal.jpg
In unseren Webinaren erfahren Sie, wie Sie Ihr Controlling auf ein neues Niveau heben. Neueste Trends, praxisnahe Einblicke und wie Sie Ihre Fähigkeiten optimieren können.  Vom präzisen Forecasting über HR-Controlling bis zur Konsolidierung und integrierten Planung: Die Webinare sind darauf ausgerichtet, Sie zu inspirieren, zu informieren und zu befähigen.     Mehr Infos >>  

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

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

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

SWOT Logo 290px.jpg
SWOT. Für bessere Entscheidungen. Ob Business 1.0 oder 4.0 - je dynamischer die Märkte werden, desto schneller muss auch das Controlling sein: Wo stehen wir tagesaktuell mit dem Umsatz, welche Produkte liefern aktuell welche Deckungsbeiträge oder wie sieht bei der heutigen Auftragslage der Cashflow im nächsten Quartal aus usw. 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-Tool zur Visualisierung eines Projektplans

Projektplan.png
Mit dem Excel-Tool zur Visualisierung eines Projektplans wird der Controller bei der Präsentation von Meilensteine oder Phasen bzw. Aktivitäten eines Projekts unterstützt. Die Abbildung erfolgt als Balkenplan (Bar Chart, Gantt-Diagramm) oder als Zeitstrahl. Mehr Informationen >>

PLC Preiskalkulations-Tool

Das PLC Preiskalkulations-Tool hilft Ihnen dabei das Produkt zum besten Preis zu verkaufen und die eigenen Kosten mit einzuplanen. Es bietet umfangreiche Eingabemöglichkeiten und Zuschlagssätze, um die bestehenden Kosten direkt mit einzubeziehen. Mehr Informationen >>

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

Skript Kostenrechnung

Umfassendes Skript für Studenten, Auszubildende und angehende Bilanzbuchhalter zu allen prüfungsrelevanten Themen aus der Kosten- und Leistungsrechnung als ebook im pdf-Format. Auf 163 Seiten wird alles zum Thema Kostenrechnung ausführlich und verständlich sowie mit vielen Abbildungen und Beispielen erläutert.

Themen:

- Kostentheorie
- Aufgaben und Systeme der Kostenrechnung
- Vollkostenrechnung
- Teilkostenrechnung (Deckungsbeitragsrechnung)
- Plankostenrechnung
- Kurzfristige Erfolgsrechnung
- Prozesskostenrechnung
- Kalkulation im Handel

Zusätzlich zum Skript erhalten Sie umfangreiche Klausuraufgaben und Übungsaufgaben mit Lösungen! Preis 9,90 EUR Hier bestellen >>

Kosten- und Leistungsrechnung: Aus der Praxis für die Praxis von Jörgen Erichsen 

kosten-muenzen-geld-pm_Boris_Zerwann_240x180.jpg
Zur KLR gibt es zahllose Veröffentlichungen, die sich vor allem mit Definitionen und Theorien befassen. Im Unterschied dazu ist diese Serie aus 6 Teilen so konzipiert, dass sie sich vor allem mit der Anwendbarkeit im Tagesgeschäft befasst und so gerade für Unternehmer in kleinen Betrieben und Selbstständige einen hohen Nutzwert bieten. 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 >>