Beiträge von Westenseer

  • NotesExport to Excel (Sort einer Spalte in Excel per VBA)

    Hallo Diali,
    OK, hab es dann mal angepasst, aber....


    xlSheet.Range("F2").Select
    xlSheet.Range(xlapp.Selection, xlapp.Selection.End(-4121)).Select
    xlapp.Selection.Sort xlSheet.Range("F2"), 1, 0, 1, False, 1, 0


    funzt auch nicht. Immer wieder der Fehlerhinweis "Bezug ist ungültig"


    habe es dann noch mal mit der UsedRange getestet, aber


    xlsheet.UsedRange.Select
    xlapp.Selection.Sort xlSheet.Range("F2"), 1, 0, 1, False, 1, 0


    aber auch hier kommt der gleiche Fehler, was meint er denn mit "Bezug ist ungültig"? eventl. die Angabe
    "xlsheet.Range("F2") ??

  • NotesExport to Excel (Sort einer Spalte in Excel per VBA)

    Hallo Diali,
    Hallo Taurec,
    ich habe es jetzt mal ganz simpel probiert und nur die beiden ersten Parameter mitgegeben.


    xlsheet.UsedRange.Sort xlsheet.Range("F2"), 1,1


    ich erhalte aber jetzt die Meldung, dass der "Bezug ungültig" ist.
    Was ist denn damit gemeint ?
    Den Bereich "UsedRange" und die Spalte ("F2") habe ich doch übergeben.
    Weiß Jemand Hilfe ?

  • NotesExport to Excel (Sort einer Spalte in Excel per VBA)

    Hallo Diali,


    das Makro sieht so aus.


    Range("E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal



    bei der Anpassung ändere ich Range......
    in xlsheet.Range.......
    die Doppelpunkte entferne ich auch der Formal,


    das klappt ja noch, wie verfahre ich aber mit "Selection",
    muss ich die vorher definieren?


    With xlsheet
    .UsedRange.sort Key1 = .Range("C2"), Order1 = xlAscending, Header = xlno, MachCase = False, Orientation = xlTopToBottom
    End With


    so klappt es z.B. nicht

  • NotesExport to Excel (Sort einer Spalte in Excel per VBA)

    Hallo @All,
    ich hätte da gerne ein Problem.
    Ich exportiere aus Notes eine Datenbank nach Excel und bilde mir dann in Excel Summen, bringe Excel dazu die übergebenen nummerischen Werte auch als solche zu erkennen, etc..... .
    Nun möchte ich aber auch noch eine Spalte in Excel sortieren, das klappt aber einfach nicht.
    Hat Jemand eine brauchbare Lösung, die Lösungen selbst im Handbuch "Excel 2007 VBA" funzen einfach nicht und auch das googlen hat mir nicht geholfen. Ich suche dringend einen Sehenden.


    Gruß Harald

  • Dokument per Timer schließen

    taurec
    genau das war es.
    Ich habe das Script geändert und das Doc zuvor in den Globals definiert.


    If etime = 120 Then
    Dim wks As New NotesUIWorkspace
    Call wks.EditDocument(True, Doc,,,, False)
    doc.saveoptions = "0"
    Call uidoc.Close(True)
    End If


    Jetzt funzt es wunderbar.


    Vielen Dank,
    Gruß Harald

  • Dokument per Timer schließen

    taurec
    vielen Dank habe es mal so probiert, aber leider ohne Erfolg.


    If OpenTime = 120 Then
    Dim wks As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Set uidoc = wks.CurrentDocument
    Set doc = uidoc.Document
    Call wks.EditDocument(False,doc)
    doc.saveoptions = "0"
    Call uidoc.Close(True)
    End If


    Nun passiert leider überhaupt nichts mehr.

  • Dokument per Timer schließen

    Hallo miteinander,
    ich hätte da gerne ein Problem.
    In einer Datenbank habe ich einen Timer etabliert, der ein geöffnetes Dokument nach einer bestimmten Zeit (2 Min.) automatisch schließen soll. Das klappt zwar auch, aber es wird nicht das Dokument geschlossen in dem der Timer läuft; sondern das momentan vom User bearbeitete, obwohl dieses sich in einer anderen DB befindet. Es schließt sich also immer das momentan aktive Dokumentenfenster.


    mein Code in der Sub für den Timer lautet:


    if OpenTime = 300 then
    dim Wks as New Notesuiworkspace
    dim uidoc as notesuidocument
    set uidoc = wks.currentdocument
    dim doc as notesdocument
    set doc = uidoc.document
    doc.SaveOptions = "0"
    call uidoc.close(true)
    end if


    Hat jemand einen Tipp für mich ?


    Gruß Harald

  • Gliederungseintrag per Formel/Script änderbar ?

    Hallo,
    besteht die Möglichkeit in einer Gliederung die "Quelle" per Formel bzw. Script zu ändern.
    Es gibt da ja ein Feld "Formel für den Namen des benannten Elements".
    Ich habe versucht mit @GetProfileField dort einen Wert zu zuweisen, klappt aber nicht.
    In der Hilfe habe so recht auch nichts gefunden, ausser dass @GetProfileField wohl dort nicht funktioniert.
    Ist das korrekt oder ist jemanden eine ändere Möglichkeit bekannt. Vielleicht gibt es ja Umwege um zu dem gewünschten Erfolg zu kommen.


    Grund dafür ist:
    Ich habe eine multiple Workflow-DB und jeder WF hat dort eine eigene View, die individuell durch den DB-Verantwortlichen gestaltet werden kann.
    Der DB-Verantwortliche kann den Namen einer View, Spaltenzahl und deren Inhalt etc. auch individuell im ProfilDoc vergeben, die View wird dann per Agent geändert.


    Bin für jeden Tipp dankbar.
    Gruß
    Harald

  • @command([Execute...

    @Bastian
    es sollte eigentlich nur eine Arbeitserleichterung sein. So könnte eine berechtigte Person aus einem Workflow heraus sofort in den Designer wechsel und hätte die DB gleich im Zugriff, ohne über Öffnen etc. zu gehen und er muss die DB auch nicht auf dem Workplace haben.


    Diali
    Nein, über eine Netzwerkfreigabe wollte ich das sicher nicht tun.
    Habe Deinen Vorschlag einmal ausprobiert. Das funzt.
    @command([Execute];"C:\\programme\\Notes\\designer.exe";"NameDesDominoServers!!Pfad\\DB.nsf")


    Vielen Dank für Deine Hilfe.
    Gruß Harald
    :):)

  • @command([Execute...

    Hallo,
    ich möchte über eine Schaltfläche die Designer-Task aufrufen und dabei gleich eine bestimmte Datenbank auf dem Notesserver öffnen.
    OK, mit :
    @command([execute];"C:\Programme\Notes\designer.exe";"Dos-Pfad // Datei") funktioniert es ja, aber kann ich da auch irgendwie mit db.server + db.filepath arbeiten ?
    Eine Netzressource wollte ich eigentlich nicht extra bereitstellen.


    Grüße aus dem nassen S-H
    Harald

  • Problem mit der Datenübergabe vom Back-End zum Front-End bei Änderung in Richtextfeldern

    RockWilder
    Vielen Dank für den Tipp, aber das will bei mir nicht so richtig funktionieren. Die Daten sind zwar geändert, aber gedruckt werden die Platzhalter unverändert.
    Vielleicht kann sich mal jemand mein Script ansehen und findet meinen Fehler.


    [size=x-small]
    /edit RockWilder:
    Code bitte in entsprechende Tags verpacken, das macht es übersichtlicher. Danke![/size]

  • Problem mit der Datenübergabe vom Back-End zum Front-End bei Änderung in Richtextfeldern

    ich habe da ein Problem mit dem Datenaustausch zwischen Back-End und Front-End.
    In einem geöffneten Dokument starte ich einen Agenten, der Änderungen in diversen Feldern des Dokuments vornimmt und das Dokument anschließend druckt.
    Klappt auch prima soweit, wenn ich aber dabei auch Änderungen in Richtextfeldern vornehme, kommen diese Änderungen nicht rüber.
    In der Hilfe steht dazu, dass Änderungen in Richtextfeldern im BackEnd erst nach einem Close und ReOpen zur Verfügung stehen.
    Mein Problem, wie kann ich das im Agenten abbilden ?
    Geht's überhaupt ?


    Gruß Harald