Thema Datum  Von Nutzer Rating
Antwort
05.07.2022 22:39:43 Ingo
NotSolved
Blau Schaltfläche Navigation funktioniert nicht richtig
 06.07.2022 14:00:40 Gast98332
NotSolved
07.07.2022 07:47:38 Oberschlumpf
NotSolved

Ansicht des Beitrags:
Von:
Gast98332		 Datum:
06.07.2022 14:00:40		 Views:
822		 Rating:
     
Antwort:
  Ja
Thema:
Schaltfläche Navigation funktioniert nicht richtig

Vermeide, wenn es geht, ActiveX-Steuerelemente und nutze Formular-Steuerelemente. Weise diesen dann ein Makro als Aktion zu.

z.B.

Option Explicit

Public Sub OnAction_ActivateOrOpenWorkbook()
  
  Const C_FILE As String = "zeitraum2.xlsm"
  
  Dim wkb As Excel.Workbook
  Dim strFilename As String
  
  strFilename = IIf(Right$(ThisWorkbook.Path, 1) <> "\", ThisWorkbook.Path & "\", ThisWorkbook.Path)
  strFilename = strFilename & C_FILE
  
  If Dir$(strFilename, vbNormal) = "" Then
    Call MsgBox("Datei " & strFilename & " wurde nicht gefunden!", vbCritical)
    Exit Sub
  End If
  
  On Error Resume Next
  Set wkb = Workbooks(C_FILE)
  On Error GoTo 0
  
  If Not wkb Is Nothing Then
    
    'ab hier stimmt zwar der Dateiname,
    'aber der Pfad kann immer noch ein anderer sein!
    '...
    
    Call wkb.Activate
    Exit Sub
  End If
  
  Call Workbooks.Open(strFilename)
  
End Sub

 

Wissenwert ist hier noch, dass Excel seine Mappen anhand des Dateinamens indiziert. Deshalb kann man z.B. eine Datei mit Namen "D:\DateiA.xlsx" in der selben Excel-Instaz nicht zusammen mit "D:\Unterverzeichnis\DateiA.xlsx" öffnen.

Nur weil also der Dateiname stimmt, bedeutet das noch nicht das es die richtige ist; das erkennt man erst am Dateipfad.

 

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.07.2022 22:39:43 Ingo
NotSolved
Blau Schaltfläche Navigation funktioniert nicht richtig
 06.07.2022 14:00:40 Gast98332
NotSolved
07.07.2022 07:47:38 Oberschlumpf
NotSolved