trotz intensivster Recherche auf der CD und in den online Archiven, ist es mir leider nicht gelungen, ein für mich funktionierendes Makro zu erstellen. Ich weiß das es sehr nervig sein kann, wenn im Grunde genommen immer dasselbe gefragt wird, obwohl sich hunderte von ähnlichen b.z.w fast gleichen Fragen und Beispieldateien in den Archiven befinden. Tatsache ist aber, das Excel in seinem ganzen Umfang so groß ist, das die individuellen Lösungsansätze einfach nicht weiterhelfen . . . vor allem denen nicht, die bei dim bim integer boolean wks data und was weiß ich noch alles mit einem Gehirnvacuum zu kämpfen haben ( so wie ich).
Mein Problem
Meine aktive Mappe (Extrakt.xls) soll eine Mappe öffnen (VSDBA00001.xls) - Funktioniert
Die Werte sind nach Spalte A sortiert (A1:EU17000)
1. sollen jetzt die Zellen in Spalte A gefunden werden, die größer als 54 sind.
Die dazugehörigen Zeilen(z.B A1:EU1) sollten dann in meine Mappe Extrakt.xls/Tabellenblatt Ü54 kopiert werden(nur Werte und untereinander !!!)
Sollten keine Daten vorhanden sein, soll es auch keine Fehlermeldung geben.
2.wird das ganze nochmals wiederholt, diesmal mit der Bedingung, das die Werte kleiner als 6 sind.
Die dazugehörigen Zeilen(z.B A5:EU5) sollten dann in meine Mappe Extrakt.xls/Tabellenblatt U6 kopiert werden(nur Werte und untereinander !!!)
Sollten keine Daten vorhanden sein, soll es auch keine Fehlermeldung geben.
3.wären es insgesamt 350 Mappen mit fortlaufender Nummer . . . eine elegante Lösung wäre natürlich schön, muß aber nicht sein
Wichtig sind die Punkte 1 und 2
Mein sehr bescheidener Versuch :
Workbooks.Open Filename:="C:\Excellent\04 Auswertung\VSDBA00001.xls"
If Range(Cells(row, 1), Cells(row, 1)).Value = "größer"54" Then
ActiveCells.EntireRows.Copy
startet mit einer Fehlermeldung den Debugger in der zweiten Zeile . . .?
Mit freundlichen Grüßen
Peter
PS- Das Größer Zeichen ist mir bekannt, gab bei der Vorschau einen Fehler