![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
Anzeige
RS-Bilanzanalyse - Kennzahlen-Berechnung in Excel
Umfangreiches Excel- Tool zur Berechnung der wichtigsten branchenunabhängigen Kennzahlen aus Bilanz und GuV. Weiterhin G+V und Bilanz in 5 Jahres-Übersicht und druckbare Berichte, die die Lage des Unternehmens im 5 Jahresvergleich darstellen.
Preis 39,- EUR inkl. MWSt.
mehr Informationen >>
'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
|
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 >>