Herbers Excel/VBA-Archiv

Schleife - Spalte kopieren wenn Wert in Zeile | Herbers Excel-Forum

• Schleife - Spalte kopieren wenn Wert in Zeile von Jonathan vom 02.02.2010 15:46:44
• AW: Schleife - Spalte kopieren wenn Wert in Zeile - von Rudi Maintaire am 02.02.2010 16:08:02
  • AW: Schleife - Spalte kopieren wenn Wert in Zeile - von Jonathan am 02.02.2010 16:12:28

Betrifft: Schleife - Spalte kopieren wenn Wert in Zeile von: Jonathan
Geschrieben am: 02.02.2010 15:46:44

Hallo zusammen,

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

Betrifft: AW: Schleife - Spalte kopieren wenn Wert in Zeile von: Rudi Maintaire
Geschrieben am: 02.02.2010 16:08:02

Hallo
probier mal:

Sub markieren()
  Dim lSpalte  As Long
      
  For lSpalte = 1 To Cells(4, Columns.Count).End(xlToLeft).Column
      If InStr(Cells(4, lSpalte), "Anzahl") > 0 Then
        Range(Cells(5, lSpalte), Cells(5, lSpalte).End(xlDown)).Copy
        Cells(5, lSpalte).PasteSpecial _
            Paste:=xlPasteValues, _
            Operation:=xlNone, _
            SkipBlanks:=False, _
            Transpose:=False
        Application.CutCopyMode = False
      End If
  Next lSpalte

End Sub

Gruß
Rudi

Betrifft: AW: Schleife - Spalte kopieren wenn Wert in Zeile von: Jonathan
Geschrieben am: 02.02.2010 16:12:28

Hallo Rudi,

vielen Dank - funktioniert nun einwandfrei.

Gruß
Jonathan

Beiträge aus den Excel-Beispielen zum Thema "Schleife - Spalte kopieren wenn Wert in Zeile"