Makro zur Datenzusammenfassung

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 16.09.2020

Drucken RSS
Literaturhinweise
Excel-Tools
Weitere Fachbeiträge zum Thema

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!

Anzeige

Controlling- Newsletter

Neben aktuellen Neuigkeiten für Controller und neueingegangene Fachartikel, informieren wir Sie über interessante Literaturtipps, Tagungen , Seminarangebote und stellen Ihnen einzelne Software- Produkte im Detail vor.
zur Newsletter-Anmeldung >>
Anzeige
Anzeige
Excel-Vorlage: RS Controlling System

Community

Community_Home.jpg






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

Neu - Controlling-Journal!

CJ_Muster_titel-190px.jpg
Kurzweiliger Mix aus Fachinformationen, Karriere- und Arbeitsmarkt-News, Büroalltag und Softwarevorstellungen.

Probieren Sie jetzt das Print-Magazin Controlling-Journal >>
Anzeige

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

Wie zufrieden sind Sie mit uns?

rotstift_adpic_190px.jpg 
Über Ihre Meinung und auch ihre Anregungen für Veränderungen oder Erweiterungen würden wir uns sehr freuen. Nur 10 kurze Fragen, die schnell beantwortet sind. Vielen Dank im Voraus für Ihre Mithilfe! zur Umfrage >>
Anzeige

Fachbeitrag veröffentlichen?

Autorin.jpg Sie sind Autor von Fachbeiträgen mit Controlling-Thema? Gerne veröffentlichen oder vermarkten wir ihren Fachbeitrag im Themenbereich Controlling. Eine kurze Autorenvorstellung oder Unternehmensdarstellung am Ende des Artikels ist möglich. jetzt Mitmachen >>
Anzeige

Premium-Mitgliedschaft

Erhalten Sie Zugriff auf Premium-Inhalte von Controlling-Portal.de und Rechnungswesen-Portal.de. Aktuelle und ständig erweiterte Fachbeiträge und sämtliche Ausgaben des Controlling-Journals. Das aktuelle Controlling-Journal erhalten Sie zudem als pdf-Ausgabe. Verschaffen Sie sich hier einen Überblick über unsere Premium-Inhalte.

Mitgliedschaft für nur 89,- EUR inkl. MWSt. im Jahr! Weitere Informationen >>
Anzeige

RS-Bilanzanalyse

RS-Bilanzanalyse.jpgBilanzanalyse- Tool (Kennzahlen- Berechnung): Umfangreiches Excel- Tool zur Berechnung der wichtigsten branchenunabhängigen Kennzahlen aus Bilanz und G+V. Es werden Berichte generiert, die die Liquiditäts-, Vermögens- und Ertragslage des Unternehmens im 5 Jahresvergleich darstellen.
Excel- Tool bestellen >>
Anzeige
Anzeige
Tipp-Anzeige ab 100,- EUR buchen. Weitere Infos hier >>
Anzeige

Stellenmarkt

Controller (w/m/d)
Berufserfahrene und Einsteiger finden bei uns neben einem tollen Team aus mehr als 10.000 netten Kollegen und über 770 ver­schiedenen Stellen­profilen viele attrak­tive Heraus­forderungen, die sich einer modernen Ver­sicherung stellen: Verur­sacht das Auto der Zukunft weniger Unfälle? Wie sieht d... Mehr Infos >>

Controller (w/m/d)
Die HUK-COBURG Autowelt ist die Autohandels­plattform von Deutschlands größtem Kfz-Versicherer. Als junges Tochter­unternehmen der HUK-COBURG entwickeln wir zukunfts­weisende Mobilitäts­angebote rund um das privat genutzte Kfz. Mehr Infos >>

CONTROLLER (M/W/D) INFORMATIONSSYSTEME UND PROJEKTE
BLUME2000 ist Deutschlands größter Filialist und Online-Versand im Blumen- und Pflanzenhandel. Die Basis für unseren gemeinsamen Erfolg sind die Leidenschaft für das schönste Produkt der Welt, eine professionelle Organisation und ein familiäres Miteinander in einem engagierten Team. Wir möchten u... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>
Anzeige

JOB- TIPP

Stellenmarkt.jpg
Sind Sie auf der Suche nach einer neuen Herausforderung? Interessante Stellenangebote für Controller finden Sie in der Controlling-Portal Stellenbörse. Ihr Stellengesuch können Sie kostenfrei über ein einfaches Online-Formular erstellen. Zur Stellenbörse >>
Anzeige

Software-Tipp

idl_controller-portal-290x120_02-19-weiß.jpg

Aktuelle Scores, Whitepaper, Studien, Checklisten und Handbücher rund um Konsolidierung, Berichtswesen und Rechnungslegung. 

Jetzt kostenfrei holen!


Anzeige

TOP ANGEBOTE

Button__subThema.PNG
RS Plan - Unternehmensplanung leicht gemacht:


Erstellen Sie mit RS-Plan ganz einfach Ihre gesamte Unternehmensplanung!
Button__subThema.PNG
RS-Controlling-System f. EÜR:


Planen, analysieren und steuern Sie Ihr Unternehmen mit RS-Controlling-System f. EUR!
Button__subThema.PNG
RS-Investitionsrechner:



Ermitteln Sie ganz einfach den Kapitalwert Ihres Investitionsvorhabens!
Anzeige

Software

LucaNet.Equity
LucaNet.Equity Die Software für effizientes Beteiligungscontrolling  Mit LucaNet.Equity werden Beteiligungen transparent und gezielt gesteuert. Vorgefertigte Strukturen lassen sich schnell und einfach an die jeweiligen Bedürfnisse anpassen, einzelne Unternehmenspläne werden automatisc... Mehr Infos >>

KONSOLIDATOR
EINE EINFACHE LÖSUNG FÜR DIE KONZERNKONSOLIDIERUNG Cloudbasierte Softwarelösung Konsolidator® ist eine cloudbasierte, moderne SaaS-Lösung für die finanzielle Konsolidierung und Berichterstattung basierend auf Microsoft Azure, die Ihnen hilft, Ihre Finanzfunktion zu digit... Mehr Infos >>

adata Kostenrechnung / adata MIS
Die 'adata Kostenrechnung' ist ein mandantenfähiges und branchenneutrales Controlling-Instrument zur Optimierung Ihres Rechnungswesens. Wesentliche Leistungsmerkmale sind bedarfsgerechte und benutzerdefinierte Gestaltungsmöglichkeiten von BABs, Plankosten-, Deckungsbeitragsrechnungen für Kostenar... Mehr Infos >>

Zum Controlling-Software-Verzeichnis >>
Anzeige

Ihre Werbung

Werbung Controlling-Portal.jpg
Hier könnte Ihre Werbung stehen! 
Werben Sie zielgruppenorientiert – werben Sie auf www.Controlling-Portal.de! Nährere Informationen erhalten Sie hier >>

Anzeige

Excel-Tools

Musterrechnung mit mehreren UST Sätzen
Rechnung mit unterschiedlichen Mehrwertsteuersätzen in Excel für Kleinunternehmen Mehr Infos >>

Tarifvergleich Einkommensteuer in Excel
Das Excel-Tool "Tarifvergleich" ermittelt nach Wahl der Veranlagungsform (Einzel- oder Zusammenveranlagung) und Eingabe des zu versteuernden Einkommens, ausgehend von einem Basisjahr (2002 bis 2018), die tarifliche Einkommensteuer und den Solidaritätszuschlag bei Angabe ... Mehr Infos >>

BWA als Wasserfalldiagramm
In diesem Excel Tool werden die Daten einer BWA in einem Wasserfalldiagramm visualisiert Mehr Infos >>

Zum Excel-Vorlagen-Verzeichnis >>
Anzeige

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

Bericht5_pm_Jan_Prchal.jpg
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. Zusätzlich ermittelt das Tool einen Liquiditätsplan. Mehr Informationen >>
Anzeige

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

Anzeige

Seminar-Tipps

Verlag Dashöfer GmbH, Controlling für Nicht-Controller, Webinar, 15.12.2020 2 Tage
Mehr Infos >>

PC-COLLEGE , Excel - im Projektmanagement, Dortmund, 14.04.2021 2 Tage
Mehr Infos >>

PC-COLLEGE , Excel - Pivot - Tabellen / Listenauswertungen Grundkurs, Koblenz, 01.06.2021 2 Tage
Mehr Infos >>

PC-COLLEGE , Excel - im Reporting, Live-Online-Training, 17.02.2021 2 Tage
Mehr Infos >>

Verlag Dashöfer GmbH, Controlling für Nicht-Controller, München, 13.12.2021 2 Tage
Mehr Infos >>

Zur Seminar-Datenbank >>
Anzeige

Software-Tipp

box_Liquiditaetstool_W.pngRollierende 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.. Preis 47,60 EUR Mehr Infos und Download >>
Anzeige
Reifegradcockpit_Digipit.jpg

Steuerung von Digitalisierungsstatus und -entwicklung mit dem digitalen Reifegradcockpit "DigiPit": In Unternehmen werden bereits Management-Cockpits eingesetzt, die meist komplexe, finanzielle Zusammenhänge und Kennzahlen verständlich darstellen. Zur umfassenden und transparenten Steuerung der Digitalen Transformation bietet es sich an mithilfe eines Cockpits, des sogenannten DigiPits, die Aspekte und die Entwicklung im Einzelnen zu beleuchten. Daher wurde der „DigiGrad“ als Wert für die Bestimmung des Digitalen Reifegrades und das „DigiPit“ als Digitalisierungs-Steuerungscockpit entwickelt. Mehr dazu in diesem eBook >>

Anzeige

Erfolgreich mit Fernstudium

Fernkurse.jpgEin modernes Fernstudium bietet viele Vorteile. Sie selbst bestimmen, wann und wo Sie lernen - umfassend betreut und unter- stützt von einem persönlichen Learncoach und einem Team kompetenter Fern- lehrer. Wir stellen Ihnen einige interessante Fernkurse bzw. Studiengänge mit Themenschwerpunkt Controlling detailliert vor >>
Anzeige

Rückstellungen leicht verwalten

Mit der RS- Rückstellungs-Verwaltung können Sie Rückstellungen nicht nur leicht errechnen sondern auch übersichtlich verwalten.
  • Gewerbesteuerrückstellung
  • Urlaubsrückstellungen
  • Rückstellungen für Geschäftsunterlagen
  • Rückstellung für Tantiemen
  • Sonstige Rückstellungen
Automatische Zusammenfassung aller wichtigsten Eckdaten der Rückstellungen in einer Jahres-Übersicht. mehr Informationen >>
Anzeige

Software-Tipp

Baukostenrechner-150px.jpgDer Excel-Baukostenrechner unterstützt Sie in der Kalkulation der Kosten Ihres Hausbaus mit einer detaillierte Kosten- und Erlösplanung. Zusätzlich bietet Ihnen dieses Excel-Tool einen Plan / IST-Vergleich sowie verschiedene andere Auswertungen.. Preis 30,- EUR Mehr Infos und Download >>
Anzeige

RS-Investitionsrechner

RS-Investitionsrechner.jpg
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. Excel- Tool bestellen >>
Anzeige

Preiskalkulation

Preiskalkulation.jpgPreiskalkulation einfach gemacht: Excel-Tool zur Kalkulation Ihrer Preise. Geeignet sowohl im Dienstleistungs- als auch im Industriebereich. Auch zur Preiskalkulation einzelner Projekte anwendbar. Inklusive einstufiger Deckungsbeitragsrechnung. zum Shop >>
Anzeige

RS Toolpaket - Controlling

Excel-Tool_152x89px.jpgWir setzen für Sie den Rotstift an, sparen Sie mit unsrem RS Toolpaket - Controlling über 30% im Vergleich zum Einzelkauf. Die wichtigsten Controlling-Vorlagen in einem Paket (Planung, Bilanzanalyse, Investitionsrechnung, ...). Das Controllingpaket umfasst 6 Excel-Tools für Ihre Arbeit! mehr Infos >>
Anzeige

RS-Plan

RS-Plan.jpgRS-Plan - Unternehmens- planung leicht gemacht:
Erstellen Sie mit RS-Plan Ihre Unternehmensplanung professionell. Automatische Plan-GuV, Plan-Bilanz, Plan- Kapitalflussrechnung und Kenn- zahlen. Preis: 119,- EUR Mehr Informationen >>
Anzeige

RS-Bilanzanalyse

RS-Bilanzanalyse.jpgBilanzanalyse- Tool (Kennzahlen- Berechnung): Umfangreiches Excel- Tool zur Berechnung der wichtigsten branchenunabhängigen Kennzahlen aus Bilanz und G+V. Es werden Berichte generiert, die die Liquiditäts-, Vermögens- und Ertragslage des Unternehmens im 5 Jahresvergleich darstellen.
Excel- Tool bestellen >>