Office: Geschlossene Excel Datei nach String durchsuchen

Ok ja das könnte ich machen. Und mit einer neuen Datenbank meinst du einfach eine neue Excel Datei?
Genau es sind etwa 7000 Spalten. Es wäre möglich dass ich nicht alle der Spalten kopiere sondern nur die in der in der zweiten Zeile (die die immer 3 Zeilen unter der ersten ist) etwas anderes als "0" steht. Ich dachte nur es wäre wahrscheinlich weniger rechenintensiv gleich eine ganze Zeile als solches zu kopieren als viele einzlene Werte einer Zeile die davor auch noch gesucht werden müssen. Oder habe ich mich da geirrt?

Ich habe jetzt Mal nur das Kopieren auf diese Art versucht.

PHP:

         Sub Kopieren()
Dim wsT As Worksheet
Blatt einfügen nach erstem Blatt und Inhalt von anderere Datei kopieren
Application.ScreenUpdating = False
Set wsT = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(6))
Workbooks.Open Filename:="C:UsersAdminDesktopISSACMoMix_10000nM_1.xlsx"
ActiveWorkbook.Worksheets(1).Rows(112).Copy
wsT.Range("A1").Offset(0, 0).Paste
ActiveWorkbook.Worksheets(1).Rows(115).Copy
wsT.Range("A1").Offset(1, 0).Paste
ActiveWorkbook.Worksheets(1).Rows(153).Copy
wsT.Range("A1").Offset(2, 0).Paste
ActiveWorkbook.Worksheets(1).Rows(156).Copy
wsT.Range("A1").Offset(3, 0).Paste
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub


 

Liefer mal ein "echtes" abgespecktes Beispiel der Messdaten bzw. der Textdatei.
Hiermit kannst Du das splitten

 

Bin mir nicht sicher was du meinst, weil genau das war doch das File das ich vorhin hochgeladen habe oder? ^^
Bzw wenn das mit dem von dir empfohlen Programm was anderes ist: Soll ich dann einfach nur eines der Einzelteile hochladen oder wie?

Sorry falls das eine blöde Frage ist

 

Willst Du damit sagen, dass Du von der Anlage oder woher auch immer eine 2GB grosse Excel Datei bekommst?
Wenn ja, dann lade mal eine Beispiel mit mehr als 200 Zeilen hoch.
Andererseits hast Du geschrieben

Also: Lade die abgespeckte Textdatei hoch!

 

Ich bekomme vom Gerät ein .raw file mit einer Größe 250 MB das ich aber in ein .txt file konvertieren muss (das dann 2 GB hat) um es via VBA auswerten zu können. Mit dem Ursprünglichen File ist man leider an die Auswertesoftware des Geräteherstellers gebunden und entsprechend eingeschränkt.

Das wäre dann genau das File das ich schon hochgeladen habe nur mit mehr Spalten in den farblich (rot und grün) markierten Zeilen. Ich habe die Spaltenzahl fürs Hochladen reduziert weil es sonst zu groß zum Hochladen gewesen wäre.
Wollte das selbe file jetzt nochmal als .txt abspeichern und hochladen nur wird es dadurch dann leider zu groß um hochgeladen zu werden =/

 

Oh nein sorry habe mich nur zu dumm angestellt... jetzt hat es funktioniert

 

Das sieht ja schon mal besser aus.
Kannst Du jetzt noch eine Datei mit mehr Datensätzen liefern?

 

Ok diese Version ist jetzt etwas größer.

 

Ok, Danke.
Wie sieht es mit der Struktur der Datei aus?
In der zeile 98 startet es mit

Das wiederholt sich alle 41 zeilen, soll heissen
Zeile 98, 139, 180,221,262,303,344,385, ...
enthalten die Muster nach denen Du suchst, also scan=1, scan=2, ...
Die Zeilen +14 bzw +17 enthalten dann die Daten, die Du haben möchtest, richtig? Also
98: 112, 115
139: 153, 156
180: 194, 197
Die Daten müsste man also aus der Datei rausfischen???

 

Ich sage Danke!

Ganz genau. Die Struktur sollte immer so sein

Also ich würde zum Beispiel dem Makro vorgeben dass ich die Daten zu Scans 3 bis 5 haben möchte und dann soll es mir die Zeilen 194 und 197 (scan 3), 235 und 238 (scan 4) und 276 und 279 (scan 5) kopieren und in eine neue Arbeitsmappe einfügen.

 

Dann könnte man das ganze doch eventuell einfacher gestalten, wenn ich das richtig sehe und die Datei immer so aufgebaut ist wie im Beispiel.

Du gibst als Suchbegriff Scan=3, dann stehen die Daten in den Zeilen 194 und 197,
Scan=5: 276, 279
Scan=10: 481, 484
Also immer 98 +(Scan-1)*41 und dann 14 bzw. 17 addieren und man hat die Zeilennummern mit den Daten.

Ob das bei einer 2GB großen Datei performant ist, siehst Du dann.
Sollich Dir da was in diese Richtung "basteln"?

 

Das wäre echt toll wenn das so funktionieren würde, vielen vielen Dank *Smilie

 

Erster Versuch.
In B2 den Dateinamen eingeben und in B3 die Nummer des Scans.
Am besten Du testest das erst mal mit einer "kleinen" Datei.
Beim Test mit der grossen Datei, erstmal kleine Scannummern.
Das solte einigermassen schnell gehen. Und dann "steigern" *Smilie

 

Wow es funktioniert vielen Dank *Smilie

Jetzt muss ich deinen Code nur noch gut genug durchschauen um ihn etwas anpassen zu können (sieht um einiges fortgeschrittener aus die klobigen codebrocken dich ich immer zusammenschustere *biggrin.gif*

Werde das jetzt mal versuchen *Smilie darf ich eventuell nochmal auf dich zurückkommen wenn ich etwas davon nicht verstehe? *Smilie

Ps.: falls du zufällig in wien wohnst bringe ich dir gerne mal einen sixpack vorbei ;D

 

Ja, klar.

Was mich interessiert, wie die Performance bei der großen Datei ist?

PS Wien ist nicht gerade um die Ecke, in km fast 4-stellig.