|
Hallo Zusammen,
ich möchte aus einem Tabellenblatt bei Erfüllung einer Bedingung in Spalte A, die jeweiligen Werte in den Spalten B,C,D in ein anderes Tabellenblatt kopieren.
Ich habe im Netz einen Code (siehe untern) gefunden, der das über ein Array (meiner Meinung nach) löst, aber nur für 2 Werte. Für mehr als 2 bekomme ich es nicht hin.
Vielleicht könnt Ihr mir helfen und mir eine Lösung/ Abwandlung des Codes verraten, so dass ich mehr Zellen in das Ziel-Tab kopieren kann. Ich danke euch jetzt schon mal ganz herzlich!! VG Chris
Option Explicit
Sub uebertrag()
Dim s As Integer
Dim arr As Variant
Worksheets.Application.ScreenUpdating = False
For s = 2 To Worksheets("quelle").Range("A65536").End(xlUp).Row
If Worksheets("quelle").Cells(s, 1).Value = "Bedingung" Then
arr = Worksheets("quelle").Range("A" & s, "B" & s)
Worksheets("ziel").Range("A" & Worksheets("ziel").Range("A65536").End(xlUp).Row + 1, "B" & Worksheets("ziel").Range("A65536").End(xlUp).Row + 1) = arr
Do While Worksheets("quelle").Cells(s, 2) = Worksheets("quelle").Cells(s - 1, 2)
s = s + 1
Loop
End If
Next s
Worksheets("ziel").Range("A2", "B" & Worksheets("ziel").Range("A65536").End(xlUp).Row).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(1, 1).Select
Worksheets.Application.ScreenUpdating = True
End Sub
|