Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Überschriften nach unten kopieren
#1
Guten Morgen,

zur besseren Verständnis habe ich meine Frage dem Anhang beigefügt.

Ich habe in der Spalte B Überschriften, welche für jedes Konto in Spalte C steht, bis zur nächsten Überschrift.
Diese steht dann wieder so lange für die Konten in Spalte C, bis die nächste Überschrift kommt.

Ich könnte zwar jede einzelne Überschrift manuell nach unten kopieren, allerdings handelt es sich in meiner
Arbeitsdatei nicht nur um 5 Überschriften sondern um hunderte.

Ich hoffe ihr könnt helfen.

Vielen Dank und Gruß,


.xlsx   GuV Strukturen.xlsx (Größe: 8,49 KB / Downloads: 7)
Antworten Top
#2
Moin,

da die Kontennummern zur "Überschrift" eindeutig zugeordnet werden können, genügt es in Deinem Fall mit dem Sverweis() zu arbeiten.
Mach dir noch eine Tabelle mit den ganzen Kontennummern in Spalte A und Bezeichnung in Spalte B.

In dem Tabellenblatt GuVStruktur kommt dann die Formel links neben die Kontonummer.
Dann die Formel nach unten Kopieren: Et voila !
gruß
Marco
Antworten Top
#3
Hallo, :19:

lass folgendes Makro laufen: :21:

Code:
Option Explicit
Public Sub Main()
    On Error Resume Next
    With Tabelle1.Range("B4:B" & Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
    On Error GoTo 0
End Sub
________
Servus
Case
Antworten Top
#4
Moin,

und warum kein (richtiger) Listenaufbau wie dieser?

Arbeitsblatt mit dem Namen 'GuV Struktur (2)'
AB
1ErlöseBemerkungen
240000aus allg. Krankenhausleistungen
340001aus allg. Krankenhausleistungen
440002aus allg. Krankenhausleistungen
540003aus allg. Krankenhausleistungen
640004aus allg. Krankenhausleistungen
740005aus allg. Krankenhausleistungen
841100aus Wahlleistungen
941105aus Wahlleistungen
1041110aus Wahlleistungen
1141115aus Wahlleistungen
1241318aus Wahlleistungen
1341319aus Wahlleistungen
1442000aus ambulanten Leistungen d. Krankenh.
1542005aus ambulanten Leistungen d. Krankenh.
1642010aus ambulanten Leistungen d. Krankenh.
1742020aus ambulanten Leistungen d. Krankenh.
1842030aus ambulanten Leistungen d. Krankenh.
1942035aus ambulanten Leistungen d. Krankenh.
2042040aus ambulanten Leistungen d. Krankenh.
2159103sonstige betriebliche Erträge
2259104sonstige betriebliche Erträge
2359105sonstige betriebliche Erträge
2459106sonstige betriebliche Erträge
2559109sonstige betriebliche Erträge
2659111sonstige betriebliche Erträge
2760000Personalaufwand
2864000Personalaufwand
2963000Personalaufwand

Zellebedingte Formatierung...Format
B151: $B15=$B14abc
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Falls die Wiederholungen in Spalte B optisch stören sollten, blendest sie halt nach dem ersten Vorkommen mit bedFormatierung aus. Mit diesem Aufbau ist es auch ein leichtes, Auswertungen aller Art vorzunehmen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#5
Moin,

die Klassische Methode ohne VBA:
  • Markiere den Bereich, der ausgefüllt werden soll, im Beispiel B3:B42
  • Drücke Taste F5
  • Klicke unten auf die Schaltfläche "Inhalte..."
  • Setze den Optionsbutton "Leerzeilen"
  • Betätige OK
  • Trage in die Zelle - Die excel nun weiß gelassen hat - ein: =B3
  • Schließe die Eingabe mit Strg+Enter ab
[-] Folgende(r) 1 Nutzer sagt Danke an Wastl für diesen Beitrag:
  • Tanne87
Antworten Top
#6
Danke für eure beiden Tipps.

@ Mase, du hast natürlich recht, dass ich mit dem sverweis arbeiten könnte, den Umweg einer Hilfstabelle möchte ich aber ungern gehen. Ich habe dieses Problem öfter mal, daher möchte ich gerne direkt mit einer Formel arbeiten ;)
@ Case, ich bin leider nicht Makro-Affin, würde es dennoch einfach mal probieren.

Ich hatte für diesen Fall schon einmal eine Formel, kann mich daran aber leider nur dunkel erinnern.
Man musste die erste Überschrift kopieren, dann die gesamte Spalte markieren und über eine bestimmte Tastenkombination wurden alle Zellen mit der jeweiligen Überschrift gefüllt.
Evtl. bekommt ja wer von euch die Formel nachgebaut  Blush

Gruß,

Hallo Wastl,

klasse, genau die Formel habe ich gesucht.
Vielen Dank dafür!!

Gruß,

Danke an alle für die Mühen. Ich nehme die verschiedensten Lösungen mit.

Ich habe mein Problem gelöst und schließe den Beitrag.

Danke und Gruß,
Antworten Top
#7
Hi,

schätze mal du brauchst die Aufstellung nach §275 (2) HGB.
Geringster Aufwand wäre in Deinem Fall die von Case bereitgestellten Zeilen in einem AddIn zu platzieren und per Shortcut/Button/Menüband immerwieder abzurufen.

edit:
Zitat:Ich habe mein Problem gelöst und schließe den Beitrag.

Ok :D
gruß
Marco
[-] Folgende(r) 1 Nutzer sagt Danke an Mase für diesen Beitrag:
  • Tanne87
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste