komme gerade nicht weiter, obwohl -glaube ich- nicht schwierig.
Mein Problem:
ich öffne mittels Makro eine Datei, welche 49 Zeilen umfasst.
In Spalte 8 will ich nach Werten, die >=3 sind suchen. Sind solche Werte vohanden, soll die ganze Zeile kopiert werden und in das Workbook in dem sich das Makro befindet eingefügt werden (vorher soll noch geschaut werden, ob sich dort nicht bereits Daten befinden und wenn ja, dann soll die Zeile eben direkt darunter eingefügt werden. Sodenn soll die Schleife in der anderen Datei alle 49 Zeilen durchsuchen und im "True"-Falle diese Schrite wiederholen.
Mein kläglicher Versuch sieht etwas so aus:
Dim Zeile, Zeile2 as Integer
Zeile2 = 1
For Zeile = 2 To 49
Cells(Zeile,8).Select
If Cells(Zeile,8) >= 3 Then ActiveCell.EntireRow.Copy
Workbooks("SoUndSo").Sheets("Tabelle1").Activate
While ActiveSheet.Cells(Zeile2, 1) <> ""
Zeile2 = Zeile2 + 1
Wend cells(Zeile2,1).EntireRow.Select
Selection.Paste
Next
Hat jemend eine Lösung für mich?
Vielen Dank und Grüße
Mike E.