24
VBA Import Textdatei
Hi Leute!
Ich möchte gern eine Textdatei einlesen, im Excel ausgeben und splitten.
Jetzt habe ich schon eine VBA-Formel bekommen:
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Open "C:\test.txt" For Input As #1
'Startpunkt
X = 1
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
Close #1
For j = 1 To X
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Problem an der ganzen Sache ist, dass sich die Textdatei ständig automatisch aktualisiert. Ich möchte immer nur die untersten (also neuesten) 70 Zeilen eingelesen haben.
Kann mir jemand den entscheiden Tipp geben.
Ich danke Euch
Ich möchte gern eine Textdatei einlesen, im Excel ausgeben und splitten.
Jetzt habe ich schon eine VBA-Formel bekommen:
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Open "C:\test.txt" For Input As #1
'Startpunkt
X = 1
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
Close #1
For j = 1 To X
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Problem an der ganzen Sache ist, dass sich die Textdatei ständig automatisch aktualisiert. Ich möchte immer nur die untersten (also neuesten) 70 Zeilen eingelesen haben.
Kann mir jemand den entscheiden Tipp geben.
Ich danke Euch
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 221471
Url: https://administrator.de/forum/vba-import-textdatei-221471.html
Ausgedruckt am: 19.04.2025 um 08:04 Uhr
24 Kommentare
Neuester Kommentar
HAllo
Probiers mal mit dieser Anpassung
Nach dem einlesen der Datei wird die letzte Zeile mit Inhalt gesucht, und dann 70 abgezogen (Z)
Von dort aus sollte die Auswertung gestartet werden
Close #1
'letzte Zeile mit Inhalt in Spalte A suchen, und 70 abziehen
'= Startpunkt, um Text zu splitten
Z = Range("A65536").End(xlUp).Row - 70
For j = Z To X
Gruss Meierjo
Probiers mal mit dieser Anpassung
Nach dem einlesen der Datei wird die letzte Zeile mit Inhalt gesucht, und dann 70 abgezogen (Z)
Von dort aus sollte die Auswertung gestartet werden
Close #1
'letzte Zeile mit Inhalt in Spalte A suchen, und 70 abziehen
'= Startpunkt, um Text zu splitten
Z = Range("A65536").End(xlUp).Row - 70
For j = Z To X
Gruss Meierjo
Hallo Maierjo,
vielen Dank schon mal. Leider kommt ein Laufzeitfehler, eventuell habe ich deine Bausteine nicht richtig eingefügt, schau mal hier:
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Open "C:\test lang.txt" For Input As #1
'Startpunkt
X = 0
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
Close #1
z = Range("A65536").End(xIUp).Row - 70
For j = z To X
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Was meinst Du, wo mein Fehler liegt?
vielen Dank schon mal. Leider kommt ein Laufzeitfehler, eventuell habe ich deine Bausteine nicht richtig eingefügt, schau mal hier:
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Open "C:\test lang.txt" For Input As #1
'Startpunkt
X = 0
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
Close #1
z = Range("A65536").End(xIUp).Row - 70
For j = z To X
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Was meinst Du, wo mein Fehler liegt?
Hallo
- Wie heisst der Laufzeitfehler?
- Wo kommt den der Laufzeitfehler?
- Wieviele Zeilen hat die Textdatei, die importiert werden soll?
- Sind eventuell leere Zeilen in der Textdatei?
Gruss meiejo
- Wie heisst der Laufzeitfehler?
- Wo kommt den der Laufzeitfehler?
- Wieviele Zeilen hat die Textdatei, die importiert werden soll?
- Sind eventuell leere Zeilen in der Textdatei?
Gruss meiejo
Hallo,
- Laufzeitfehler 1004 (Anwendungs- und objektdefinierter Fehler)
- er kommt, nachdem er alles in das Tabellenblatt übernommen hat, aber noch vor dem Splitten
- die Textdatei hat über 2000 Zeilen
- es kommen ca alle 50 Zeilen 3 Leerzeilen, ist aber immer unterschiedlich
Er schreibt übrigens trotzdem alle 2031 Zeilen ins Tabellenblatt, also nicht nur die 70
Gruß grasihuepfer
- Laufzeitfehler 1004 (Anwendungs- und objektdefinierter Fehler)
- er kommt, nachdem er alles in das Tabellenblatt übernommen hat, aber noch vor dem Splitten
- die Textdatei hat über 2000 Zeilen
- es kommen ca alle 50 Zeilen 3 Leerzeilen, ist aber immer unterschiedlich
Er schreibt übrigens trotzdem alle 2031 Zeilen ins Tabellenblatt, also nicht nur die 70
Gruß grasihuepfer
Hallo
Habe die Zeile "Z = Range("a65536").End(xlUp).Row"
nochmals neu eingetippt, jetzt funktionierts. War wahrscheinlich ein nicht darstellbares Zeichen im String.
Ja, ist korrekt, er liest alle Zeilen ein, splittet aber nur die letzten 70 Zeilen. Den Rest lässt er stehen.
Wenn du nur die 70 Zeilen einlesen und splitten willst, musst du meines Erachtens 2 Durchgänge machen, zuerst das Textfile einlesen, damit Excel weiss, wieviele Zeilen die Datei enthält, und dann im 2. Anlauf nur die letzten 70 Zeilen einlesen und splitten.
Gruss
Habe die Zeile "Z = Range("a65536").End(xlUp).Row"
nochmals neu eingetippt, jetzt funktionierts. War wahrscheinlich ein nicht darstellbares Zeichen im String.
Ja, ist korrekt, er liest alle Zeilen ein, splittet aber nur die letzten 70 Zeilen. Den Rest lässt er stehen.
Wenn du nur die 70 Zeilen einlesen und splitten willst, musst du meines Erachtens 2 Durchgänge machen, zuerst das Textfile einlesen, damit Excel weiss, wieviele Zeilen die Datei enthält, und dann im 2. Anlauf nur die letzten 70 Zeilen einlesen und splitten.
Gruss
Hallo,
kannst Du mir eventuell die Formel schicken? ich bin wirlich kein Ass in VBA.
Danke und Gruß grasihuepfer
kannst Du mir eventuell die Formel schicken? ich bin wirlich kein Ass in VBA.
Danke und Gruß grasihuepfer
Hallo
Könnte in etwa so aussehen
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Open "C:\test lang.txt" For Input As #1
'Startpunkt
X = 0
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
Close #1
'Zeilen zählen mit Inhalt, abzüglich 70
Z = Range("A65536").End(xlUp).Row - 70
'alle Zeilen löschen, ausser die letzten 70
Range("A1:A" & Z).Delete shift:=xlUp
'die verbleibenden 70 Zeilen splitten
For j = 1 To 70
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Gruss meierjo
Könnte in etwa so aussehen
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Open "C:\test lang.txt" For Input As #1
'Startpunkt
X = 0
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
Close #1
'Zeilen zählen mit Inhalt, abzüglich 70
Z = Range("A65536").End(xlUp).Row - 70
'alle Zeilen löschen, ausser die letzten 70
Range("A1:A" & Z).Delete shift:=xlUp
'die verbleibenden 70 Zeilen splitten
For j = 1 To 70
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub
Gruss meierjo
Superklasse Meierjo!!!
Du hast mir echt aus der patsche geholfen! Das Makro funktioniert einwandfrei. jetzt habe ich noch ein letztes anliegen: wenn ich statt der letzten 70 Zeilen die ersten 15 Zeilen importieren und splitten möchte, welchen Zeilen im Makro muss ich wie umschreiben?
Danke schon mal im voraus
Du hast mir echt aus der patsche geholfen! Das Makro funktioniert einwandfrei. jetzt habe ich noch ein letztes anliegen: wenn ich statt der letzten 70 Zeilen die ersten 15 Zeilen importieren und splitten möchte, welchen Zeilen im Makro muss ich wie umschreiben?
Danke schon mal im voraus
Hallo
Super, wenns klappt, freut mich.
Um die ersten 15 Zeilen zu erhalten, musst du 3 Zeilen umschreiben
'alle Zeilen zählen mit Inhalt
Z = Range("A65536").End(xlUp).Row
'Zeile 16 bis zur letzten löschen
Range("A16:A" & Z).Delete shift:=xlUp
'die verbleibenden 15 Zeilen splitten
For j = 1 To 15
Gruss meierjo
Super, wenns klappt, freut mich.
Um die ersten 15 Zeilen zu erhalten, musst du 3 Zeilen umschreiben
'alle Zeilen zählen mit Inhalt
Z = Range("A65536").End(xlUp).Row
'Zeile 16 bis zur letzten löschen
Range("A16:A" & Z).Delete shift:=xlUp
'die verbleibenden 15 Zeilen splitten
For j = 1 To 15
Gruss meierjo
Hi Meierjo,
Super danke!
Jetzt habe ich leider schon wieder ein neues Problem. Ich habe die ersten Zeilen bzw. Zellen, die durch das Makro ausgegeben werden, mit anderen Zellen durch Formeln verknüpft. und jetzt passiert wahrscheinlich folgendes: Die Ergebnisse werden berechnet, wenn das Makro komplett eingelesen und ausgegeben wurde. wenn aber nun alle Zellen wieder gelöscht werden und die ersten 70 neu geschrieben werden, wird mir in allen verknüpften Zellen der #Bezug-Fehler angezeigt. Hast Du eventuell noch eine Idee, wie man das umgehen könnte?
Danke Dir schon mal im voraus
Gruß grasihuepfer
Super danke!
Jetzt habe ich leider schon wieder ein neues Problem. Ich habe die ersten Zeilen bzw. Zellen, die durch das Makro ausgegeben werden, mit anderen Zellen durch Formeln verknüpft. und jetzt passiert wahrscheinlich folgendes: Die Ergebnisse werden berechnet, wenn das Makro komplett eingelesen und ausgegeben wurde. wenn aber nun alle Zellen wieder gelöscht werden und die ersten 70 neu geschrieben werden, wird mir in allen verknüpften Zellen der #Bezug-Fehler angezeigt. Hast Du eventuell noch eine Idee, wie man das umgehen könnte?
Danke Dir schon mal im voraus
Gruß grasihuepfer
Hallo
Ist klar, wenn du eine Formel hast, die sich zB auf die Zelle A12 bezieht, und diese Zeile wird ja durch da Makro gelöscht, ist der Bezug ja weg, daher der #Bezug Fehler.
Wenn möglich, die Formel anpassen, oder per Makro die Formel nach dem löschen der Zeilen wieder neu erstellen lassen.
Gruss
Ist klar, wenn du eine Formel hast, die sich zB auf die Zelle A12 bezieht, und diese Zeile wird ja durch da Makro gelöscht, ist der Bezug ja weg, daher der #Bezug Fehler.
Wenn möglich, die Formel anpassen, oder per Makro die Formel nach dem löschen der Zeilen wieder neu erstellen lassen.
Gruss
Hallo,
Kannst Du mir da noch mal Schützenhilfe leisten? Wie sieht das Makro dazu aus, um die Formel nach dem löschen neu zu erstellen bzw. wie soll ich denn die Formel umschreiben? Ich muss ja diesen Vorgang (Makro) öfters wiederholen, da ich immer wieder neue Textdateien bearbeiten muss.
Man müsste also eine einheitliche Lösung finden, die sich immer wiederholen lässt, ohne Fehler zu bringen.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Gruss
Kannst Du mir da noch mal Schützenhilfe leisten? Wie sieht das Makro dazu aus, um die Formel nach dem löschen neu zu erstellen bzw. wie soll ich denn die Formel umschreiben? Ich muss ja diesen Vorgang (Makro) öfters wiederholen, da ich immer wieder neue Textdateien bearbeiten muss.
Man müsste also eine einheitliche Lösung finden, die sich immer wiederholen lässt, ohne Fehler zu bringen.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Gruss
Hallo
Dazu bräuchte ich am besten die Textdatei, sowie die bestehende Excel-Datei, in der das Makro drin ist.
Dann müsste ich möglichst genau wissen, was da gesplittet werden muss, und was davon dann schlussendlich gebraucht wird.
Wie kompliziert ist denn die Formel?
Kennst du den Makro-Recorder? Damit kannst du die Formel aufzeichnen.
Gruss meierjo
Dazu bräuchte ich am besten die Textdatei, sowie die bestehende Excel-Datei, in der das Makro drin ist.
Dann müsste ich möglichst genau wissen, was da gesplittet werden muss, und was davon dann schlussendlich gebraucht wird.
Wie kompliziert ist denn die Formel?
Kennst du den Makro-Recorder? Damit kannst du die Formel aufzeichnen.
Gruss meierjo
Hi,
mir ist gerade noch ne andere Idee gekommen. Was hälst du davon:
Ich habe ja Tabellenblatt 1. Hier wird dein Makro mit den letzten 70 Zeilen ausgeführt und hier sind auch alle Zellen verknüpft durch die Formeln.
Wenn ich aber jetzt dein Makro für Tabellenblatt 2 verwende, quasi als temporäres Tabellenblatt, und dann noch mit einem neuen Makro die fertigen 70 Zeilen in das erste Tabellenblatt kopiere, würde doch der Bezugfehler nicht kommen. Im Grunde wird ja dann in Blatt 1 nichts gelöscht. Die Makros lass ich dann einfach nacheinander laufen.
Ich bräuchte allerdings noch dieses wahrscheinlich relativ einfache und kurze Makro zum Kopieren. Und zwar betrifft das den Bereich A1:W70. Es sollen letztendlich A1:W70 aus Tabelle 2 in A1:W70 in Tabelle 1 kopiert werden.
Wäre super, wenn Du mir hier noch mal helfen könntest.
Gruss grasihuepfer
mir ist gerade noch ne andere Idee gekommen. Was hälst du davon:
Ich habe ja Tabellenblatt 1. Hier wird dein Makro mit den letzten 70 Zeilen ausgeführt und hier sind auch alle Zellen verknüpft durch die Formeln.
Wenn ich aber jetzt dein Makro für Tabellenblatt 2 verwende, quasi als temporäres Tabellenblatt, und dann noch mit einem neuen Makro die fertigen 70 Zeilen in das erste Tabellenblatt kopiere, würde doch der Bezugfehler nicht kommen. Im Grunde wird ja dann in Blatt 1 nichts gelöscht. Die Makros lass ich dann einfach nacheinander laufen.
Ich bräuchte allerdings noch dieses wahrscheinlich relativ einfache und kurze Makro zum Kopieren. Und zwar betrifft das den Bereich A1:W70. Es sollen letztendlich A1:W70 aus Tabelle 2 in A1:W70 in Tabelle 1 kopiert werden.
Wäre super, wenn Du mir hier noch mal helfen könntest.
Gruss grasihuepfer
Hallo und guten morgen
Die Zellen kopierst du mit folgenden Teil (zB am Ende des bestehenden Makros einfügen):
Worksheets("Tabelle2").Range("A1:W70").Copy
Worksheets("Tabelle1").Range("A1:W70").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Zum Kennenlernen von Excel und VBA kann ich dir übrigens die Seite http://www.herber.de/ empfehlen.
Hat viele Erklärungen und praktische Beispiele. Damit habe ich bereits vor Jahren meine ersten Geh-Versuche in VBA gemacht.
Gruss Meierjo
Die Zellen kopierst du mit folgenden Teil (zB am Ende des bestehenden Makros einfügen):
Worksheets("Tabelle2").Range("A1:W70").Copy
Worksheets("Tabelle1").Range("A1:W70").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Zum Kennenlernen von Excel und VBA kann ich dir übrigens die Seite http://www.herber.de/ empfehlen.
Hat viele Erklärungen und praktische Beispiele. Damit habe ich bereits vor Jahren meine ersten Geh-Versuche in VBA gemacht.
Gruss Meierjo
Hi Meierjo,
vielen Dank für Deine tatkräftige Unterstützung. Das war echt eine große Hilfe für mich!!
Alles Gute und bis bald
vielen Dank für Deine tatkräftige Unterstützung. Das war echt eine große Hilfe für mich!!
Alles Gute und bis bald
Hi Meierjo,
um noch mal auf diese Frage zurück zu kommen. Gibt es eigentlich de Möglichkeit, gleich nur die ersten 15 Zeilen einzulesen. Problem ist, dass die Textdatei ziemlich groß ist. Nun dauert es ewig, bis Excel alles erst mal schreibt um dann wieder alle Zeilen ab Zeile 15 zu löschen. Man könnte ja geschickterweise nur die ersten 15 Zeilen einlesen und splitten.
Hast Du eine Idee?
Danke im voraus
um noch mal auf diese Frage zurück zu kommen. Gibt es eigentlich de Möglichkeit, gleich nur die ersten 15 Zeilen einzulesen. Problem ist, dass die Textdatei ziemlich groß ist. Nun dauert es ewig, bis Excel alles erst mal schreibt um dann wieder alle Zeilen ab Zeile 15 zu löschen. Man könnte ja geschickterweise nur die ersten 15 Zeilen einlesen und splitten.
Hast Du eine Idee?
Danke im voraus
Gutes mörgeli
Diesen Teil des Codes anpassen:
Open "C:\temp\test lang.txt" For Input As #1
'Startpunkt
X = 0
'Do While Not EOF(1)
' Line Input #1, TXT
' Cells(1, 1).Offset(X, 0) = TXT
' X = X + 1
' Loop
For I = 1 To 15
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Next
Gruss
Diesen Teil des Codes anpassen:
Open "C:\temp\test lang.txt" For Input As #1
'Startpunkt
X = 0
'Do While Not EOF(1)
' Line Input #1, TXT
' Cells(1, 1).Offset(X, 0) = TXT
' X = X + 1
' Loop
For I = 1 To 15
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Next
Gruss
Vielen Dank,
dann müsste es doch auch möglich sein, den punkt 70 Zeilen vor Ende zu finden und nur von hier aus bis zum Ende einzulesen. Ein weiteres Problem, was ich noch habe, ist das die Texte unterschiedlich viele Spalten haben. Und wenn ich dann die aktualisierte Textdatei einlese und sich Zeilen verkürzt haben, bleibt vom vorhergehenden Import noch etwas stehen. Man müsste also das Tabellenblatt in einem bestimmtem Bereich vor dem nächsten Import löschen.
dann müsste es doch auch möglich sein, den punkt 70 Zeilen vor Ende zu finden und nur von hier aus bis zum Ende einzulesen. Ein weiteres Problem, was ich noch habe, ist das die Texte unterschiedlich viele Spalten haben. Und wenn ich dann die aktualisierte Textdatei einlese und sich Zeilen verkürzt haben, bleibt vom vorhergehenden Import noch etwas stehen. Man müsste also das Tabellenblatt in einem bestimmtem Bereich vor dem nächsten Import löschen.
Hallo
Dann könntest du im Code in etwa folgendes eingeben:
X = 0
For I = 1 To 120
Line Input #1, TXT
If I > 90 Then
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
End If
Next
So würde der Code zB die Zeilen 91 bis 120 einlesen
Am Anfang vom Ccode
Cells.Delete shift:=xlUp
leert die ganze Tabelle.
Gruss meierjo
dann müsste es doch auch möglich sein, den punkt 70 Zeilen vor Ende zu finden und nur von hier aus bis zum Ende
Wenn das Textfile immer gleich viele Zeilen hat, dann jaDann könntest du im Code in etwa folgendes eingeben:
X = 0
For I = 1 To 120
Line Input #1, TXT
If I > 90 Then
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
End If
Next
So würde der Code zB die Zeilen 91 bis 120 einlesen
Ein weiteres Problem, was ich noch habe, ist das die Texte unterschiedlich viele Spalten haben. Und wenn ich dann die
aktualisierte Textdatei einlese und sich Zeilen verkürzt haben, bleibt vom vorhergehenden Import noch etwas stehen. Man
müsste also das Tabellenblatt in einem bestimmtem Bereich vor dem nächsten Import löschen.
aktualisierte Textdatei einlese und sich Zeilen verkürzt haben, bleibt vom vorhergehenden Import noch etwas stehen. Man
müsste also das Tabellenblatt in einem bestimmtem Bereich vor dem nächsten Import löschen.
Am Anfang vom Ccode
Cells.Delete shift:=xlUp
leert die ganze Tabelle.
Gruss meierjo
Moin Moin,
leider ändert sich die Länge der Textdatei ständig, von daher ist mit dem oberen Code leider nichts zu machen.
Wie sieht es denn aus, wenn man den Text von hinte nach vorn einlesen und schreiben könnte?
Dann gebe es die Möglichkeit, erst alles einzulesen und quasi die ersten 70 Zeilen (eigentlich dann die letzten ) zu schreiben.
Hast Du ne Idee?
leider ändert sich die Länge der Textdatei ständig, von daher ist mit dem oberen Code leider nichts zu machen.
Wie sieht es denn aus, wenn man den Text von hinte nach vorn einlesen und schreiben könnte?
Dann gebe es die Möglichkeit, erst alles einzulesen und quasi die ersten 70 Zeilen (eigentlich dann die letzten ) zu schreiben.
Hast Du ne Idee?
Hallo
wie lange ist den die Textdatei?? Wenn ich eine Textdatei mit ca 50'000 Zeilen einlese, dauert das Einlesen ca 3 Sekunden.
Ich denke, das sollte schnell genug sein.
Wenn zuerst alles eingelesen werden soll, und dann zB nur die letzten 70 weiter verwertet werden, dauert das mE gleich lange, wie wenn du alle eingelesenen Zeilen schreibst.
Gruss meierjo
wie lange ist den die Textdatei?? Wenn ich eine Textdatei mit ca 50'000 Zeilen einlese, dauert das Einlesen ca 3 Sekunden.
Ich denke, das sollte schnell genug sein.
Wenn zuerst alles eingelesen werden soll, und dann zB nur die letzten 70 weiter verwertet werden, dauert das mE gleich lange, wie wenn du alle eingelesenen Zeilen schreibst.
Gruss meierjo
Meine Textdatei hat ca. 2000 Zeilen. Sie ändert sich 1 - 2 Mal die Minute und muss relativ zügig abgefragt werden. Im Moment dauert bei mir die Makroabfolge mit insgesamt 4 Makros 4 Sekunden + 2 Sekunden für die Berechnung aller meiner verbauten Formeln.
Das Ganze könnte schon etwas schneller gehen. Es geht hier um Online-Poker Dateien, die schnell abgefragt werden müssen, um dann selbst schnell die richtigen Entscheidungen treffen zu können. Ist etwas zu komplex, um das alles zu erläutern.
Es wäre halt toll gewesen, wenn man etwas Zeit einsparen würde.
Aber was nicht geht, geht halt nicht.
Ich dank Dir für die Hilfe
Das Ganze könnte schon etwas schneller gehen. Es geht hier um Online-Poker Dateien, die schnell abgefragt werden müssen, um dann selbst schnell die richtigen Entscheidungen treffen zu können. Ist etwas zu komplex, um das alles zu erläutern.
Es wäre halt toll gewesen, wenn man etwas Zeit einsparen würde.
Aber was nicht geht, geht halt nicht.
Ich dank Dir für die Hilfe
Hi meierjo,
hab bezüglich der Schnelligkeit der Makros was tolles gefunden. Schau mal hier: http://www.experto.de/en/b2b/office/excel/excel-vba-makros-turbo-schnel ...
Die Makros laufen in weniger als einer halben Sekunde durch, echt super!!!
hab bezüglich der Schnelligkeit der Makros was tolles gefunden. Schau mal hier: http://www.experto.de/en/b2b/office/excel/excel-vba-makros-turbo-schnel ...
Die Makros laufen in weniger als einer halben Sekunde durch, echt super!!!
