Microsoft Excel – die besten Beiträge

Das Tabellenblatt öffnet sich nicht?

Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.


Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim passwort As String
    Dim pfad_zur_datei As String
    Dim wb As Workbook
    Dim bestaetigung As VbMsgBoxResult

    ' Bestätigungsnachricht anzeigen und Passwort abfragen
    bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")

    ' Wenn der Benutzer auf "Ja" klickt
    If bestaetigung = vbYes Then
        passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")

        ' Überprüfe das eingegebene Passwort
        If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
            ' Konstruiere den vollständigen Pfad zur Datei
            pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an

            ' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
            On Error Resume Next
            Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
            On Error GoTo 0

            ' Wenn das Arbeitsblatt existiert, aktiviere es
            If Not ws Is Nothing Then
                ws.Activate
            Else
                MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
                Exit Sub
            End If
        Else
            MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
            Exit Sub
        End If
    Else
        MsgBox "Vorgang abgebrochen.", vbInformation
        Exit Sub
    End If

    ' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert

End Sub
Microsoft Excel, VBA

Eine knifflige Frage für Excel-PROFIS!?

Hallo zusammen,
ich sitze im Anwender Support 1st level und mich hat eine besondere und scheinbar UNMÖGLICHE Anfrage erreicht:

Die Userin hat 2 Listen:
1: Techniker + Standort
2: Wichtige Standorte

Die Userin hat die 1. Liste Exportiert und die 2. selbst erstellt

In der exportierten Liste sieht es wie folgt aus:

| | Montag |

|--------------------------|------------------ |

|Technikername1 | Standort 1|

| | Standort 2 |

| | Standort 3 |
|---------------------------|-------------------|

|Technikername2 | Standort 4 |

| | Standort 5 |

| | Standort 6 |
|---------------------------|-------------------|

Bitte stellt euch vor, dass die Standorte alle in einer Zelle stehen, mit Zeilenumbruch untereinander.

Die Liste, die die Userin erstellt hat sieht es wie folgt aus:

|--------------------------|Wichtige Standorte|

|--------------------------|-------------------------------|

|--------------------------|Standort 2 |

|--------------------------|-------------------------------|

|--------------------------|Standort 5 |

|--------------------------|-------------------------------|

Diese wichtigen Standorte stehen alle in separaten Zellen.
Nun möchte die Userin (ohne 30 Regeln, für 30 wichtige Standorte zu erstellen) die Standortliste für die Techniker farblich hervorheben, welche einen wichtigen Standort in der Liste haben.
Wir sind gescheitert.... Ich freue mich auf eure Lösungsansätze (Natürlich haben wir schon EINIGES probiert!!)
LG

Microsoft Excel, Formatierung

Meistgelesene Beiträge zum Thema Microsoft Excel