Verwandte Themen

Wolly25
28.03.2024, 10:47
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
2 Antworten
Gipfelstuermer
20.03.2024, 18:43
Mit Bildern
Excel Performance von Summenprodukt und Summewenn?

Ich hab da mal eine mal eine Frage und zwar habe ich eine Tabelle ca. 400-500 Zeilen lang (für 1. gesamtes Jahr), die mit Daten (Datum) und ein einer anderen Spalte mit Zahlen (gefahrene Kilometer) gefüllt werden, in einem anderen Tabellenblatt habe ich eine Statistik angelegt in der ich die aufsummierten Zahlen innerhalb eines Monats ausgebe, dazu habe ich 2 verschiedene Formeln probiert

=SUMMEWENNS(INDIREKT("'"&$A12&"'!$G:$G");INDIREKT("'"&$A12&"'!$a:$a");">="&DATUM($A12;SPALTE()-1;1);INDIREKT("'"&$A12&"'!$a:$a");"<="&DATUM($A12;SPALTE();0))

=SUMMENPRODUKT((INDIREKT("'"&$A4&"'!$a:$a")>=DATUM($A4;SPALTE()-1;1))*1;(INDIREKT("'"&$A4&"'!$a:$a")<=DATUM($A4;SPALTE();0))*1;INDIREKT("'"&$A4&"'!$G:$G"))

Im Klartest steht da drin, prüfe ob in der Spalte A ein Datum steht, das zwischen dem 1 und dem letzten des jeweilig ausgewählten Monats liegt in A4 steht einfach das jeweilige Jahr. und addiere dann in der gleiche Zeile alle Werte in der Spalte G zusammen.

Als Bild sieht das dann so aus:

Wenn ich nun eine neue Zeile anlege und das Datum oder den Kilometerstand eintrage, rechnet Excel (unten steht das der 8 Threads in Bearbeitung und wieviel % angeschlossen) ca.5sek bevor ich irgendwas weiteres tippen kann.

Kennt einer eine Formel die ggf. performanter ist. Die einzige Optimierung die mir noch einfällt, wäre nicht A:A und G:G zu schreiben sondern nur A5:A1000 zu nehmen, aber da ich die Gesamtlänge nicht so genau kenne, habe ich halt mit A:A gearbeitet, so fehlt mir sicher kein Wert.

Bedanke mich im Voraus für Eure Hilfe

LG Gipfelstürmer

Bild zum Beitrag
Microsoft Excel, Microsoft Office, Formel, optimierung, Tabellenkalkulation, Excel-Formel
4 Antworten
Gipfelstuermer
11.03.2024, 12:34
Mit Bildern
Excel automatisches Datumsinkrement nach variabler Anzahl Zeilen?

Hallo zusammen,

ich habe mir ursprünglich eine ganz rudimentäre Liste für die persönliche Dokumentation meiner Zeiten erstellt, bevor ich das in unsere Datenbank übertrage, außerdem hatte die im letzten Jahr einen blöden Fehler, so kann ich das Endergebnis zumindest gegenprüfen.

Hier als Bild der grobe Aufbau:

primär geht es mir um die erste Spalte A in den Spalten B bis G habe ich eine beliebige Anzahl an Einträgen, je nach dem wie viele verschiedene Projekte bearbeitet wurden.

Nun möchte ich am Ende des letzten Eintrags eine Leerzeile haben und in der drauffolgenden Zeile, das neue Datum beginnen.

ein einfaches Inkrement könnte ich ja mittels Wenn(Zwei Zeilen oben drüber<>"" UND eine oben drüber=""; dann altes Datum+1;sonst "")

Das Problem allerdings ist, dass ich nicht weiß, wo das letzte Datum steht, da ja die Anzahl der Einträge variiert, wie kann ich innerhalb einer Spalte auf den die letzte gefüllt Zelle überprüfen ohne unzählige Wenns aneinander zu reihen und jede Zeile manuell abzuprüfen, dachte an irgendetwas wie zählenwenn, in Kombination mit Summe, aber so richtig kam mir noch keine goldene Idee. Alle Zeilen oben drüber auf den größten Eintrag abprüfen, war auch noch seine Idee, die mir kam, z.B. mit kgroesste.

Kann mich jemand inspirieren, oft fehlt ja nur ein Anstoß.

Grüße Gipferstürmer

Bild zum Beitrag
Microsoft Excel, Microsoft Office 2019
1 Antwort

Meistgelesene Beiträge zum Thema Microsoft Excel
Mehr meistgelesene Fragen zu Microsoft Excel