26 Antworten in diesem Thema

[Wenke]

Hallo etabeta,

Zitat

könnte mann es auch für das Contra-Gardner system benutzen?

dieses System kenne ich nicht, da kann ich das nicht beurteilen.

Das Tool ist nur zum Auswerten von Permanenzen geeignet.

Es werden ja nur die Ecarthöhen angezeigt.
Wann und in welcher Höhe gespielt wird, das entscheidet der Nutzer.

Fürs praktische Spiel müssen die Blätter einen anderen Aufbau haben.
Jetzt wäre das viel zu umständlich.

Beste Grüße
Wenke

[etabeta]

Danke Wenke

die contra-garden ist von van broeckele oder wie er heist

er spielt mit den Ecart, also wenn eine chance in vorteil ist geht er mit

ciaoooooooooooooooooooo

[emtidi]

Hallo Wenke
Leider komme ich erst heute dazu, mich für deine Mühen zu bedanken, aber ich habe in der Woche einfach zu viel um die Ohren, so kann ich auch erst heute mit deinem neuen Programm arbeiten.
Nochmals vielen Dank und ein schönes Wochenende
emtidi

[Monopolis]

Moin Wenke,

das Einlesen funktioniert bei mir nicht.

Wo werden die eingelesenen txt.Permanenzen abgelegt?

Im Blatt Perm wird in Zelle A3 ==> #Bezug! geschrieben.

Alles andere scheint zu laufen, Filtern etc.

Grüße, Monopolis.

[Monopolis]

Moin emtidi,

emtidi sagte am 2 Dec 2006, 06:09:

Hallo Wenke
Leider komme ich erst heute dazu, mich für deine Mühen zu bedanken, aber ich habe in der Woche einfach zu viel um die Ohren, so kann ich auch erst heute mit deinem neuen Programm arbeiten.
Nochmals vielen Dank und ein schönes Wochenende
emtidi

läuft das Tool auf Deinem Rechner? Kannst Du damit txt-Dateien einlesen?

Grüße, Monopolis.

[Wenke]

Hallo Monopolis,
Ich hab es gerade neu ausprobiert.
Alles läuft bei mir korrekt ab.
Hier noch eine "Kurz-Bedienungsanleitung":

• Im Blatt Einlesen auf den gelben Butten klicken
  
• Ein Fenster öffnet sich
  
• die Textpermanenz suchen und Markieren
  
• auf Öffnen klicken

Alles solange wiederholen, bis alle Textpermanenzen eingelesen sind.

Wechseln ins Blatt "Berechnung":

Die 1. Permanenz steht sofort im Blatt Berechnung.
Zum Anzeigen der nächsten Perm, einfach auf den gelben Button „nächste Perm“ anzeigen, klicken.

Alle Permanenzen werden im Blatt "Perm" augelistet.

Vielleicht ist etwas beim entpacken schief gelaufen?

- Alten Download und die entpackte Datei löschen.
- Danach neu runterladen und alles noch einmal ausprobieren.

Die Zelle A3 hat keine Formel
In Zelle A4 steht die Formel = A1
In Zelle A5 steht die Formel = A4+1

Die Zellen A6 bis A53 enthalten die aus "A5" kopierte Formel.

Alle die das Tool heruntergeladen haben:
Einfach mal sagen, ob es klappt oder ob es nicht klappt.
Falls ihr bei der weiteren Bedienung Fragen auftauche, einfach nachfragen.

Hallo emditi,
Arbeit entschuldigt alles.
Irgendwie braucht man auch was zum "Beißen".

Beste Grüße
Wenke

Bearbeitet von Wenke, 02 December 2006 - 10:53.

[Monopolis]

Moin Wenke,

vielen Dank für Deine Antwort.
Beim "alten" Tool brauchte man nicht zu öffen, aber dies
wird wohl nicht funktionieren, weil die txt-Datei gleich nach
dem Anklicken eingelesen wird.

Welche Excel-Version hast Du? Ich habe 2003, könnte es daran liegen?

Grüße, Monopolis.

[Wenke]

Hallo Monopolis,
ich nutze Office XP.
Im Programm sind nur Codezeilen die auch Excel 97 verwenden kann.
Höhere Versionen sollten diesen Grundcode auch verstehen.

Du hast aber Recht, das Programm
- liest die Textperm ein,
- verarbeitet sie sofort
- danach warte es auf die nächste Textdatei.

Wenn alle Perm eingelesen sind, ins Blatt eingelesen ist ins Berechnung wechseln.

Falls das nicht klappt, dann müssen wir das Programm teilen und einzeln ablaufen lassen.
Eine andere möglichkeit sehe ich nicht.

Beste Grüße
Wenke

[Monopolis]

Moin Wenke,

ich habe die Perm kopiert und ich Spalte H gestellt (s. u.)!
Es wird ein Blatt mit dem Namen der txt-Datei angelegt und die Pern
auf dieses Blatt in Spalte B kopiert. Spalte H bleibt leer.

Meine Dateien bezechne ich mit JJMMTT, also die vom 1. Dezember
heißt 061201.txt

Wofür wird die Spalte H überhaupt gebraucht?

Grüße, Monopolis.


Sub Perm_holen_1()
Dim Permende As Range
Set Permende = Range("A65536").End(xlUp)

Range(Permende, ("A13")).Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<37", Operator:=xlAnd
Selection.Copy Destination:=Range("H1") Range(Permende, ("A13")).AutoFilter
Range("H1") = "=RIGHT(R9C1,10)"
Range("H1") = Range("H1").Value
Range("G2", Range("H65536").End(xlUp).Offset(0, -1)) = "=R[-1]C+1"
Range("G2", Range("H65536").End(xlUp).Offset(0, -1)) = Range("G2", Range("H65536").End(xlUp).Offset(0, -1)).Value
Range("G2", Range("H65536").End(xlUp).Offset(0, -1)).Copy Destination:=Sheets("Perm").Range("A2")
Range("H:H").Copy Destination:=Sheets("Perm").Range("IV1").End(xlToLeft).Offset(0, 1)
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub

[Wenke]

Hallo Monopolis,
Es sollen nur die *.txt Dateien importiert werden.
Der Dateiname spielt keine Rolle

Zitat

auf dieses Blatt in Spalte B kopiert

in Spalte "B"?????
es sollte Spalte A sein.

Zitat

Wofür wird die Spalte H überhaupt gebraucht?

Das ist im "neu angelegten" Excelblattt,
die Spalte H wird ohne Handwechsel in Spalte H kopiert
dort wird dann später das datum und die Permanenzlänge eineigetragen.
Danach ´marschiert die Perm, jetzt ohne Handwechsel ins Blatt Perm.
Das neue Excelblatt wird später gelöscht.

Beste Grüße
Wenke

[Monopolis]

Moin Wenke,

Zitat

Hallo Monopolis,
Es sollen nur die *.txt Dateien importiert werden.
Der Dateiname spielt keine Rolle

das Datumsformat ist wichtig: 2006-12-02.txt o. glw. muss die Datei
heißen.

061202.txt wird nicht gefressen, weil das Format nicht passt.

So einfach ist das!


Abendgrüße

Monopolis.

Bearbeitet von Monopolis, 02 December 2006 - 22:00.

[Wenke]

Hallo Monopolis

Zitat

das Datumsformat ist wichtig: 2006-12-02.txt o. glw. muss die Datei
heißen.

061202.txt wird nicht gefressen, weil das Format nicht passt.

So einfach ist das!

Ein tolles Ding.
Das hat mir wirklich gut gefallen!

Beste Rüße
Wenke