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 16.09.2020

Literaturhinweise
Excel-Tools
Weitere Fachbeiträge zum Thema

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 neueingegangene Fachartikel, informieren wir Sie über interessante Literaturtipps, Tagungen , Seminarangebote und stellen Ihnen einzelne Software- Produkte im Detail vor.
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 >>
Anzeige
Premiummitgliedschaft Studenten

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.

Premium-Mitgliedschaft

Erhalten Sie Zugriff auf Premium-Inhalte von Controlling-Portal.de und Rechnungswesen-Portal.de. Aktuelle und ständig erweiterte Fachbeiträge. Verschaffen Sie sich hier einen Überblick über unsere Premium-Inhalte.

Mitgliedschaft wahlweise für nur 119,- EUR inkl. MwSt. im Jahr oder 12,- EUR im Monat! Studenten und Auszubildende 39,- EUR für zwei Jahre! Kein Abonnement! Weitere Informationen >>
 

Wie zufrieden sind Sie mit uns?

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

Fachbeitrag veröffentlichen?

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

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


Kennzahlen-Guide

Kennzahlen-Guide-klein.pngÜ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 Informationen >>
 

Dashboards mit Excel

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.

Taschenbuch in Farbe für 34,90 EUR
oder E-Book für 12,90 EUR 
mehr Informationen >>

  

Reporting 1x1

reporting1x1-klein.jpgViel ist zum Berichtswesen oder Reporting schon geschrieben worden. Dennoch zeigen Umfragen, dass rund 50 Prozent der Empfänger von Berichten mit dem Reporting nicht zufrieden sind. Jörgen Erichsen erklärt in diesem Buch die Bedeutung und die Handhabung des Berichtswesens speziell für kleinere Betriebe. Mit zahlreichen Beschreibungen, Beispielen und Checklisten.

Taschenbuch in Farbe für 24,90 EUR
oder E-Book für 15,90 EUR 
mehr Informationen >>

TOP ANGEBOTE

Button__subThema.PNG RS Toolpaket - Planung:
4 Excel-Tools zum Paketpreis von nur 149,- EUR statt 227,- EUR bei Einzelkauf
Button__subThema.PNG RS Toolpaket - Controlling:
6 Excel-Tools zum Paketpreis von nur 189,- EUR statt 286,- EUR bei Einzelkauf
Button__subThema.PNG RS FiBu Paket:

8 Excel-Tools zum Paketpreis von nur 39,- EUR statt 49,- EUR bei Einzelkauf

Controlling-Software gesucht?

controlling_Dashboard_pm_ml12nan_B9707546_400x300.jpg

Verschaffen Sie sich hier einen Überblick >>
Anzeige
Buch: Kennzahlenguide für Controller

Stellenanzeigen

Fachgebietsleiterin / Fachgebietsleiter Baucontrolling (w/m/d)
Die Bundesanstalt für Immobilienaufgaben (BImA) ist die Immobiliendienstleisterin des Bundes, die 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 Deu... Mehr Infos >>

Senior Sales Controller (m/w/d)
Bei der HABA FAMILYGROUP arbeiten wir gemein­sam an einer kinder­freund­lichen Welt. Wir stehen für: Spiel­wiese statt Still­stand, bleibende Werte statt schneller Trends und beste Ent­wicklungs­möglich­keiten – beruflich wie persönlich. Gestalten Sie gemein­sam mit uns die Zukunft für Kinder. Mehr Infos >>

Referent (w/m/d) Risikocontrolling
Energie Südbayern (ESB) bildet gemein­sam mit den Tochter­unter­nehmen Energie­netze Bayern und der ESB Wärme die ESB-Unter­nehmens­gruppe. Mit rund 450 Mit­arbeite­rinnen und Mit­arbei­tern, Auszu­bildenden und Trainees stehen wir für leis­tungs­fähigen Service, flexi­ble Ener­gie­produk... Mehr Infos >>

Controller m/w/d für Produktkosten / Cost Engineer m/w/d
Was im Jahre 1705 als Schmiede begann, ist heute ein weltweit operierendes Unter­nehmen mit weit­reichender Erfahrung und großer Innovations­kraft. Täg­lich schmieden wir Pläne für äußerst robuste und intelligente Transport­lösungen im Schwerlast- und Spezial­transport – auf der Straße, offroad o... Mehr Infos >>

Referent CFO (m,w,d)
Sie suchen nach neuen Herausforderungen in einem Unternehmen mit marktführender Position in Europa? Werden Sie Teil der Crespel & Deiters Group und unserer weltweiten Weizen-Erfolgsgeschichte. Bei uns können Sie mit Ihrem Einsatz fortschrittliche Lösungen für eine nachhaltige Zukunft vorantreiben... Mehr Infos >>

Manager Finance und Controlling (m/w/d)
Unser Mandant ist eine erfolgreiche und wirtschaftlich stabil wachsende Unternehmensgruppe. Sie versorgt an vielen internationalen Produktionsstätten auf mehreren Kontinenten eine große Zahl an Industriekunden im Mobilitätssektor mit innovativen und qualitativ hochwertigen Lösungen und Komponente... Mehr Infos >>

Buchhalter (m/w/d)
Wir sind einer der führenden Payment Provider Deutschlands und einziger Full-Service-Anbieter in deutscher Banken­hand. Als Spezialist für bargeldloses Bezahlen der Genossen­schaftlichen FinanzGruppe Volksbanken Raiffeisen­banken entwickeln wir innovative Lösungen für den On- und Offline-Handel. ... Mehr Infos >>

Senior Controller Beteiligungs­management (m/w/d)
„Da steckt mehr dahinter!“: Als größter Energiedienstleister der Region Rhein-Main ist es unser Anspruch, Menschen mit zuverlässigen und passgenauen Energielösungen zu versorgen. Das setzt Ihre Energien frei? Dann finden Sie bei uns die Werkzeuge, um die neue Energie- und Arbeitswelt zu gestalten... Mehr Infos >>

Weitere Stellenanzeigen im Stellenmarkt >>

Folgen Sie uns!

panthermedia_B90564160_patronestaff_800x504.jpg

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

Business Intelligence mit Excel – PC-Seminar

GettyImages-1205248121_290x100.jpg
Sie lernen die Business Intelligence (BI) Tools in Excel anzuwenden und werden so Ihren Arbeitsalltag merklich erleichtern Bspw. lernen Sie, wie Sie mit den Power-Tools Datenmodelle erstellen, Daten analysieren und visualisieren.

Mit dem neu erworbenen Wissen können Sie u. a. zeit- und ressourcensparend Berichte erstellen, mit denen Sie Optimierungspotenziale aufdecken und Geschäftsentscheidungen erleichtern können.   Mehr Infos >>  

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



aufgefallen ?!


Ihre Werbung hier !






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

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

Excel Mauspad
50 deutsche Excel-Shortcuts

  • über 50 Excel-Shortcuts für das Büro
  • Keine Suche mehr über das Internet und damit Zeitersparnis
  • Gadget für das Büro
  • Keine Zettelwirtschaft mehr auf dem Schreibtisch
  • Schnelle Antwort auf einen Shortcut wenn Kollegen Sie fragen
  • Preis: 17,95 EUR inkl. MWSt.
Jetzt hier bestellen >>

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

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.. Preis 47,60 EUR Mehr Infos und Download >>