Hallo!
Ich habe ein kleines Problem. Und zwar habe ich eine ziemlich umfangreiche Exceldatei. Aus dieser Datei sollen bestimmte Zellen in eine andere Tabelle kopiert werden. Dafür habe ich erstmal folgenden Code geschrieben:
Private Sub CommandButton6_Click()
Range(„B8“).Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = „ATZ“
Selection.Copy
Workbooks.Open FileName:="\z001sf0001\altdaten\IDV\Testdatei555.xls"
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Jetzt kommt es wie gesagt zu Problemen. Zwar funktioniert die Prozedur, aber leider kann die Schleife immer nur den ersten Wert „ATZ“ ausgeben. Wie kann ich die Schleife verändern, dass sie, anchdem sie das erste „ATZ“ gefunden hat zwar die Zelle kopiert, danach aber trotzdem weiterläuft?
Und ich stehe noch vor einem zweiten Problem: Es sollen nicht nur die Daten aus der durchsuchten Spalte kopiert werden, sondern auch einige Zellen daneben. Also, wenn eine Spalte mit der Eingabe „ATZ“ gefunden wurde, dann sollen auch alle Zellen dieser Zeile mit kopiert werden.
Ich hoffe, dass ich mein Problem irgendwie verständlich vermitteln könnte und würde mich über Hilfe sehr freuen.
LG
Claudia