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.
kennzahlen-guide_titel_250px.jpg
Kennzahlen-Guide für Controller - Über 200 Kennzahlen mit Erläuterung und Beispielrechnung aus den Bereichen Finanzen, Personal, Logistik, Produktion, Einkauf, Vertrieb, eCommerce und IT.

Preis: E-Book 12,90 EUR mehr >>

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>
Facebook_Logo_Primary.png
Bleiben Sie auf dem Laufenden und informieren sich über neue Fachbeiträge, Excel-Tools und Jobangebote auf unserer Facebook-Seite >>

Stellenanzeigen

Real Estate Operations Manager (m/w/d) - Vollzeit | Hybrid | Berlin / Frankfurt / Leipzig
GFORM ist ein marktführender Spezialist im Bereich Mieter- und Gewerbeimmobilienmanagement mit Sitz in Berlin. Mit über 15 Jahren Erfahrung, ca. 1,35 Mrd. € Assets under Management und mehr als 550.000 m² betreuter Gesamtfläche – darunter Europas größter Artikel-9-Fonds, zählt unser verwaltetes P... Mehr Infos >>

Assistant Controller (m/w/d)
Deine Zukunft – perfekt verpackt. Smurfit Westrock gehört mit weltweit 100.000 Mitarbeiter­innen und Mitarbeitern in 40 Ländern zu den führenden Anbietern von papier­basierten Verpackungs­lösungen. Egal, ob wir gerade für den wichtigsten Onlinehändler der Welt produzieren oder Deutschlands größte... Mehr Infos >>

Sachbearbeiter (m/w/d) Betriebskostenabrechnung Immobilienwirtschaft
Die Immobiliengesellschaft von vinzenzmurr, die BVG Verwaltung GmbH & Co. KG, betreut einen umfangreichen Immobilienbestand mit Wohn- und Gewerbeimmobilien sowie einige gewerbliche WEG-Einheiten überwiegend im Herzen von München. Mehr Infos >>

Kreditorenbuchhalter*in
Der NDR ist ein großer Arbeitgeber der Medienbranche und fest in den vier Bundesländern Hamburg, Mecklenburg-Vorpommern, Niedersachsen und Schleswig-Holstein verankert. Als öffentlich-rechtliche Rundfunkanstalt ist der NDR besonders der unabhängigen und sorgfältigen Berichterstattung in seinen Hö... Mehr Infos >>

Controller strategisches Kapazitätscontrolling (w/m/d)
Hallo, lass uns WIR sagen! Wir - die HUK-COBURG Versicherungsgruppe - zählen zu den 10 größten in Deutschland. Vor über 90 Jahren gegründet sind wir mit über 13 Millionen Kund:innen heute der große Versicherer für Privathaushalte und der größte deutsche Autoversicherer. Dass wir oft preisgünstige... Mehr Infos >>

Specialist Finance (m/w/d)
Ihre Aufgaben: Erstellung von Monats‑, Quartals‑ und Jahresabschlüssen nach HGB, Mitarbeit bei Konsolidierungs‑ und Konzernabschlussprozessen, Analyse und Aufbereitung von Finanzkennzahlen (GuV, Bilanz, Cashflow, EBIT-Bridges), Durchführung von Forecast‑, Budgetierungs‑ und Planungsprozes... Mehr Infos >>

Accounting Specialist / Finanzbuchhalter*in (all genders)
Bei AEB vereinfachen wir globale Warenbewegungen - und machen effiziente, ökologische, sichere und gerechte Lieferketten möglich. Mit intuitiven Technologien aus der Cloud - und mit dir! Weil du, deine Fähigkeiten, Gedanken und Ideen uns weiterbringen. Du bekommst bei uns den Freiraum und offene ... Mehr Infos >>

Finanzbuchhalter (m/w/d) oder Bilanzbuchhalter (m/w/d)
Als erfolgreich tätiges, akkreditiertes medizinisches Labor zählen wir mit dem kompletten Leistungs­spektrum der modernen medizinischen Diagnostik zu Deutschlands führenden Privat­laboratorien. Seit 75 Jahren vertrauen nieder­gelassene Ärzte und eine Vielzahl an Kranken­häusern der Labor­diagnost... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_310px.jpg

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

Veranstaltungs-Tipp

CA_290px (1).png

JOB- Letter

 jobletter.jpg
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.

Excel-Vorlage für Angebotsvergleich

Angebotsvergleich Excel 290px.jpg
Formelgestützte Ermittlung des "besten" Angebots durch Gegenüberstellung der Angebotskonditionen verschiedener Anbieter. Das Excel-Tool bietet einen quantitativen und einen qualitativen Angebotsvergleich, in dem zunächst der Anbieter mit dem günstigsten Bezugspreis und anschließend nach bestimmten Bewertungskriterien der "beste" Lieferant ermittelt wird.

Jetzt hier für 25,- 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 - Make or Buy Analyse

In einem Unternehmen kommt oft die Frage auf, ob man Materialien in Eigenproduktion herstellen sollte oder diese extern zukauft. Dieses Excel-Tool hilft Ihnen bei der Fragestellung auf Grundlage der Make or Buy Analyse. Die Berechnung kann nach Vollkosten- oder Grenzkostenansatz durchgeführt werden.
Mehr Informationen >>


Preiskalkulation mit Excel

Preiskalkulation einfach gemacht: dieses Excel-Tool hilft Ihnen bei der Kalkulation Ihrer Preise. Geeignet sowohl im Dienstleistungs- als auch im Industriebereich. Auch zur Preiskalkulation einzelner Projekte anwendbar. Inklusive einstufiger Deckungsbeitragsrechnung.
Mehr Informationen >>

Kundendatenbank inkl. Rechnungsprogramm

Die Excel- Kundendatenbank für bis zu 2000 Kunden ist ideal als Vertriebsdatenbank einsetzbar mit integrierten Termin-/ Wiedervorlagenmanagement zur Verwaltung, Steuerung, Planung und Reporting von Kundendaten und Vertriebsaktivitäten. Erstellen Sie ganz einfach Ihre Rechnungen für verwaltete Kunden mit Produkten aus Ihrem Katalog. 
Mehr Informationen >>

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

Excel-Tool für Investitionsrechnung

meeting_diskussion_haende_pm_pressmaster_290px (1).png
Professionelle Investitionsrechnung in Excel – HGB-konform: NPV inkl. AfA-Tax-Shield, IRR, statischer und dynamischer Payback, BMF-AfA-Tabelle mit 33 Anlagenklassen, Priorisierung: PRIO 0–3, Szenarien, Leasing-vs-Kauf und ein fertiger DATEV-Aktivierungs-Buchungssatz. Druckfertige GF-Vorlage, KI-Prompt, keine Makros.

Jetzt hier für 69,90 EUR downloaden!

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