Kopieren von Zellen bei Erfüllen einer Bedingung

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 (oder auch noch weitere) in ein anderes Tabellenblatt kopieren.
Ich habe mir mit Hilfe von Tips im Netz einen Code zusammengebastelt, der jedoch nicht das tut was er soll. Sicherlich ist der einfach falsch, aber ich sehe den Fehler selbst nicht. Ich habe euch die Datei angehängt, der Code ist im Modul1.
Vielleicht könnt Ihr mir helfen und mir eine Lösung/ Abwandlung des Codes verraten, so dass ich Zellen in das Ziel-Tab kopieren kann. Ich danke euch jetzt schon mal ganz herzlich!! VG Chris
Hier der Link zu meiner Testdatei:
https://www.herber.de/bbs/user/75181.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub kampagnenaktuell() Dim wks2 As Worksheet, Zei2 As Long Set wks2 = Worksheets("ziel") Zei2 = wks2.Cells(Rows.Count, 1).End(xlUp).Row With Worksheets("quelle") For Each Zelle In .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) If Zelle.Value = "ja" Then Zei2 = Zei2 + 1 .Range(Zelle.Offset(0, 1), Zelle.Offset(0, 3)).Copy _ Destination:=wks2.Cells(Zei2, 1) End If Next Zelle End With End Sub

Sub kampagnenaktuell() Dim wks2 As Worksheet, Zei2 As Long Set wks2 = Worksheets("ziel") Zei2 = wks2.Cells(Rows.Count, 1).End(xlUp).Row With Worksheets("quelle") For Each Zelle In .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) If Zelle.Value = "ja" Then Zei2 = Zei2 + 1 .Range(Zelle.Offset(0, 1), Zelle.Offset(0, 3)).Copy wks2.Cells(Zei2, 1).PasteSpecial Paste:=xlPasteValues End If Next Zelle End With End Sub

Eine kurze Frage hätte ich noch:
Ich möchte gerne die Startzeile vorgeben (also nicht die erste freie Zeile): Hier z.B. die 30. Zeile.
Der Übertrag erfolgt aber immer trotzdem in die erste Zeile...Was mache ich denn falsch?
Wäre super wenn Du mir noch einmal helfen könntest...VIelen Dank!

Sub kampagnenaktuell()
Dim wks2 As Worksheet, Zei2 As Long
Set wks2 = Worksheets("Cockpit")
Zei2 = wks2.Cells(30,1)
With Worksheets("Kampagnen")
For Each zelle In .Cells(2, 1).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1)
If zelle.Value = "kleiner14Tage" Then
Zei2 = Zei2 + 1
.Range(zelle.Offset(0, 1), zelle.Offset(0, 3)).Copy
wks2.Cells(Zei2, 1).PasteSpecial Paste:=xlPasteValues
End If
Next zelle
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Kopieren von Zellen bei Erfüllen einer Bedingung

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

344 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren von Zellen bei Erfüllen einer Bedingung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

344 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread