Office: VBA Code Schliesen nach Zeit X funktioniert nicht

Helfe beim Thema VBA Code Schliesen nach Zeit X funktioniert nicht in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute , habe ein Problem in meiner Excel Datei wo ich nicht weiter komme. Versuche es so verständlich wie möglich zu beschreiben. ich habe ein... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von polat78, 8. Juli 2023.

  1. VBA Code Schliesen nach Zeit X funktioniert nicht


    Hallo Leute ,
    habe ein Problem in meiner Excel Datei wo ich nicht weiter komme. Versuche es so verständlich wie möglich zu beschreiben.
    ich habe ein Code von jemanden bekommen (leider komme ich an diese Person nicht ran) das Folgendes machen soll. Es läuft eine Zeit x (in meinem fall 360 Sek.) ab nach dem ich die Datei öffne. Wenn ich in dieser Datei irgendeine Eingabe mache fängt die Zeit jedes mal neu an. Sobald keine Aktivität statt findet soll die Datei nach 360 Sek. gespeichert und geschlossen werden. Sobald ich die Datei öffne fängt auch die Zeit an zu laufen. Jedes mal wenn ich etwas eingäbe fängt Sie auch neu an. Doch folgende Probleme träten auf.

    - Wenn ich die Datei öffne Sind die Diagramme und oben links "Disketten Symbol (Speichern) grau hinterlegt. Erst wenn ich Button betätige der Die Mappe als PDF speichern soll erscheinen Sie.
    - Sobald ich in irgendein Zelle etwas eingebe erscheint folgende Fehlermeldung " Sub oder Funktion nicht def."
    - Wenn ich die Datei Manuell (Oben rechts mit x ) schließe wird nicht gefragt ob ich Speichern möchte.

    Vielleicht könnt ihr mir anhand der der Hochgeladenen Datei mir helfen. Ich muss das ganze bis Montag fertig haben und bin am verzweifeln :-( :-(
     
    polat78, 8. Juli 2023
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    Ich kann nur einen Tipp geben wer die Datei öffnen will sollte vorher alle Exceldateien schließen und man sollte wissenm wie man doie obere Symbolleiste wieder einblenden kann.

    VBA Code Schliesen nach Zeit X funktioniert nicht GrußformelVBA Code Schliesen nach Zeit X funktioniert nicht Homepage
     
    Hajo_Zi, 8. Juli 2023
    #2
  3. Hallo Hajo_Zi
    Danke für dein Tipp. Bei allem Respekt aber das bringt mich nicht weiter. :-(
    Kannst du mir sagen warum das ganze nicht funktioniert ????

    Gruß Polat

     
    polat78, 8. Juli 2023
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    VBA Code Schliesen nach Zeit X funktioniert nicht

    NEIN, ich werde das auch nicht weiter verfolgen, da ich Excel über den Taskmanager benden musste, noch offnen Deiner Datei.
    Ich wollte nur andere Antworter auf diesen Zusand hinweisen.

     
    Hajo_Zi, 8. Juli 2023
    #4
  5. Das ist der Code . Vielleicht siehst du ja den fehler.Wäre dir sehr dankbar

    Public p_intStart

    Private Sub Test_Pause()
    Dim Pausenlänge, Start, Ende, Gesamtdauer
    Pausenlänge = 360 ' Dauer festlegen.
    Start = Timer ' Anfangszeit setzen.
    Do While Timer < Start + Pausenlänge
    DoEvents ' Steuerung an andere Prozesse
    ' abgeben.
    Loop
    Ende = Timer ' Ende festlegen.
    Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.
    ActiveWorkbook.Close (True)


    End Sub


    Public Sub Workbook_Open()
    ' Funktion zum schliesen der Arbeitsmappe nach 6 Minunten
    ' Erstellt von Uwe Zweigle (2007)
    On Error Resume Next
    Dim Pausenlänge, Ende, Gesamtdauer, rest, anzeige, begin
    Dim i As Integer
    Dim dauer As Integer

    dauer = 360
    'Dauer bis zum schliesen der Arbeitsmappe
    Pausenlänge = dauer ' Dauer festlegen.
    p_intStart = Timer ' Anfangszeit setzen.
    'Schleifedurchlaufen bis ende erreicht ist
    Do While Timer < p_intStart + Pausenlänge
    rest = p_intStart + pausenzeit
    zeit = Int(dauer - (Timer - rest))
    'Anzeige der Restdauer in der Statusleiste

    DoEvents ' Steuerung an andere Prozesse abgeben.
    For begin = dauer To 0 Step -1
    If begin = zeit Then

    Application.Caption = "Achtung Arbeitsmappe wird in " & zeit & " sek geschlossen....."
    End If
    Next begin
    Loop
    'Rücksetzten der Statusbar
    Application.Caption = ""
    'Schließen der Arbeitsmappe
    ActiveWorkbook.Close (True)




    End Sub

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    p_intStart = Timer
    End Sub


     
    polat78, 8. Juli 2023
    #5
Thema:

VBA Code Schliesen nach Zeit X funktioniert nicht

Die Seite wird geladen...
  1. VBA Code Schliesen nach Zeit X funktioniert nicht - Similar Threads - VBA Code Schliesen

  2. VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst"

    in Microsoft Excel Hilfe
    VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst": Hallo Leute dieser Code für Zellenhöhe bei Verbundenen Zellen Funktioniert fast. Ich habe ein Code von jemand anderem bekommen der nicht in einem Forum ist. Ich kann gerade diese Person nicht...
  3. PDF mit Namen,Datum speichern im Zielordner

    in Microsoft Excel Hilfe
    PDF mit Namen,Datum speichern im Zielordner: Hallo, habe das Problem den Namen in Zelle D2, Vorname in Zelle D5 , das Datum steht in der Zelle B 10 und soll beim speichern so angezeigt werden (Max Mustermann 2023 Oktober) wie und wo muß ich...
  4. Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen

    in Microsoft Excel Hilfe
    Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen: Hallo Zusammen, mein erster Beitrag hier, also schon mal Sorry im Voraus, wenn unvollständig beschrieben *:)* Ich habe das Forum schon nach einem brauchbaren Lösungsansatz durchsucht, bin aber...
  5. UserForm zum bearbeiten von Tabellen und speichern

    in Microsoft Excel Hilfe
    UserForm zum bearbeiten von Tabellen und speichern: Guten Tag Ich habe leider ein Problem, das mich zur Verzweiflung bringt. Vielleicht findet hier jemand einen Lösung für mein Problem. Ich bekommen leider einen Laufzeitfehler '1004'. Zur...
  6. VBA Code Tabellenblatt kopieren und UserForm

    in Microsoft Excel Hilfe
    VBA Code Tabellenblatt kopieren und UserForm: Hallo, ich hoffe mir kann jemand helfen. Schon mal vielen Dank für die Unterstützung. Folgende Thematik: In dem Blatt 1 ist ein ComandButton. Mit Klick soll über VBA folgendes abgefragt...
  7. VBA Code anpassen mit variablem Tabellen Ende

    in Microsoft Excel Hilfe
    VBA Code anpassen mit variablem Tabellen Ende: Hallo, im folgenden Code möchte ich gerne statt eines fest vorgegebenen Tabellen Ende ein variables einsetzen. Sub Verkettung() Dim i As Long For i = 2 To 15000 'Hier soll kein festes Ende...
  8. Tabellenblätter aus Vorlagen-Tabellenblatt generieren mit dynamischen Anpassungen durch Vorgaben

    in Microsoft Excel Hilfe
    Tabellenblätter aus Vorlagen-Tabellenblatt generieren mit dynamischen Anpassungen durch Vorgaben: Hallo, ich suche gerade eine Möglichkeit mittels VBA mehrere Tabellenblätter auf einmal zu generieren (ca. 40), die auf einem Vorlage-Tabellenblatt (TB2) basieren. Das kopieren/ Vervielfachen an...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden