|
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.
|