Clever-Excel-Forum

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

Hi Sebastian,

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

Danke,

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

SG

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

Super.

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

BADEMElSTER

WillWissen

BADEMElSTER

ralf_b

BADEMElSTER