kostenloser Webspace werbefrei: lima-city


Excel fürs Geschäft I

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    stauffermi

    stauffermi hat kostenlosen Webspace.

    Hallo zusammen,

    eigentlich wollte ich ja ein Tutorial schreiben. Aber es wurde bis heute noch nicht ver?ffentlicht. Deshalb schreibe ich es jetzt hier. (schade um die Gulden)

    Dieses Jahr habe ich f?r meinen Arbeitgeber eine ziemlich grosse Excel-Datei machen m?ssen. T?glich m?ssen viele Leute dort verschiedene Sachen eingeben.

    Wer im Gesch?ft mit Excel arbeitet, und Sachen in eine Datei eingeben muss, auf die viele andere Personen auch zugreifen k?nnen, kennt sicher dieses Problem: Wenn man sie ?ffnet, kommt eine Meldung: "Die Datei wird von einem anderen Benutzer ge?ffnet und kann daher nur schreibgesch?tzt ge?ffnet werden." Viel Personen vergessen nat?rlich die Datei sofort nach dem Gebrauch wieder zu schliessen. Je mehr Personen auf diese Datei zugreifen m?ssen, desto gr?sser ist die Wahrscheinlichkeit, dass diese Meldung erscheint.

    Deshalb habe ich nun ein Makro geschrieben, welches die Datei automatisch nach einer gewissen Zeit der "Nichtbenutzung" speichert und schliesst. Dadurch wird die Datei wieder frei f?r die anderen Benutzer.

    Wie man dies macht m?chte ich euch nun zeigen:

    Als erstes ?ffnet ihr die Datei, welche automatisch geschlossen werden soll.

    Dann ?ffnet ihr den Visual Basic Editor (Alt + F11)

    Nun markiert Ihr das Verzeichnis "VBAProject (Name der Datei)"

    Nun er?ffnet Ihr dort ein neues Modul. (Einf?gen - Modul)

    Jetzt Doppelklick auf das Modul.

    Dort f?gt ihr nun folgenden Test ein:

    Option Explicit
    Dim datA As Date

    Sub startzeit()
    On Error Resume Next
    Application.OnTime EarliestTime:=datA, Procedure:="Schlie?en", Schedule:=False
    datA = Now + CDate("0:05:00")
    Application.OnTime datA, "Schlie?en"
    End Sub

    Sub Schlie?en()
    ActiveWorkbook.Close True
    End Sub

    Sub Zur?cksetzen()
    Application.OnTime EarliestTime:=datA, Procedure:="Schlie?en", Schedule:=False
    End Sub


    -------------------------------------------------------------
    Dort wo nun ("0:05:00") steht, k?nnt ihr die Zeit ab?ndern ( Stunden:Minuten:Sekunden). So w?rde die Datei nach 5 Minuten schliessen.

    So funktionier es allerdings noch nicht.

    Im Verzeichnis VBAProject (Name der Datei) im Unterverzeichnis Microsoft Excel Objekte f?gt ihr in "diese Arbeitsmappe noch folgendes ein:

    Option Explicit
    Private Sub Workbook_Open()
    startzeit
    End Sub

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    startzeit
    End Sub

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Zur?cksetzen
    End Sub

    -----------------------------------------------------------------

    Nun k?nnt ihr speichern und viel ?rger ersparen.

    Ich hoffe, es hilft euch.
  2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

  3. des dauert schon seine zeit bis des tutorial ver?ffentlicht
    ca. 1-2wochen
    aber jetz z?hlt des tutorial sch?tzungsweise nich mehr
    hasch schon recht
    schade um die gulden
  4. Dieses Thema wurde mit folgender Begr?ndung von mlrecords geschlossen:

    So, Tutorial wird gleich ver?ffentlicht.

    (Dies ist eine automatische Antwort durch das System).
  5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

    lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!