Schleife - Spalte kopieren wenn Wert in Zeile
Jonathan
ich bekomms einfach nicht hin...
Ich möchte in einer Tabelle die Zeile 4 nach dem Wert "Anzahl" durchsuchen lassen. Der Wert kommt in der Zeile 4 häufiger vor.
Ist der Wert "Anzahl" gefunden soll die dazugehörige Spalte (ab Zeile 5 - zum letzten Wert in der Spalte) kopiert und an gleicher Stelle als Werte (Inhalte einfügen -> Werte) eingefügt werden.
Das ganze soll für jede Spalte wiederholt werden, die in Zeile 4 den Wert "Anzahl" stehen hat.
Bisher habe ich folgenden Code welcher aber nicht funktioniert:
Sub markieren()
Dim lSpalte As Long
For lSpalte = Cells(3, 1) To Cells(3, Columns.Count).End(xlToRight).Column
If InStr(Cells(3, lSpalte), "Anzahl") > 0 Then
Range(Cells(4, lSpalte).End(xlDown)).Copy
Cells(4, lSpalte).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
_
:=False, Transpose:=False
End If
Next lSpalte
End Sub
Hier noch die Bsp.Datei:
https://www.herber.de/bbs/user/67692.xls
Vielen Dank für eure Hilfe
Gruß
Jonathan