Überschriften in ausgefüllte Zellen übernehmen

[BADEMElSTER]

Hallo zusammen! 

Weil ich hier im Forum neu bin erst mal ein Föhliches Hallo in die Runde bevor es Ernst wird.

Ich habe folgendes Problem:

Ich erhalte die im Anhang dargestellte Tabelle als Export aus unserm Verwaltungsprogramm.
Darin sollen die grünen Spalten durchsucht werden und wenn dort ein Eintrag vorhanden ist, sollen diese durch die Überschrift erstetz werde.

Manuell klappt das in einer neuen Spalte mit

=WENN(ISTLEER(L8);"";L$1)

In der Weise müsste ich das aber für jede Spalte machen und die Ausgangsspalte löschen.
Lässt sich das in irgendeiner weise automatisieren.

Dateien bitte im Forum hochladen: https://www.clever-excel-forum.de/Thread...ng-stellen

SG
Sebastian

[WillWissen]

Hi Sebastian,

bitte lade deine Beispieldatei direkt im Forum hoch. Wie es geht, kannst du hinter dem Link in deinem Beitrag lesen.

[BADEMElSTER]

Danke,

tatsächlich nicht auf hinzufügen geklickt.
So, hier ist die Liste.

SG

[ralf_b]

Code:

Sub ersetzen()
Dim x As Long
'beginn in spalte C, bis letzte beschriebene Spalte in zeile 1
For x = 3 To Cells(1, 3).End(xlToRight).Column
    Columns(x).Replace What:="*", Replacement:=Cells(1, x), LookAt:=xlPart
Next
End Sub

[BADEMElSTER]

Super.

Danke Ralf,
das funktioniert und hat wirklich geholfen. Außerdem motiviert es, sich noch mal mit VBA auseinander zu setzen.
:28: