For Schleife - Zeile für Zeile
11.03.2019 20:58:52
Christian
ich versuche mich gerade an For-Schleifen und zwar möchte ich eine Tabelle zeilenweise nach zwei Begriffen sortieren und dann die Werte in der Zelle, in eine andere Tabelle zeilenweise ohne leerzeichen übertragen.
In der Spalte M befindet sich das Suchkriterium und in der Zeile N der Wert denn ich übertragen will. Aktuell wird mir leide der gesamte Spalteninhalt übertragen und nicht nur Zeile für Zeile. Könnt Ihr mir helfen?
Beste Grüße
Christian
Set wsPO = TabPO
Set WsZiel = TabMain
For lngAktZeile = 2 To lngLZeileZiel Step 1
' Von Spalte B bis J
If Range("M" & lngAktZeile).Value = "Confirmed PO" Or Range("M" & lngAktZeile). _
Value = "Unconfirmed PO" Then
wsZiel.Range("N2:N" & lngLZeileZiel).Copy wsPO.Range("K2:K" & lngLZeileZiel)
End If
Next lngAktZeile
Anzeige