Überschriften in ausgefüllte Zellen übernehmen
#1
Photo 
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
Top
#2
Hi Sebastian,

bitte lade deine Beispieldatei direkt im Forum hoch. Wie es geht, kannst du hinter dem Link in deinem Beitrag lesen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Top
#3
Danke,

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

SG


Angehängte Dateien
.xlsx   liste.xlsx (Größe: 12,85 KB / Downloads: 4)
Top
#4
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
Top
#5
Super.

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


Gehe zu:


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