1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Alina

Beiträge von Alina

  • Altes Skript komplett neu machen?

    • Alina
    • 15. Dezember 2016 um 16:38

    Moin erst einmal.

    <Edit> Habe es gerade getestet und bei mir arbeitet es einwandfrei, so es sein soll, das es schließt, wenn die Seite nicht gefunden wird. <Editende>


    Also Frau ist ja bequemer als Mann und ich zähle mich ausnahmsweise auch dazu.

    Ich habe einen AutoIt Hauptordner in dem ich jeder AuoIt Version (incl. der dazu veröffentlichen Beta) einen Unterordner gegeben habe. In diesem Ordner sind alle Scripte drinne, die zu der Version gehören. Zusätzliche habe ich für jede AutoIt Version einmal das Windows (incl. installiertem AutoIt / Scite / ... ) auf virtuellen Festplatte eingerichtet, so das ich ggf. nur die starten muss und das richtige AutoIt habe. Und dann gibt es noch die Ordner: umschreiben auf neue Version (2NewVer), Schnipsel und Netherlandscrips (NLScrps / das sind Script von anderen oder auch "van andere" genannt).

    Bei so großen Scripten wie Deines ist es zu überlegen es neu zu schreiben. Autoiter hat es schon richtig begründet, finde ich. Es ist der Lernfaktor und wenn Du die Zeit hast, dann mache es auch so.

  • Richtig Prüfen ob ein Formular auf der webseite existirt

    • Alina
    • 15. Dezember 2016 um 16:19

    Sorry, mit den Code kann ich nichts eintragen.

    Kannst Du bitte ein Code posten, den man testen und anpassen kann, so das die Probleme dann behoben sind, wenn man Hilfe gegeben hat.
    Ohne Script wird es schweeeeerrrrr zu helfen.

    Grundsätzlich ist ein Onlineformular auch nur eine Internetseite. Wenn Du sie aufrufst und die Rückmeldung verarbeitest, sollte Dein Problem doch behoben sein.
    Rufst Du die Seite auf und bekommst die Rückmeldung, das die Seite (evtl. der Frame) nicht vorhanden ist, dann mache xxx, ansonsten yyy.

    Wenn es ein ausfüllbares PDF-Formular ist, sag bescheid, da kann man es auch anders amchen, aber das muss ich dann raus suchen unter den ganzen Scriptschnipsel im Schnipsel-Ordner.

    Mehr kann ich da ohne Code nicht sagen.

  • In 30 Minuten Zyklen ein Programm starten, beenden und wieder neu starten?

    • Alina
    • 14. Dezember 2016 um 05:50

    Eigentlich reicht da, wenn es nicht sogar schon zu groß ist vom Umfang, CronTab.

    Mit KILL killst Du den Prozess und startest danach, evtl. mit eine Minute Verzögerung das Programm wieder neu.

    AutoIt
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=icon.ico
    #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    
    
    
    
    
    
    #cs
    Wer CronTab kennt und regelmäßig geiche Abläufe hat, wird diese kleine EXE-Datei lieben.
    		Jeden Morgen Daten digital abholen? Macht CronTab
    		Immer um 14:00 Uhr und 20:00 Uhr Datenupdate Ser-1 / Ser-2? Macht CronTab
    		Ja an jeden Geburtstag denken? Macht CronTab
    		Am 03.07.2015 ein Buch bestellen? CronTab erinnert mich an jedem Montag im Juni daran,
    		das ich es schon vorbestellen kann.
    
    
    		Also CronTab ist schon was feines.
    
    
    
    
    Dies ist ein Beispiel für eine Datei. CRONTAB.txt
    
    
     ###########################################################################################
     #  -------------Minuten (0 - 59)
     # | ----------- Stunden (0 - 23)
     # | | --------- Tag des Monats (1-31)
     # | | | ------- Monat (1-12)
     # | | | | ----- Tag der Woche (0 - 7) (Sonntag = 0 Montag = 1 ... 6 = Samstag, Sonntag = 7)
     # | | | | |
     # * * * * * Befehl, der ausgeführt werden soll.
     #
     #
     # I ist gültig, wenn alle Werte aktiv die Ausführung des Crom ermöglichen sollen
     # * Bedeutet, dass alle Werte gültig sind
     # / Aktivieren einer Wiederholung z. B. / 15 beduetet alle 15 Minuten
     # - Erlaubt die Definition einer Reihe  z. B. "1-5  * * * *" bedeutet es wird zu jeder vollen Stunden 1. - 5. Minute
     # , Legt mehrere Werte fest bzw. trennt Werte voneinander
     #
     # Interne Befehle
     # ~~~~~~~~~~~~~~~~~~~~
     #: Kill <proceso> Prozess endet also: kill iexplore.exe schließt den Internetexplorer
     #: off     schaltet den PC aus Computer
     #: exit    beendet den Cronjob
     #: reboot  Computer neu gestarten
     #: Beep <frequenz> <dauer im Millisekunden> zB: beep 500 1000
     #: play <name> z. B.: :play c: \ windows \ medien \ tada.wav
     # () <Title> () <text> Nachricht  z. B. () alert () Dies ist eine Botschaft der Nachweis | | Dies ist eine weitere
     #
     ################################################## ######################################
    
    
     # Dies ist ein Kommentar
     # Stunden Minuten Tage Monate Wochentag
     #
     # Es wird jede Minute
     * * * * * Command
    
    
     # Wird jede Minute von 18:00 Uhr bis 18:59 Uhr
     # * 18 * * * Kommando
    
    
     # Es läuft Montag jede Minute
     * * * * 1 Kommando
    
    
     # Message
     * * * * * () Titel () Nachricht | | Eine weitere Linie
    
    
     # Öffnet die Datei reg.log beim starten des Cron
     i i i i i reg.log
    
    
     # Öffnen die Datei reg.log werktags (Mo.- Fr.) zu beginnen, wenn der Cron startet
     i i i i 1-5 reg.log
    
    
     # Schließt das Programm Notepad beim starten von Cron
     i * * * *: kill notepad.exe
    
    
     # Schaltet den PC Montag, Dienstag, Mittwoch, Donnerstag und Freitag um 20:00 Uhr aus.
     # Samstags und sonntags um 22:30 Uhr
     # 0 20 * * 1: off
     # 0 20 * * 2: off
     # 0 20 * * 3: off
     # 0 20 * * 4: off
     # 0 20 * * 5: off
     # 30 22 * * 6: off
     # 30 22 * * 0: off
    
    
     # Dies macht das gleiche wie oben
     # 0 20 * * 1-5: off
     # 30 22 * * 6.7: off
    
    
     # tägliches herunterfahren des PC's um 22:25
     # 25 22 * * *: off
    
    
     Run CCleaner # mit dem Parameter / auto am Sonntag um 00:00 Uhr (Mitternacht)
     # "Pfad zu Datei incl. ausführbare Datei" || / Parameter
     # 0 0 * * 7 "C: \ Program Files \ CCleaner \ ccleaner.exe" || / auto
    
    
     # erst um 5:59 die Ausgabe einer Info, das der PC gleich ausschaltet
     # und um 6:00 Uhr schaltet der PC dann aus.
     59 5 * * * () exit () Computer wird ausgeschaltet in | | einer Minuten um 6:00
     0 6 * * * : off
    
    
     # 750 Hz-Ton für eine 1/2 Sekunde
     * * * * * Beep 750 500
    
    
     # Audio-Datei c: \ windows \ medien \ tada.wav Flügel alle 15 Minuten Knochenmark 0 15 30 45
     # * / 15 * * * *: spielen c: \ windows \ medien \ tada.wav
    
    
    
    
    
    
    
    
    #ce
    
    
    
    
    ;#NoTrayIcon
    ;Opt("RunFehlersFatal", 0)
    
    
    
    
    Global $comando = ""
    
    
    
    
    
    
    $fileReg = FileOpen("reg.log", 1)
    If $fileReg = -1 Then
       MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
    EndIf
    FileWriteLine($fileReg, "")
    FileWriteLine($fileReg, "CronJob ( " & @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " )")
    FileWriteLine($fileReg, "-------------------------------------------")
    FileClose($fileReg)
    
    
    $segundos = 0
    $y = 0
    Dim $subcom[6]
    $subcom[0] = 0
    $subcom[1] = 0
    $subcom[2] = 0
    $subcom[3] = 0
    $subcom[4] = 0
    $subcom[5] = 0
    
    
    
    
    $Iminutos = Number(@MIN)
    $Ihoras = Number(@HOUR)
    $Imes = Number(@MON)
    $Idia_mes = Number(@MDAY)
    $Idia_semana = Number(@WDAY) - 1
    
    
    While 1
       Dim $par[6]
       $minutos = Number(@MIN)
       $par[1] = Number(@MIN)
       $horas = Number(@HOUR)
       $par[2] = Number(@HOUR)
       $mes = Number(@MON)
       $par[3] = Number(@MON)
       $dia_mes = Number(@MDAY)
       $par[4] = Number(@MDAY)
       $dia_semana = Number(@WDAY) - 1
       $par[5] = Number(@WDAY)
       $espera = 60000
       abrir()
       $segundos = (@SEC) * 1000
    
    
       $espera = $espera - $segundos
    
    
       Sleep($espera)
    WEnd
    
    
    
    
    Func abrir()
       $file = FileOpen(".CRONTAB", 0)
       If $file = -1 Then
          $file = FileOpen("CRONTAB", 0)
          If $file = -1 Then
             $file = FileOpen("CRONTAB.txt", 0)
             If $file = -1 Then
                MsgBox(0, "Fehler", "Crontab-Datei konnte nicht geöffnet werden.")
                Exit
             EndIf
          EndIf
       EndIf
    
    
    
    
       While 1
          $line = FileReadLine($file)
          If @error = -1 Then ExitLoop
          $primero = StringMid($line, 1, 1)
    
    
          If StringIsDigit($primero) Or StringInStr($primero, "*") Or StringInStr($primero, "I") Or StringInStr($primero, "i") = 1 Then
             FunRum($line)
          EndIf
       WEnd
       $subcom[0] = 0
       FileClose($file)
    EndFunc
    
    
    
    
    Func FunRum($line)
    
    
       $line = StringStripWS($line, 4)
       $parametros = StringSplit($line, " ")
    
    
       If $parametros[1] = "I" Or $parametros[1] = "i" Then
          $parametros[1] = $Iminutos
       EndIf
       If $parametros[2] = "I" Or $parametros[2] = "i" Then
          $parametros[2] = $Ihoras
       EndIf
       If $parametros[3] = "I" Or $parametros[3] = "i" Then
          $parametros[3] = $Idia_mes
       EndIf
       If $parametros[4] = "I" Or $parametros[4] = "i" Then
          $parametros[4] = $Imes
       EndIf
       If $parametros[5] = "I" Or $parametros[5] = "i" Then
          $parametros[5] = $Idia_semana
       EndIf
       If Number($parametros[5]) = 0 And StringMid($parametros[5], 1, 1) <> "*" Then
          $parametros[5] = 7
       EndIf
       If $dia_semana = 0 Then
          $dia_semana = 7
       EndIf
       If $par[5] = 0 Then
          $par[5] = 7
       EndIf
    
    
       Dim $multiples[6]
       Dim $rango[6]
       $subcom[0] = 0
       $subcom[1] = 0
       $subcom[2] = 0
       $subcom[3] = 0
       $subcom[4] = 0
       $subcom[5] = 0
       For $p = 1 To 5
          If StringInStr($parametros[$p], ",") Then
    
    
             $mul = StringSplit($parametros[$p], ",")
             For $p2 = 1 To $mul[0]
                ;
                If Number($mul[$p2]) = $par[$p] Then
                   $multiples[$p] = 1
                EndIf
             Next
          Else
             If StringInStr($parametros[$p], "-") Then
    
    
                $ran = StringSplit($parametros[$p], "-")
                If Number($ran[1]) >= $par[$p] And Number($ran[2]) <= $par[$p] Then
                   $rango[$p] = 1
                EndIf
             EndIf
          EndIf
    
    
          If StringInStr($parametros[$p], "/") > 0 Then ;1
             $ss = StringSplit($parametros[$p], "/")
             If $minutos = 0 Then
                $minutos = 60
             EndIf
             If $par[1] = 0 Then
                $par[1] = 60
             EndIf
             If Number($horas) = 0 Then
                $horas = 24
             EndIf
             If $par[2] = 0 Then
                $par[1] = 24
             EndIf
             If Mod($par[$p], Number($ss[2])) = 0 Then
                $subcom[$p] = 0
             Else
                $subcom[$p] = 1
             EndIf
             If $minutos = 60 Then
                $minutos = 0
             EndIf
             If $par[1] = 60 Then
                $par[1] = 0
             EndIf
             If $horas = 24 Then
                $horas = 0
             EndIf
             If $par[2] = 24 Then
                $par[2] = 0
             EndIf
    
    
          Else
             $subcom[$p] = 0
          EndIf
    
    
       Next
    
    
       If (Number($parametros[1]) = $minutos Or StringMid($parametros[1], 1, 1) = "*" Or $multiples[1] Or $rango[1]) And $subcom[1] = 0 Then
          If (Number($parametros[2]) = $horas Or StringMid($parametros[2], 1, 1) = "*" Or $multiples[2] Or $rango[2]) And $subcom[2] = 0 Then
             If (Number($parametros[3]) = $dia_mes Or StringMid($parametros[3], 1, 1) = "*" Or $multiples[3] Or $rango[3]) And $subcom[3] = 0 Then
                If (Number($parametros[4]) = $mes Or StringMid($parametros[4], 1, 1) = "*" Or $multiples[4] Or $rango[4]) And $subcom[4] = 0 Then
                   If (Number($parametros[5]) = $dia_semana Or StringMid($parametros[5], 1, 1) = "*" Or $multiples[5] Or $rango[5]) And $subcom[5] = 0 Then
                      correcto($parametros)
                   EndIf
                EndIf
             EndIf
          EndIf
       EndIf
       $multiples = 0
       $rango = 0
    EndFunc
    
    
    
    
    Func correcto($parametros)
       $parametros[6] = StringUpper($parametros[6])
       Select
          Case $parametros[6] = "()"
             comando_interno($parametros)
          Case $parametros[6] = ":kill"
             $comando = $parametros[7]
             $x = 8
             While $x < UBound($parametros)
                $comando = $comando & " " & $parametros[$x]
                $x = $x + 1
             WEnd
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | kill | " & $comando)
             FileClose($fileReg)
             While ProcessExists($comando)
                ;
                ProcessClose($comando);---------------- Prozess killen
             WEnd
          Case $parametros[6] = ":off"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | off")
             FileClose($fileReg)
             Shutdown(13);---------------- Herunterfahren erzwingen und Strom aus schalten
          Case $parametros[6] = ":reboot"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | reboot")
             FileClose($fileReg)
             Shutdown(6);---------------- Herunterfahren erzwingen und Neustart
          Case $parametros[6] = ":exit"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | Exit")
             FileClose($fileReg)
             While ProcessExists(@ScriptName);---------------- Beendet die Cronjob Datei / Software
                ProcessClose(@ScriptName)
             WEnd
          Case $parametros[6] = ":beep"
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | beep " & $parametros[7] & " " & $parametros[8])
             FileClose($fileReg)
             Beep($parametros[7], $parametros[8])
          Case $parametros[6] = ":play"
             $comando = $parametros[7]
             $x = 8
             While $x < UBound($parametros)
                $comando = $comando & " " & $parametros[$x]
                $x = $x + 1
             WEnd
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | play | " & $comando)
             FileClose($fileReg)
             SoundPlay($comando);---------------- gibt den Ton (Beep) aus
          Case Else
             ;
             Local $comando[2]
             $comando = unir_comando($parametros)
             $fileReg = FileOpen("reg.log", 1)
             If $fileReg = -1 Then
                MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
             EndIf
             FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | " & $comando[0] & " " & $comando[1])
             FileClose($fileReg)
             ShellExecute($comando[0], $comando[1]);---------------- laufende Parameter
       EndSelect
    
    
    EndFunc
    
    
    
    
    Func unir_comando($parametros)
       ;
       Local $comando[2]
       $comando[1] = " "
       $xy = 0
       $comando[$xy] = $parametros[6]
       $x = 7
       While $x < UBound($parametros)
          If $parametros[$x] = "||" Then
             $xy = 1
          Else
             $comando[$xy] = $comando[$xy] & " " & $parametros[$x]
          EndIf
          $x = $x + 1
       WEnd
       Return $comando
    EndFunc
    
    
    Func comando_interno($parametros)
       ;
       $titulo = $parametros[7]
       $comodin = "nein"
       $x = 8
       While $x < UBound($parametros)
          If $comodin = "ja" Then
             $comando = $comando & " " & $parametros[$x]
          Else
             If $parametros[$x] <> "()" Then
                $titulo = $titulo & " " & $parametros[$x]
             EndIf
          EndIf
          If $parametros[$x] = "()" Then
             $x = $x + 1
             $comando = $parametros[$x]
             $comodin = "ja"
          EndIf
          $x = $x + 1
       WEnd
       $fileReg = FileOpen("reg.log", 1)
       If $fileReg = -1 Then
          MsgBox(0, "Fehler", "Kann Datei nicht öffnen.")
       EndIf
       FileWriteLine($fileReg, @HOUR & ":" & @MIN & "   " & @MDAY & "." & @MON & "." & @YEAR & " | " & $titulo & " |" & $comando)
       FileClose($fileReg)
    
    
       $comando = StringReplace($comando, "||", @CRLF)
       MsgBox(0, $titulo, $comando, 15)
    
    
    
    
    EndFunc
    Alles anzeigen
  • LED - Laufschrift

    • Alina
    • 14. Dezember 2016 um 04:31
    Zitat von chip

    ... wurde in $__g_hGDIPDll umbenant.


    Woher wisst Ihr soetwas immer?

  • Macro

    • Alina
    • 12. Dezember 2016 um 20:40

    Es gibt doch Exceltabellen, wo ein Macro rein muss, damit alles einwandfrei funktioniert. Sind VBA Macros die ich meine.
    Mich interessiert ob es möglich ist und wenn möchte ich es testen.

    Und die MakroBox ist cool ! Kannte ich noch gar nicht. Aber jetzt ! ;)

  • Macro

    • Alina
    • 12. Dezember 2016 um 19:24

    Ich weiß nicht ob ich hier richtig bin, oder ich es unter "Hilfe & Unterstützung" posten sollte.
    Ich schreibe einfach mal, was mir auf dem Herzen liegt.


    Ich frage mich, ob es möglich ist, ein Macro via Script in eine Exceltabelle zu bekommen. Und
    wenn er hier die Lösung bekommen hat, dann bitte einen Link. Selbst versuchen wäre dann ja

    meine erste Auktion. Ausprobieren oder wie man so sagt, ausprobieren geht über studieren?


  • Update autoit.de Forum

    • Alina
    • 12. Dezember 2016 um 19:16

    admin .

    Ja, das mitd er testumgebung ist eine gute Idee. Gib Bescheid, damit ich Planzeit frei halte. ;)

    Aber bitte nicht bis zum 15:01:2017, da ist gar kein Platz mehr außer nachts und da wirst Du
    selber am Server sein, so wie ich Admin's so kenne. Arbeiten wenn andere schlafen.

  • [Gesucht] Englisch Selbstlernbuch für Anfänger

    • Alina
    • 12. Dezember 2016 um 19:12

    Moin Xorianator.

    Also wenn es wirklich ein Anfänger auf dem Nullstand ist, mein Tip: Verschenke ein Englischgrundkurs in einer Abendschule (bei Euch oft auch Volkshochschule / VHS genannt). Da wird erst einmal die Grundkenntnisse der Sprache vermittelt. Ist so wie vierte / fünfte Schulklasse, wo man der erste mal English hat.
    Danach kann man dann zu weiteren Festlichkeiten einen Sprachaufbau via Buch mit Hörbuch machen. Wer gut und schnell Sprachen lernt und Spaß daran hat, sollte nach einem solchen Grundkurs klar kommen.

    Und dann die Praxis nicht vergessen.

  • Update autoit.de Forum

    • Alina
    • 10. Dezember 2016 um 19:15

    45,- durch x User/innen?
    Ich melde mich als Spenderin an. Machen wir es wie letztes mal? Ich lasse es via PayPal übern Chef überweisen. Ist das okay? Hat die beiden letzten Male auch gepaßt. Und es wäre schön, wenn jeder mal eine kleine Spende zahlt und es müssen ja nicht gleich Scheine sein, wenn jeder 2-5 Euro's spendet. Einfach mal gedanklich durch den KOpf gehen lassen, oder wie ihr immer sagt. Nur nicht ver alzheimern, was wohl öfters der Fall ist. ;)

  • Script wird langsamer, wenn die Maus nicht bewegt wird?!

    • Alina
    • 10. Dezember 2016 um 04:19

    :Glaskugel: Ich befrage mal ein Glaskugel. Vielleicht hat sie das Script gesehen und kann so sagen, wo das Problem liegen könnte. Ich kann das ohne Script nämlich nicht. Sorry. ;)

  • Tagezaehler

    • Alina
    • 10. Dezember 2016 um 04:16

    Daumen hoch !!!

  • Windows document

    • Alina
    • 7. Dezember 2016 um 21:17

    Ich bedanke mich für die Aufklärung. In diesem Fall war ich es nämlich noch nicht. :rolleyes::rofl:

  • Daten kopieren - selber Lsg. gefunden

    • Alina
    • 7. Dezember 2016 um 20:49

    So, jetzt ganz langsam.

    Erst einmal die Kurzfassung: Habe gerade mein eigenes Problem gelöst. Ich könnte vor Glück an die Holzdecke springen. Aber ich werde mir gleich lieber den Kamin an machen und zur Belohnung ein Glas Wein in meinem Hängesessel genießen.

    Aber zuvor mein DANK AN ZEITRISS !!!
    Ich werde das auf jeden Fall ausprobieren, denn eigentlich brauche ich, wie ich gerade erfahren habe und was hier sehr gut erklärt ist: URL / LINK.

    Das war wieder so ein Problem, wo ich die Lösung einfach nicht mehr zur Verfügung hatte. Da muss sich etwas anderes den Platz in meinem Gehirn genommen haben. ;)
    Dann kam noch Murphy dazu. Ihr kennt Murphy doch oder? Murphys Gesetz, den meine ich. ;) Da habe ich die Vorlage fertig und mache binnen 10 Minuten die ersten vier Monate fertig.
    Dann fällt mir auf, das er irgendwie auf dem Hauptblatt in den Textzellen bewusst nichts drinne hat, aber beim Zellenbezug eine [0] setzt. Schreibt man etwas auf dem Hauptblatt in die Zelle, überträgt er es sauber, aber sobald ich die Zelle auf dem Hauptblatt leere steht in der Monatsübersicht wieder diese [0]. Das ging mir so auf die ......, da habe ich einfach gesagt, das bei einer Null Hintergrund und Schriftfarbe weiß sind. Auf den Arm nehmen lasse ich mich nicht in meiner eigentlichen Freizeit, die ich dennoch bezahlt bekomme. ;)

    Schade ist, das man die Schriftfarbe nicht mit nehmen kann, aber auch da werde ich sicherlich noch eine Lösung finden.

    So, dann bin ich mal gleich noch eine kurze Runde durchs Forum und dann ab ins Wohnzimmer. Knisterne Kaminwärme genießen. ;)

    Schönen Abend noch.


    Edit.
    Nicht das Ihr nun denkt, ich mache einen auf C & P. Folgendes Script füllt mir die Zelle [B6], so das ich binnen 1-2 Minuten jedes Monatsblatt komplett fertig habe.

    AutoIt
    #include <Excel.au3>
    
    
    Local $oExcel = _Excel_Open()
    Local $sFilePath1 = @ScriptDir & "\tteesstt.xlsx"
    Global $oWorkbook = _Excel_BookOpen($oExcel, $sFilePath1,Default,True,Default,Default,Default)
    
    
    $oWorkbook.Sheets("01_2017").Activate
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "=Haupttabelle!D36", "B6", False)
    
    
    $oWorkbook.Sheets("02_2017").Activate
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "=Haupttabelle!D62", "B6", False)
    
    
    $oWorkbook.Sheets("03_2017").Activate
    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "=Haupttabelle!D86", "B6", False)
    
    
    ;  Hier geht es bis "=Haupttabelle!D322". Kopfkino: In der Kürze liegt die Würze
    _Excel_BookSave($oWorkbook)
    Alles anzeigen

    Und für die, die etwas nachdenken möchten, hier ein kleines Rätzel. An Hand des o. g. Scripts läßt sich errechnen, wieviele Arbeitstage ich im kommenden Jahr habe und ihr dürft raten, wieviel Wochenarbeitstage das sind. ----- ?????----- Bedenke, Feiertage die nicht auf einen Sonntag fallen sind arbeitstage, auch wenn ich nicht arbeite. Ist alles eine Frage der Verhandlung gewesen. Bevor ich es vergesse, 36 Tage bzw. 42 Tage Urlaub sind da irgendwo unter zu bringen und zählen solange als Arbeitstage, wie ich sie nicht genommen habe. Warum zwei verschiedene Urlaubsanzahltage? Ganz einfach, einmal Deutschland und einmal Dänemark, wobei ich nicht mal die 36 weg bekomme dieses Jahr.

  • Windows document

    • Alina
    • 7. Dezember 2016 um 09:53

    Uj, das sind aber sehr sehr viele Informationen, wo man echt super helfen kann.
    Du fragst nach einem Doc? Wo ist denn in den Script von Dir ein Doc?

    Deutsch gesagt: Info ist sehr sehr unzureichen. ;)

  • Grafik/Sound Demo (InfoBox)

    • Alina
    • 7. Dezember 2016 um 09:52

    Idee gut, nur auch für mich zu bunt und damit auch für mich sehr unübersichtlich. Weniger ist oft mehr.

  • Daten kopieren - selber Lsg. gefunden

    • Alina
    • 7. Dezember 2016 um 09:48

    Moin-Moin zusammen.

    Ich weiß jetzt gar nicht, ob Excel eigentlich hier rein gehört oder unter "Andere Programmierspracen". Aber ich frage dennoch hier mal nach.

    Ich habe ein Exceltabelleblatt "Hauptdaten", in dem ist ein Kalender wie folgt aufgebaut ist:

    [D17] [von] [bis] ..... [x17]
    [02.01.2017] [07:30] [17:30] ..... [M17]
    [03.01.2017] [07:30] [17:30] ..... [M18]

    Nun möchte ich die Monate trennen und auf die Tabellenblätter [01_2017], [02_2017];[03_2017] ....
    verteilen. Also könnte ich die Daten rauskopieren und auf dem jeweiligen Tabellenblatt wieder einfügen, das geht sicherlich, ist aber sehr kompliziert und ich habe dann die Daten wie gewollte auf dem Monatsblatt und den Blatt "Hauptdaten", aber ich frage mich, ob man das nicht einfacher machen kann, da es ja nicht nur eine Tabelle betrifft, wo ich das gerne machen würde ohne C & P.

    Wäre dankbar für eine ectl. Lösung, so es die denn gibt. Im Netzt habe ich genauso wenig gefunden wie leider auch hier im Forum.

  • Programm nicht 2x Starten lassen!

    • Alina
    • 5. Dezember 2016 um 05:07

    Ich würde das aus der Hilfe verwenden und umschreiben.

    AutoIt
    If ProcessExists("notepad.exe") Then 
    MsgBox(0, "Beispiel", "Der Editor läuft.")
    Else
        MsgBox(0, "Beispiel", "Der Editor läuft nicht.")
    EndIf

    Du musst na klar den Namen Deiner Exe-Datei eintragen und Du könntest, wenn Dein Programm schon aktiv ist, dieses als "Then Bedingung" in den Vordergrund holen. Nur so eine Idee.

  • .txt in autostart verschieben

    • Alina
    • 2. Dezember 2016 um 01:15

    Mal zur Info. Weiß nicht ob es paßt.

    Wenn man folgendes aufruft, kommt man direkt zum Autostartordner: shell:startup

  • Excel

    • Alina
    • 2. Dezember 2016 um 01:04

    1570 Formeln bzw. Angaben werden schon mal ordentlich via Script in die Tabellen eingetragen.
    Fehlen noch ca. 40% bis 45% und dann noch vier Scripte, die dann die Dummydaten einsetzt, damit ich es erst einmal in den ganzen Funktionen testen kann, was ich da in Excel gemacht habe. Also es funktioniert einwandfrei, aber wenn ich via Script befüllen lasse, muss ich auch prüfen ob es danach genauso gut ist. Und das geht am besten mit Dummywerten und da es jedes mal 290 + 17 sind, sollte das Script binnen einer Stunde (maximal) fertig sein. Die 17 sind nicht zusammenhängig, die anderen acht Blöcke (hier Spalten) sind jeweils 290 mal der gleiche Inhalt. Kann man also mit einer Zeile scripten.

    Und da ich hier gelernt habe foul zu sein, habe ich beim Scripten Excel verwendet !
    Ja, ihr lest richtig. Excel war und ist meine Scripthilfe. Und zwar so:

    [_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, '][2000] [', '] [D6] [', False)]
    Spalte-A, -C und -E sind ja immer gleich, also muss ich hier nichts tippen.
    Spalte-B und -D verändern sich und nur das kommt via C&P rein.

    Einfacher geht es ja nun wirklich nicht, ohne noch ein Script zu schreiben, das mir die Formeln & Daten auslist.

    Und bis jetzt, wenn ich immer mal wieder teste, funktioniert es ja auch. Ab und an muss ich noch händisch (heißt das so???) das eine oder andere anpassen, aber wenn ich den Grund gefunden habe, kann ich es gleich im Script ändern. War so eine Sache, wenn in Formeln / Textfeldern die Anführungszeichen (") sind, dann dürfen es nicht die doppelten sein, sondern wie oben gezeigt. So kleine Fallen gibt es immer wieder mal, aber wenn die Formeln z. T. so sehr verschaltelt und dann auch noch in einem Textfeld ein oder mehrere einfache Anführungszeichen sind, dann wird es kompliziert ab und an. Aber sonst? Es läuft, würde meine Mum nun sagen. ;)


  • Der Winter steht vor der Tür, Weihnachten bald auch

    • Alina
    • 2. Dezember 2016 um 00:28

    Also ich mag es so.

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™