in meiner Tabelle stehen in 20 Zellen pro Spalte verschiedenen Werte. Bei einigen Zellen in der Spalte "J" steht "n.a." drin. Ich brauch nun ein Makro, dass auf Spalte "J" schaut und vergleicht, ob in der betreffenden Zelle ein Wert oder "n.a." steht. Sollte ein Wert drin stehen, dann soll das Makro die ganze Zeile in ein zweites Tabelleblatt kopieren. Mein erster Versuch dazu schaut so aus.
ub Daten_kopieren2()
Dim i As Byte
Application.ScreenUpdating = False
Sheets("Input").Select
Rows("7:186").Select
Selection.ClearContents
Range("A4").Select
For i = 7 To 200
Sheets("Chromeloen Ausgabe").Select
If Cells(10, i).Value "n.a." Then
Rows(i).Select
Selection.Copy
Sheets("Input").Select
Rows(i).Select
ActiveSheet.Paste
End If
Next i
Application.ScreenUpdating = True
End Sub
Leider ist es nun so, dass das Makro einfach irgendwelche Zeilen kopiert, egal ob in Spalte "J" ein Wert drin steht oder "n.a.". Kann mir hier bitte jemand weiterhelfen.
Gruß
Markus