Hallo zusammen,

Folgendes Anliegen:

Ich möchte ein Makro schreiben, dass in der Spalte "K" nach dem Zelleninhalt "ja" sucht. wird dieser Wert gefunden soll für diese Zeile die Inhalte der Spalte B,D & E in ein neues Tabellenblatt kopiert werden. Dorthin aber nicht einfach kopiert werden, sondern beginnend in D5.

Bisher sieht der Code so aus:

Sub Agenda_Test()

Dim zelle As Range, zeile As Long

For Each zelle In Range("K:K")

If zelle = "ja" Then

zeile = zelle.Row

Rows(zeile).Copy Destination:=Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

End If

Next

End Sub

Es funktioniert soweit, dass alle Zeilen die "ja" beinhalten in ein neues Tabellenblatt kopiert werden allerdings benötige ich nur die Werte aus B,D & E und Beginnend in D5.

Bin noch ein blutiger Anfänger was das ganze angeht und komme nicht mehr weiter.