Office: VBA - Spalte nach Wert durchsuchen und in andere kopieren

Hallo Leute,

ich habe nur ein kleines kurzes Problem, was man sicher schnell lösen kann.
Ich habe in Spalte S in einigen Zellen den Wert "O ST" stehen und möchte jetzt eine Funktion, die die Spalte S nach diesem Wert absucht und falls gefunden, in der gleichen Zeile den Inhalt in Spalte K kopiert. Das heißt, wird "0 ST" in z.B. S50 gefunden, soll "0 ST" nach K50 kopiert werden. Hab bis jetzt was gecodet, aber so richtig klappt es noch nicht:

Code:

Sub Nullen()
      Dim finden, Zelle As Range
      Set finden = Range("S22:" & LetzteZeile)
      For Each Zelle In finden
      If Zelle.Text = "0 ST" Then
        Zelle.Copy
        Zelle.Paste Destination:=ActiveSheet.Range("K5:" & LetzteZeile)
      Application.ScreenUpdating = True
      End If
      Next
End Sub

Wo liegt mein Fehler?

 

Hallo!

Code:

Sub Nullen()
    Dim such As String, LetzteZeile As Long, i As Long
    such = "0 ST"
    LetzteZeile = 999
    For i = 22 To LetzteZeile
        If Cells(i, 19) = such Then Cells(i, 11) = such
    Next i
End Sub

 

Danke für deinen Code schatzi, jedoch führt er ihn nicht ganz richtig aus
Er hat jetzt nur die erste Zelle in Zeile 22 kopiert.
Wie kann ich denn angeben, dass die gesamte Spalte durchsucht werden soll? Die Tabelle hat ja mehr als 999 Zeilen

 

Hallo!

Warum bei dir nur der erste Wert eingefügt wird, kann ich nicht nachvollziehen. Bei mir macht der Code exakt das, was er machen soll.
Das Schleifenende habe ich jetzt dynamisch an den letzten Wert in Spalte S angepasst.

Code:

Sub Nullen()
    Dim such As String, LetzteZeile As Long, i As Long
    such = "0 ST"
    LetzteZeile = Cells(Rows.Count, 19).End(xlUp).Row
    For i = 22 To LetzteZeile
        If Cells(i, 19) = such Then Cells(i, 11) = such
    Next i
End Sub

 

Danke für die Antwort, schatzi!
Komischer Weise passiert bei deinem Code immer noch nichts, ich weiß echt nicht warum. Jetzt habe ich ihn aber ganz leicht geändert und jetzt klappt er:

Code:

Sub Schaltfläche1024_Klicken()
    Dim such As String, LetzteZeile As Long, i As Long
    such = Cells(22, 19)
    LetzteZeile = Range("S65536").End(xlUp).Row
    For i = 1 To LetzteZeile
        If Cells(i, 19) = such Then Cells(i, 11) = such
    Next i
End Sub

Tjoa, Sachen gibts :D Auf jeden Fall Danke dafür :))