Beiträge von oh-ha

  • Makro in Excel umwandeln zu autoit

    puh, ok probiere ich mal

    [autoit]

    $sFilePath1 = @ScriptDir & "\Skripte\Start\" & $fileallgemein ; Pfad festlegen
    $oExcel =_ExcelBookOpen ($sFilePath1, $fVisible = 1) ; Tabelle öffnen
    $Zeilenanzahlab = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp ; Zeilenende feststellen
    $oExcel.Rows("9:" &$Zeilenanzahlab).Select ; Bereich makieren der bearbeitet werden soll
    $oExcel.Selection.FormatConditions.Delete
    $oExcel.Selection.FormatConditions.Add.Type = 2 ; Typ2 ist bei Bedingter Formatierung = Format ist
    $oExcel.Formula1 = "=REST(TEILERGEBNIS(3;$A$9:$A9);2)=0" ; die Formel die mir jede zweite Zeile andersfarbig hinterlegt
    $oExcel.Selection.FormatConditions(1).Interior.ColorIndex = 34 ; die Farbe in der jede zweite Zeile eingefärbt werden soll

    [/autoit]

    In Excel : Format >> Bedingte Formatierung >> Formel ist >> "=REST(TEILERGEBNIS(3;$A$9:$A9);2)=0" >> Format >> Muster >> Farbe wählen.

    mfg
    oh-ha

  • Makro in Excel umwandeln zu autoit

    oh da habe ich mich wohl etwas fasch ausgedrückt.
    Möchte die Tabelle nur mit Autoit bearbeiten.
    Normal zeichne ich ein Makro in der Tabelle auf und schreibe es mir dann in Autoit um so das ich mit Autoit meine Tabelle
    bearbeiten kann.
    Das würde in dem Fall dann so aussehen:

    [autoit]


    $Zeilenanzahlab = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp
    $oExcel.Rows("9:" &$Zeilenanzahlab).Select
    $oExcel.Selection.FormatConditions.Delete
    $oExcel.Selection.FormatConditions.Add.Type = 2
    $oExcel.Formula1 = "=REST(TEILERGEBNIS(3;$A$9:$A9);2)=0"
    $oExcel.Selection.FormatConditions(1).Interior.ColorIndex = 34

    [/autoit]


    nur geht es halt nicht.
    Es wird nur der bereich markiert aber nichts weiter.


    mfg
    oh-ha

  • Makro in Excel umwandeln zu autoit

    moin moin,


    habe ein problem mit einem Makro.
    Es soll jede zweite Zeile ab einer bestimmten in einer anderen Farbe darstellen.
    Kann dieses nicht umwandeln in ein autoit skript.

    [autoit]

    Sub Makro1()
    '
    ' Makro1 Makro
    ' Makro am 14.04.2010 von oh-ha aufgezeichnet
    Rows("9:39").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=REST(TEILERGEBNIS(3;$A$9:$A9);2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 41
    Range("H18").Select
    ActiveWindow.SmallScroll Down:=2
    End Sub

    [/autoit]


    Könnte mir mal bitte einer sagen wie ich das umwandeln kann ?.


    mfg
    oh-ha

    Edit: Titel geändert

  • Excel Spaltenzahl als Buchstabe

    Habe es selber rausbekommen (nach 6 Stunden man man man )

    Mußte nur ein " $oExcel.Range " davor setzen.
    Dann kann man auch alle bereiche markieren.

    [autoit]

    $Zeilenanzahl = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp
    $Spaltenanzahl = $oExcel.ActiveSheet.Cells(10, $oExcel.Columns.Count).End(-4159).Column ; -4159 = xlToLeft
    $oExcel.Range($oExcel.Cells(6,1),$oExcel.Cells($Zeilenanzahl,$Spaltenanzahl)).Select

    [/autoit]


    mfg
    oh-ha

  • Excel Spaltenzahl als Buchstabe

    moin moin,

    möchte mir in einer Excel Tabelle Rahmen machen aber diese auch begrenzen.
    Wie man die letzte Zeile und Spalte findet weiß ich.
    Das Problem ist nur das ich die Spaltenangabe als Zahl habe und nicht als Buchstaben zB. AZ
    habe dazu auch Formeln gefunden die das umwandeln aber kann diese nicht in autoit umwandeln.
    Habe auch auf Z1S1 umgestellt gehabt was aber auch nicht zum gewünschten geführt hat.

    Function SPALTENNAME(Zelle As Range)
    Dim s As Byte
    Dim Name As String
    s = Zelle.Column
    s = s - 1
    Name = Chr(s Mod 26 + 65)
    If s > 25 Then Name = Chr(Int(s / 26) + 64) & Name
    SPALTENNAME = Name
    End Function

    oder

    Function SPALTENKOPF(Zelle As Range)
    Dim s As Byte
    Dim Name As String
    Name = Zelle.Address
    Name = Right(Name, Len(Name) - 1)
    If Mid(Name, 2, 1) = "$" Then
    Name = Left(Name, 1)
    Else
    Name = Left(Name, 2)
    End If
    SPALTENKOPF = Name
    End Function


    mfg
    oh-ha

  • letzte zeile bei excel 2003 und 97 finden

    Danke dir habe es gefunden und entsprechend umgewandelt.

    Habe es so gelöst bekommen:

    [autoit]

    $Zeilenanzahl = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row ; -4162 = xlUp
    MsgBox(0,"Zeilenanzahl",$Zeilenanzahl)
    $Spaltenanzahl = $oExcel.ActiveSheet.Cells(10, $oExcel.Columns.Count).End(-4159).Column ; -4159 = xlToLeft
    MsgBox(0,"Spaltenanzahl",$Spaltenanzahl)

    [/autoit]


    Die 1 bei der Zeilenanzahl ist = der Zeile A
    Die 10 der Spaltenanzahl = die 10 Spalte


    mfg
    oh-ha

  • letzte zeile bei excel 2003 und 97 finden

    moin moin,

    habe da ein Problem mit Excel2003 und Excel97 und zwar die Letzte Zeile finden und ab da alles Löschen
    bei Excel 2003 geht das bei mir so:

    [autoit]

    Dim $lZeile, $lZeile2
    $lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row
    $lZeile2 = $oExcel.Cells($oExcel.Rows.Count, 1).SpecialCells(11).Row
    $oExcel.Range("A" & $lZeile +2, "AZ" & $lZeile2).Select
    $oExcel.Selection.Delete.Shift= -4162 ;xlUp = -4162
    ;MsgBox(0, "Zeilenanzahl", $lZeile); nur zur kontrolle
    $oExcel.Selection.EntireRow.Hidden = True
    $oExcel.Range("L1").Select

    [/autoit]


    Wenn ich das aber mit Excel97 mache schmiert er mir ab bezw. öffnet die Tabellen nicht.
    Probiert hatte ich auch das von BugFix :

    [autoit]

    $lZeile = $oExcel.Worksheets(1).UsedRange.Rows.Count
    $lZeile2 = $oExcel.Worksheets(1).UsedRange.Columns.Count

    [/autoit]


    Bringt aber auch nicht das gewünschte Ergebnis.

    mfg
    oh-ha

  • Zeile von Excel in ListBox anzeigen

    Habe mich wohl etwas unverständlich ausgedrückt.

    Hier mal das komplette Skript natürlich noch nicht fertig.

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #Include <File.au3>
    #include <Excel.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $warenname1, $Stueckzahl2, $preiseinkaufeinzel3, $preiseinkaufgesamt4, $portoeinzelstuck5, $portoges6, $verkaufspreis7, $portoverkauf8, $portoreal9, $ebay10, $paypal11;Main Tabsheed1
    Global $name21, $preiseinkauf22, $andererverwendungszweck23; Tabsheed2
    Global $Stuckzahl31, $verkaufspreis32, $Portoges33, $portorealkosten34, $ebay35, $paypal36, $rechnungsnummer37, $Adressename38;Main Tabsheed3
    Global $Adressestrasse39, $Adresseort310, $Adresseland311, $rechnungname312, $rechnungstrasse313, $rechnungort314, $rechnungland315;Main Tabsheed3
    Global $fVisible; Func Toffen()
    Global $1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11 ;Tabsheed1
    Global $21, $22, $23 ;Tabsheed2
    Global $31, $32, $33, $34, $35, $36, $37, $38, $39, $310, $311, $312, $313, $314, $315 ;Tabsheed3
    Global $oExcel ; Func endmain()

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GUIOnEventMode", 1)

    [/autoit] [autoit][/autoit] [autoit]

    Main()
    Func Main()
    #Region ### START Koda GUI section ###
    $Form1_1 = GUICreate("Tabbed Notebook Dialog", 823, 562, 269, 152)
    $PageControl1 = GUICtrlCreateTab(0, 0, 820, 560)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("Warenangaben")
    GUICtrlSetState(-1,$GUI_SHOW)
    $beenden1 = GUICtrlCreateButton("Beenden", 690, 499, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $oeffnen1 = GUICtrlCreateButton("Tabelle öffnen", 690, 467, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $enter1 = GUICtrlCreateButton("Enter", 258, 475, 291, 49)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    ;######################### Input felder Anfang ############################
    $warenname1 = GUICtrlCreateInput("1", 106, 178, 177, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Stueckzahl2 = GUICtrlCreateInput("2", 146, 212, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $preiseinkaufeinzel3 = GUICtrlCreateInput("3", 130, 252, 57, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $preiseinkaufgesamt4 = GUICtrlCreateInput("4", 130, 285, 57, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $portoeinzelstuck5 = GUICtrlCreateInput("5", 130, 320, 57, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $portoges6 = GUICtrlCreateInput("6", 130, 354, 57, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $verkaufspreis7 = GUICtrlCreateInput("7", 697, 178, 65, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $portoverkauf8 = GUICtrlCreateInput("8", 697, 212, 65, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $portoreal9 = GUICtrlCreateInput("9", 698, 249, 65, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $ebay10 = GUICtrlCreateInput("10", 697, 283, 65, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $paypal11 = GUICtrlCreateInput("11", 697, 319, 65, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    ;######################### Input felder Ende ############################
    $Label11 = GUICtrlCreateLabel("Ebay Gebüren", 563, 284, 105, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label12 = GUICtrlCreateLabel("PayPal Gebüren", 557, 320, 115, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label13 = GUICtrlCreateLabel("Warenname", 5, 179, 87, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel("Preis Einkauf", 5, 252, 103, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("Porto einzelstück", 5, 320, 121, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label6 = GUICtrlCreateLabel("Einkauf Seite", 10, 139, 126, 28)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    $Label7 = GUICtrlCreateLabel("Verkaufspreis", 562, 177, 100, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label8 = GUICtrlCreateLabel("Porto", 562, 210, 41, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label9 = GUICtrlCreateLabel("Verkauf Seite", 593, 139, 126, 28)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    $Pic1 = GUICtrlCreatePic("C:\Users\ohha\Desktop\malle Exel tabelle erstellen\Skripte\Logo\logo.bmp", 218, 24, 321, 81)
    $Group1 = GUICtrlCreateGroup("", 154, 419, 137, 41)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $ja = GUICtrlCreateRadio("Ja", 162, 435, 41, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $nein = GUICtrlCreateRadio("Nein", 218, 435, 49, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label20 = GUICtrlCreateLabel("Mit oder ohne MwSt", 5, 434, 145, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label121 = GUICtrlCreateLabel("Porto gesamt", 5, 354, 121, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label122 = GUICtrlCreateLabel("Preis Einkauf", 5, 285, 95, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label123 = GUICtrlCreateLabel("Einzelstück", 194, 255, 58, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label124 = GUICtrlCreateLabel("Gesamt", 196, 289, 40, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label125 = GUICtrlCreateLabel("Wenn man die Ware mit MwSt", 141, 385, 154, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label26 = GUICtrlCreateLabel("gekauft jat dann auf Ja", 157, 408, 122, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Group2 = GUICtrlCreateGroup("", 218, 99, 321, 41)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Radio1einzel = GUICtrlCreateRadio("Einzelkauf", 234, 115, 121, 17)
    $Radio2mehrere = GUICtrlCreateRadio("Mehrere Teile der selben Ware", 362, 115, 169, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label27 = GUICtrlCreateLabel("Porto Realkosten", 563, 247, 129, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label29 = GUICtrlCreateLabel("Stückzahl", 5, 216, 103, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $List2 = GUICtrlCreateList("", 679, 56, 121, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xBFCDDB)
    $Label2 = GUICtrlCreateLabel("Kontostand", 699, 29, 75, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    $TabSheet2 = GUICtrlCreateTabItem("Eigenbedarf Einkauf")
    $enter2 = GUICtrlCreateButton("Enter", 258, 475, 291, 49)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $beenden2 = GUICtrlCreateButton("Beenden", 690, 499, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $oeffnen2 = GUICtrlCreateButton("Tabelle öffnen", 690, 467, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Pic2 = GUICtrlCreatePic("C:\Users\ohha\Desktop\malle Exel tabelle erstellen\Skripte\Logo\logo.bmp", 246, 24, 321, 81)
    $Label220 = GUICtrlCreateLabel("Name", 366, 152, 47, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label222 = GUICtrlCreateLabel("Preis Einkauf", 318, 186, 103, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    ;######################### Input felder Anfang ############################
    $name21 = GUICtrlCreateInput("1", 427, 153, 177, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $preiseinkauf22= GUICtrlCreateInput("2", 427, 182, 57, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $andererverwendungszweck23 = GUICtrlCreateInput("3", 427, 253, 177, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    ;######################### Input felder Ende ############################
    $Label223 = GUICtrlCreateLabel("Verwendunszweck", 294, 215, 127, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Combo1 = GUICtrlCreateCombo("Combo1", 427, 215, 145, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label224 = GUICtrlCreateLabel("Wird nur für Kontoführung benötigt", 300, 111, 172, 18)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label1 = GUICtrlCreateLabel("anderer Verwendungszweck", 216, 252, 207, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("Kontostand", 702, 27, 75, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    $List4 = GUICtrlCreateList("", 679, 53, 121, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xBFCDDB)
    $TabSheet3 = GUICtrlCreateTabItem("Verkauf Einträge")
    $Pic3 = GUICtrlCreatePic("C:\Users\ohha\Desktop\malle Exel tabelle erstellen\Skripte\Logo\logo.bmp", 235, 26, 321, 81)
    $List1 = GUICtrlCreateList("", 20, 141, 161, 370, BitOR($LBS_SORT,$LBS_STANDARD,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label10 = GUICtrlCreateLabel("Warenname", 24, 117, 87, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $oeffnen3 = GUICtrlCreateButton("Tabelle öffnen", 690, 467, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $beenden3 = GUICtrlCreateButton("Beenden", 690, 499, 75, 25)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label14 = GUICtrlCreateLabel("Stückzahl", 193, 144, 103, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    ;######################### Input felder Anfang ############################
    $Stuckzahl31 = GUICtrlCreateInput("1", 440, 141, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $verkaufspreis32 = GUICtrlCreateInput("2", 440, 176, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Portoges33 = GUICtrlCreateInput("3", 440, 207, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $portorealkosten34 = GUICtrlCreateInput("4", 440, 243, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $ebay35 = GUICtrlCreateInput("5", 440, 272, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $paypal36 = GUICtrlCreateInput("6", 439, 309, 41, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $rechnungsnummer37 = GUICtrlCreateInput("7", 439, 351, 73, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Adressename38 = GUICtrlCreateInput("8", 644, 154, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Adressestrasse39 = GUICtrlCreateInput("9", 644, 182, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Adresseort310 = GUICtrlCreateInput("10", 644, 207, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Adresseland311 = GUICtrlCreateInput("11", 644, 232, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $rechnungname312 = GUICtrlCreateInput("12", 644, 281, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $rechnungstrasse313 = GUICtrlCreateInput("13", 644, 306, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $rechnungort314 = GUICtrlCreateInput("14", 644, 333, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $rechnungland315 = GUICtrlCreateInput("15", 644, 363, 145, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    ;######################### Input felder Ende ############################
    $Label15 = GUICtrlCreateLabel("Ist", 364, 117, 18, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $Label16 = GUICtrlCreateLabel("Ändern", 437, 118, 44, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $List3 = GUICtrlCreateList("", 356, 141, 33, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label17 = GUICtrlCreateLabel("Verkaufspreis", 193, 178, 100, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label18 = GUICtrlCreateLabel("Porto Ges.", 193, 209, 80, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label19 = GUICtrlCreateLabel("Ebay Gebüren", 193, 272, 105, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label21 = GUICtrlCreateLabel("PayPal Gebüren", 193, 308, 115, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $List6 = GUICtrlCreateList("", 356, 207, 33, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $List7 = GUICtrlCreateList("", 356, 272, 33, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $List8 = GUICtrlCreateList("", 356, 309, 33, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label22 = GUICtrlCreateLabel("Porto Realkosten", 191, 243, 129, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $List9 = GUICtrlCreateList("", 356, 243, 33, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label23 = GUICtrlCreateLabel("Käufer", 687, 94, 70, 28)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    $Label24 = GUICtrlCreateLabel("Adresseneingabe", 657, 130, 127, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label25 = GUICtrlCreateLabel("Name", 567, 154, 47, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label30 = GUICtrlCreateLabel("Strasse", 557, 182, 55, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label31 = GUICtrlCreateLabel("Postlz. Ort", 543, 207, 79, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label32 = GUICtrlCreateLabel("Land", 578, 234, 39, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label33 = GUICtrlCreateLabel("Rechnungsnummer", 191, 350, 139, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $List10 = GUICtrlCreateList("", 340, 351, 65, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Label35 = GUICtrlCreateLabel("Rechnungsadresse", 650, 257, 143, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label36 = GUICtrlCreateLabel("Name", 567, 283, 47, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label37 = GUICtrlCreateLabel("Strasse", 559, 307, 55, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label38 = GUICtrlCreateLabel("Postlz. Ort", 543, 330, 79, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Label39 = GUICtrlCreateLabel("Land", 578, 356, 39, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    $Group3 = GUICtrlCreateGroup("", 216, 392, 401, 153)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $enter3 = GUICtrlCreateButton("Enter", 283, 487, 291, 49)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Radio3 = GUICtrlCreateRadio("nur Tabellen änderungen und übernehmen", 325, 416, 230, 17)
    $Radio4 = GUICtrlCreateRadio("mit Rechnung erstellen und Tabelle ändern", 325, 449, 233, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $List5 = GUICtrlCreateList("", 356, 176, 33, 20)
    GUICtrlSetData(-1, "")
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUISetOnEvent($GUI_EVENT_CLOSE, "endmain")
    GUICtrlSetOnEvent($beenden1, "endmain")
    GUICtrlSetOnEvent($beenden2, "endmain")
    GUICtrlSetOnEvent($beenden3, "endmain")
    GUICtrlSetOnEvent($oeffnen1, "Toffen")
    GUICtrlSetOnEvent($oeffnen2, "Toffen")
    GUICtrlSetOnEvent($oeffnen3, "Toffen")
    GUICtrlSetOnEvent($enter1, "Tabsheed1")
    GUICtrlSetOnEvent($enter2, "Tabsheed2")
    GUICtrlSetOnEvent($enter3, "Tabsheed3")
    While 1
    Sleep(50)
    WEnd
    EndFunc ;==>main

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Toffen()
    $sFilePath1 = @ScriptDir & "\Skripte\Tabellen\malle.xls"
    $oExcel =_ExcelBookOpen ($sFilePath1, $fVisible = 0)
    $oExcel.Range("A14").Select
    If @error = 1 Then
    MsgBox(0, "Fehler!>> Toffen() <<", "Das Excel-Objekt konnte nicht erstellt werden")
    Exit
    ElseIf @error = 2 Then
    MsgBox(0, "Fehler!>> Toffen() <<", "Die Datei existiert nicht!")
    EndIf
    EndFunc ;==>toffen

    [/autoit] [autoit][/autoit] [autoit]

    Func Tabsheed1() ; Die Einträge der InputBoxen in eine Variable Lesen und diese dann in die Excel Tabelle schreiben
    ;Tabsheed 1
    $1 = GUICtrlRead ($warenname1)
    $2 = GUICtrlRead ($Stueckzahl2)
    $3 = GUICtrlRead ($preiseinkaufeinzel3)
    $4 = GUICtrlRead ($preiseinkaufgesamt4)
    $5 = GUICtrlRead ($portoeinzelstuck5)
    $6 = GUICtrlRead ($portoges6)
    $7 = GUICtrlRead ($verkaufspreis7)
    $8 = GUICtrlRead ($portoverkauf8)
    $9 = GUICtrlRead ($portoreal9)
    $10 = GUICtrlRead ($ebay10)
    $11 = GUICtrlRead ($paypal11)
    $sFilePath1 = @ScriptDir & "\Skripte\Tabellen\malle.xls"
    $oExcel =_ExcelBookOpen ($sFilePath1, $fVisible = 1)
    If @error = 1 Then
    MsgBox(0, "Fehler! >> Tabsheed1() <<", "Das Excel-Objekt konnte nicht erstellt werden")
    Exit
    ElseIf @error = 2 Then
    MsgBox(0, "Fehler! >> Tabsheed1() <<", "Die Datei existiert nicht!")
    EndIf
    $oExcel.Sheets("Eingaben vom Tool").Select
    Dim $lZeile, $lZeile2
    $lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row
    $oExcel.Cells($lZeile +1,1).Value = $1 ;-----Screibt in eine Zelle einen Text
    $oExcel.Cells($lZeile +1,2).Value = $2
    $oExcel.Cells($lZeile +1,3).Value = $3
    $oExcel.Cells($lZeile +1,4).Value = $4
    $oExcel.Cells($lZeile +1,5).Value = $5
    $oExcel.Cells($lZeile +1,6).Value = $6
    $oExcel.Cells($lZeile +1,7).Value = $7
    $oExcel.Cells($lZeile +1,8).Value = $8
    $oExcel.Cells($lZeile +1,9).Value = $9
    $oExcel.Cells($lZeile +1,10).Value = $10
    $oExcel.Cells($lZeile +1,11).Value = $11

    [/autoit] [autoit][/autoit] [autoit]

    $oExcel.Cells($lZeile +1,13).Value = 0
    $oExcel.Cells($lZeile +1,14).Value = 0
    $oExcel.Cells($lZeile +1,15).Value = 0

    [/autoit] [autoit][/autoit] [autoit]

    $oExcel.Cells($lZeile +1,17).Value = 0
    $oExcel.Cells($lZeile +1,18).Value = 0
    $oExcel.Cells($lZeile +1,19).Value = 0
    $oExcel.Cells($lZeile +1,20).Value = 0
    $oExcel.Cells($lZeile +1,21).Value = 0
    $oExcel.Cells($lZeile +1,22).Value = 0
    $oExcel.Cells($lZeile +1,23).Value = 0
    $oExcel.Cells($lZeile +1,24).Value = 0
    $oExcel.Cells($lZeile +1,25).Value = 0
    $oExcel.Cells($lZeile +1,26).Value = 0
    $oExcel.Cells($lZeile +1,27).Value = 0
    $oExcel.Cells($lZeile +1,28).Value = 0
    $oExcel.Cells($lZeile +1,29).Value = 0
    $oExcel.Cells($lZeile +1,30).Value = 0
    $oExcel.Cells($lZeile +1,31).Value = 0
    $sCellValue = _ExcelReadCell($oExcel, "A4")
    MsgBox(0, "", "Der Zellwert ist: " & @CRLF & $sCellValue, 2) ; Anzeige max. 2 Sekunden
    _ExcelBookClose($oExcel)
    MsgBox(64,"Warenangaben", ("Daten wurden in die Tabelle Warenangaben geschrieben" & @CRLF & @CRLF & "zum Anschauen bitte auf Tabelle öffnen Klicken" & @CRLF & @CRLF & " Zum Ändern bitte auf Verkauf Einträge gehen "))
    Tabsheedloeschen1()
    EndFunc ;=>>Tabsheed1

    [/autoit] [autoit][/autoit] [autoit]

    Func Tabsheedloeschen1() ; Die InputBoxen wieder Leeren
    GUICtrlSetData($warenname1, "")
    GUICtrlSetData($Stueckzahl2, "")
    GUICtrlSetData($preiseinkaufeinzel3, "")
    GUICtrlSetData($preiseinkaufgesamt4, "")
    GUICtrlSetData($portoeinzelstuck5, "")
    GUICtrlSetData($portoges6, "")
    GUICtrlSetData($verkaufspreis7, "")
    GUICtrlSetData($portoverkauf8, "")
    GUICtrlSetData($portoreal9, "")
    GUICtrlSetData($ebay10, "")
    GUICtrlSetData($paypal11, "")
    EndFunc ;=>>Tabsheedloeschen1

    [/autoit] [autoit][/autoit] [autoit]

    Func Tabsheed2() ; Die Einträge der InputBoxen in eine Variable Lesen und diese dann in die Excel Tabelle schreiben
    $21 = GUICtrlRead ($name21)
    $22 = GUICtrlRead ($preiseinkauf22)
    $23 = GUICtrlRead ($andererverwendungszweck23)
    $sFilePath1 = @ScriptDir & "\Skripte\Tabellen\malle.xls"
    $oExcel =_ExcelBookOpen ($sFilePath1, $fVisible = 1)
    If @error = 1 Then
    MsgBox(0, "Fehler! >> Tabsheed2() <<", "Das Excel-Objekt konnte nicht erstellt werden")
    Exit
    ElseIf @error = 2 Then
    MsgBox(0, "Fehler! >> Tabsheed2() <<", "Die Datei existiert nicht!")
    EndIf
    $oExcel.Sheets("Eingaben vom Tool").Select
    Dim $lZeile, $lZeile2
    $lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row
    $oExcel.Cells($lZeile +1,13).Value = $21 ;-----Screibt in eine Zelle einen Text
    $oExcel.Cells($lZeile +1,14).Value = $22
    $oExcel.Cells($lZeile +1,15).Value = $23

    [/autoit] [autoit][/autoit] [autoit]

    $oExcel.Cells($lZeile +1,1).Value = 0
    $oExcel.Cells($lZeile +1,2).Value = 0
    $oExcel.Cells($lZeile +1,3).Value = 0
    $oExcel.Cells($lZeile +1,4).Value = 0
    $oExcel.Cells($lZeile +1,5).Value = 0
    $oExcel.Cells($lZeile +1,6).Value = 0
    $oExcel.Cells($lZeile +1,7).Value = 0
    $oExcel.Cells($lZeile +1,8).Value = 0
    $oExcel.Cells($lZeile +1,9).Value = 0
    $oExcel.Cells($lZeile +1,10).Value = 0
    $oExcel.Cells($lZeile +1,11).Value = 0

    [/autoit] [autoit][/autoit] [autoit]

    $oExcel.Cells($lZeile +1,17).Value = 0
    $oExcel.Cells($lZeile +1,18).Value = 0
    $oExcel.Cells($lZeile +1,19).Value = 0
    $oExcel.Cells($lZeile +1,20).Value = 0
    $oExcel.Cells($lZeile +1,21).Value = 0
    $oExcel.Cells($lZeile +1,22).Value = 0
    $oExcel.Cells($lZeile +1,23).Value = 0
    $oExcel.Cells($lZeile +1,24).Value = 0
    $oExcel.Cells($lZeile +1,25).Value = 0
    $oExcel.Cells($lZeile +1,26).Value = 0
    $oExcel.Cells($lZeile +1,27).Value = 0
    $oExcel.Cells($lZeile +1,28).Value = 0
    $oExcel.Cells($lZeile +1,29).Value = 0
    $oExcel.Cells($lZeile +1,30).Value = 0
    $oExcel.Cells($lZeile +1,31).Value = 0

    [/autoit] [autoit][/autoit] [autoit]

    _ExcelBookClose($oExcel)
    MsgBox(64,"Eigenbedarf Einkauf", ("Daten wurden in die Tabelle Eigenbedarf Einkauf geschrieben" & @CRLF & @CRLF & "zum Anschauen bitte auf Tabelle öffnen Klicken" & @CRLF & @CRLF & " Zum Ändern bitte auf Verkauf Einträge gehen "))
    Tabsheedloeschen2()
    EndFunc ;=>>Tabsheed2

    [/autoit] [autoit][/autoit] [autoit]

    Func Tabsheedloeschen2() ; Die InputBoxen wieder Leeren
    GUICtrlSetData($name21, "")
    GUICtrlSetData($preiseinkauf22, "")
    GUICtrlSetData($andererverwendungszweck23, "")
    EndFunc ;=>>Tabsheedloeschen2

    [/autoit] [autoit][/autoit] [autoit]

    Func Tabsheed3() ; Die Einträge der InputBoxen in eine Variable Lesen und diese dann in die Excel Tabelle schreiben
    ;Tabsheed 3
    $31 = GUICtrlRead ($Stuckzahl31)
    $32 = GUICtrlRead ($verkaufspreis32)
    $33 = GUICtrlRead ($Portoges33)
    $34 = GUICtrlRead ($portorealkosten34)
    $35 = GUICtrlRead ($ebay35)
    $36 = GUICtrlRead ($paypal36)
    $37 = GUICtrlRead ($rechnungsnummer37)
    $38 = GUICtrlRead ($Adressename38)
    $39 = GUICtrlRead ($Adressestrasse39)
    $310 = GUICtrlRead ($Adresseort310)
    $311 = GUICtrlRead ($Adresseland311)
    $312 = GUICtrlRead ($rechnungname312)
    $313 = GUICtrlRead ($rechnungstrasse313)
    $314 = GUICtrlRead ($rechnungort314)
    $315 = GUICtrlRead ($rechnungland315)
    $sFilePath1 = @ScriptDir & "\Skripte\Tabellen\malle.xls"
    $oExcel =_ExcelBookOpen ($sFilePath1, $fVisible = 1)
    If @error = 1 Then
    MsgBox(0, "Fehler!>> Tabsheed3() <<", "Das Excel-Objekt konnte nicht erstellt werden")
    Exit
    ElseIf @error = 2 Then
    MsgBox(0, "Fehler!>> Tabsheed3() <<", "Die Datei existiert nicht!")
    EndIf
    $oExcel.Sheets("Eingaben vom Tool").Select
    Dim $lZeile
    $lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row
    $oExcel.Cells($lZeile +1,17).Value = $31 ;-----Screibt in eine Zelle einen Text
    $oExcel.Cells($lZeile +1,18).Value = $32
    $oExcel.Cells($lZeile +1,19).Value = $33
    $oExcel.Cells($lZeile +1,20).Value = $34
    $oExcel.Cells($lZeile +1,21).Value = $35
    $oExcel.Cells($lZeile +1,22).Value = $36
    $oExcel.Cells($lZeile +1,23).Value = $37
    $oExcel.Cells($lZeile +1,24).Value = $38
    $oExcel.Cells($lZeile +1,25).Value = $39
    $oExcel.Cells($lZeile +1,26).Value = $310
    $oExcel.Cells($lZeile +1,27).Value = $311
    $oExcel.Cells($lZeile +1,28).Value = $312
    $oExcel.Cells($lZeile +1,29).Value = $313
    $oExcel.Cells($lZeile +1,30).Value = $314
    $oExcel.Cells($lZeile +1,31).Value = $315

    [/autoit] [autoit][/autoit] [autoit]

    $oExcel.Cells($lZeile +1,1).Value = 0
    $oExcel.Cells($lZeile +1,2).Value = 0
    $oExcel.Cells($lZeile +1,3).Value = 0
    $oExcel.Cells($lZeile +1,4).Value = 0
    $oExcel.Cells($lZeile +1,5).Value = 0
    $oExcel.Cells($lZeile +1,6).Value = 0
    $oExcel.Cells($lZeile +1,7).Value = 0
    $oExcel.Cells($lZeile +1,8).Value = 0
    $oExcel.Cells($lZeile +1,9).Value = 0
    $oExcel.Cells($lZeile +1,10).Value = 0
    $oExcel.Cells($lZeile +1,11).Value = 0

    [/autoit] [autoit][/autoit] [autoit]

    $oExcel.Cells($lZeile +1,13).Value = 0
    $oExcel.Cells($lZeile +1,14).Value = 0
    $oExcel.Cells($lZeile +1,15).Value = 0
    _ExcelBookClose($oExcel)
    MsgBox(64,"Verkauf Einträge", ("Daten wurden in die Tabelle Verkauf Einträge geschrieben" & @CRLF & @CRLF & "zum Anschauen bitte auf Tabelle öffnen Klicken" & @CRLF & @CRLF & " Zum Ändern bitte auf Verkauf Einträge gehen "))
    Tabsheedloeschen3()
    EndFunc ;=>>Tabsheed3

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Tabsheedloeschen3() ; Die InputBoxen wieder Leeren
    GUICtrlSetData($Stuckzahl31, "")
    GUICtrlSetData($verkaufspreis32, "")
    GUICtrlSetData($Portoges33, "")
    GUICtrlSetData($portorealkosten34, "")
    GUICtrlSetData($ebay35, "")
    GUICtrlSetData($paypal36, "")
    GUICtrlSetData($rechnungsnummer37, "")
    GUICtrlSetData($Adressename38, "")
    GUICtrlSetData($Adressestrasse39, "")
    GUICtrlSetData($Adresseort310, "")
    GUICtrlSetData($Adresseland311, "")
    GUICtrlSetData($rechnungname312, "")
    GUICtrlSetData($rechnungstrasse313, "")
    GUICtrlSetData($rechnungort314, "")
    GUICtrlSetData($rechnungland315, "")
    EndFunc ;=>>Tabsheedloeschen3

    [/autoit] [autoit][/autoit] [autoit]

    Func endmain()
    _ExcelBookClose($oExcel)
    Exit
    EndFunc ;==>endmain

    [/autoit]


    Bei Zeile 348 kann ich eine Zelle auslesen möchte aber die Zeile A ab der 4 Zelle bis zur letzten ausgefüllten Zelle A alles in einer ListBox Zeile 259 im skript anzeigen lassen.
    Wie man die letzte ausgefüllte Zelle in A findet weiß ich nur nicht wie man die Zeile A ab der 4 Zelle in die Listbox bekommt.
    Brauche das um später die Daten der Zeile4 ändern zu können.
    Hier mal ein Bild der Tabelle
    [Blockierte Grafik: http://www.bild-upload.de/uploads/2c5750679ctabelle.jpg]

    Edit: include fehlten

    mfg
    oh-ha

  • Zeile von Excel in ListBox anzeigen

    moin moin,


    Wie bekommt man es hin das man eine Zeile von Excel in einer ListBox angezeigt bekommt ?

    Das Ende der Zeile habe ich durch

    [autoit]

    Dim $lZeile
    $lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row

    [/autoit]


    bestimmt.
    aber wie bekommt man das bis dahin dann in eine ListBox ?

    mfg
    oh-ha

  • FileMove umbenennen geht nicht

    oh man habe den Fehler gefunden.
    hatte sich wohl eine Leerzeile in der Text Datei eingeschlichen der dann natürlich mitkopiert worden ist.
    an dieser Stelle

    [autoit]

    $readts3 = FileRead($readts4)

    [/autoit]


    Habe da einfach ein

    [autoit]

    $readts3 = FileReadLine($readts4, 1)

    [/autoit]


    draus gemacht und schon geht es.
    wollte eh auf *.ini umsteigen nun Verstehe ich auch den Sinn darin.

    Danke an alle die geholfen haben

    mfg
    oh-ha

  • FileMove umbenennen geht nicht

    Zitat

    sind die dateien vllt von anderen programmen geöffnet?


    Da mss ich mal schauen, hatte ich noch gar nicht dran Gedacht das die noch offen sein könnte.

    Es wird eine Excel Tabelle generiert die dann mit 7za.exe über eine Batch gezipt wird.
    hier mal der Teil der mir Kopfschmerzen macht

    [autoit]

    _ExcelBookClose($oExcel)
    FileCopy(@ScriptDir & "\Skripte\Start\Liste\ExcelListen\Daten.xls", @ScriptDir & "\Skripte\Start\", 9)
    ShellExecuteWait("start.bat","",@ScriptDir & "\Skripte\Start","")
    $readts4 = FileOpen(@ScriptDir & "\Skripte\Start\Liste\Listen\ts3.log", 0)
    $readts3 = FileRead($readts4)
    FileClose($readts4)
    copie()
    EndFunc ;==>allgemein

    [/autoit][autoit][/autoit][autoit]

    Func copie()
    MsgBox(0,"info", $sdv & "Sicherungen\sicherung\" & $readts3)
    FileMove(@ScriptDir & "\Skripte\Start\algemein.zip", $sdv & "Sicherungen\allgemein\" & $readts3, 9)
    FileDelete(@ScriptDir & "\Skripte\Start\Daten.xls")
    FileDelete(@ScriptDir & "\Skripte\Start\algemein.zip")
    ;FileCopy(@ScriptDir & "\Skripte\Start\algemein.zip", ($sdv & "Sicherungen\allgemein\" & $readts3), 9)
    EndFunc ;==>copie

    [/autoit]

    Hatte das mal in eine Func "Func copie() " geschrieben, einer meiner Versuche das hin zu bekommen.

    Die paar Zeilen der Batch:

    Code
    @echo off
cls
7za a -tzip algemein.zip *.xls 
exit

    mfg
    oh-ha

  • FileMove umbenennen geht nicht

    so wieder da

    name22
    Meinte damit eigentlich das es mehr Fehler verursacht wenn man das Skript umschreibt das man es öffentlich machen kann
    als das es Hilft bei der Fehlersuche. Habe da Emailadressen als Variablen drin die alle raus müßten und noch ein paar Sachen.

    @ideas2code
    habe es mal probiert funktionierte auch nicht aber werden die Skripte nicht eh als Admin ausgeführt.

    Das komische ist das es als " FileCopy " geht nur als " FileMove " nicht.


    mfg
    oh-ha

  • FileMove umbenennen geht nicht

    hatte ich schon mal gemacht zeigt er mir genau das an was drin stehen soll.
    C:\mein\Sicherungen\sicherung\Allgemein282-286.zip

    Deshalb hatte ich es ja auch mit der zweiten Zeile oben mal getestet und damit geht es. Der nimmt mir einfach nicht die variable an.
    is schier zum verzweifeln.

    Das ganze Skript würde den Rahmen hier auch ein wenig sprengen denke ich mal sind so ca.2500 Zeilen.

    mfg
    oh-ha

  • FileMove umbenennen geht nicht

    Hallo,

    Hänge da jetzt schon länger fest, frage ich mal lieber.
    Warum geht bei dieser Zeile das umbenennen nicht ?

    [autoit]

    FileMove(@ScriptDir & "\Skripte\Start\algemein.zip", $sdv & "Sicherungen\sicherung\" & $readts3, 9)

    [/autoit]


    Wobei " $readts3 " diese Form hat " Allgemein282-286.zip "
    Diese Zeile geht ohne Probleme

    [autoit]

    FileMove(@ScriptDir & "\Skripte\Start\algemein.zip", $sdv & "Sicherungen\sicherung\" & ".zip", 9)

    [/autoit]

    Komme einfach nicht dahinter was ich falsch mache.

    mfg
    oh-ha