Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler im Code Select Case

Fehler im Code Select Case
15.02.2008 21:41:37
Torge
Hallo,
kann bitte mal jemand auf den Code schauen, habe ihn schon verschieden angepaßt aber haute nicht hin.

Private Sub CommandButton1_Click()
Dim PW As String, PWEingabe As String, Fehler As Byte
Select Case TextBox1.Text
Select Case TextBox1.Text  "toxma" Or "blubbA" Or "blubbB" '
If PWEingabe  "toxma" Or "blubbA" Or "blubbB" Then
Fehler = Fehler + 1
If Fehler


Wollte eine Anweisung einbauen, die bei falscher Eingabe nach 3 x die Datei schließt.
Danke
Gr. T.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler im Code Select Case
15.02.2008 22:09:21
Hajo_Zi
Hallo Torge,
Du hättest vielleicht schreiben sollen was der Code bewirken soll.

Option Explicit
Private Sub CommandButton1_Click()
Dim PW As String, PWEingabe As String, Fehler As Byte
If PWEingabe  "toxma" Or "blubbA" Or "blubbB" Then
Fehler = Fehler + 1
If Fehler  "toxma" Or TextBox1.Text  "blubbA" Or TextBox1.Text  " _
blubbB" Then
MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben!" & vbLf _
& "Noch " & 3 - Fehler & " Versuche."
Select Case TextBox1.Text
Case "toxma"
DieseArbeitsmappe.user = "C"
Case "blubbA"
DieseArbeitsmappe.user = "A"
Case "blubbB"
DieseArbeitsmappe.user = "B"
Case Else
MsgBox "Falsches Passwort, Mappe wird geschlossen"
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Select
End If
End If
End If
Unload Me
End Sub



Anzeige
AW: Fehler im Code Select Case
15.02.2008 22:26:00
Torge
Hallo Hajo,
vielen Dank für den Hinweis.
War keine Absicht, hätte ich wohl näher erklären sollen.
Sollte ein PW Abfrage beim öffnen der Datei sein, bei der nach Eingabe von 3 x falsch die Datei geschlossen werden soll. Wenn richtig, dann soll Datei geöffnet werden können, wie in der Case Anweisung beschrieben.
An dieser Stelle If PWEingabe "toxma" Or "blubbA" Or "blubbB" Then
bekomme ich immer eine Fehler, unverträgliche typen.
Gr. T

AW: Fehler im Code Select Case
15.02.2008 23:05:00
Daniel
Hi
der Fehler kommt daher, daß man mit OR bzw AND nur Wahrheitswerte (also TRUE oder FALSE, bzw Rechenoperationen, die ein derartiges Ergebnis haben) miteinander verbinden kann.
Du versuchst das aber mit Textstrings, und das geht nicht.
so müsste es funktionieren:
If PWEingabe "toxma" Or PWEingabe "blubbA" Or PWEingabe "blubbB" Then
Gruß, Daniel

Anzeige
AW: Fehler im Code Select Case
16.02.2008 12:07:19
Nepumuk
Hallo Torge,
versuchs mal so:
Private Sub CommandButton1_Click()
    Static Fehler As Byte
    Select Case TextBox1.Text
        Case "toxma"
            DieseArbeitsmappe.user = "C"
            Unload Me
        Case "blubbA"
            DieseArbeitsmappe.user = "A"
            Unload Me
        Case "blubbB"
            DieseArbeitsmappe.user = "B"
            Unload Me
        Case Else
            Fehler = Fehler + 1
            If Fehler < 3 Then
                MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben!" & vbLf _
                    & "Noch " & 3 - Fehler & " Versuche."
                With TextBox1
                    .SelStart = 0
                    .SelLength = .TextLength
                    .SetFocus
                End With
            Else
                MsgBox "Falsches Passwort, Mappe wird geschlossen"
                Unload Me
                ThisWorkbook.Close SaveChanges:=False
            End If
    End Select
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = CloseMode <> vbFormCode
End Sub

Gruß
Nepumuk

Anzeige
AW: Fehler im Code Select Case
16.02.2008 12:18:14
Torge
Hallo Nepumuk,
vielen Dank für die Hilfe.
Frage: bekomme an der Stelle: "Select Case TextBox1.Text" immer Fehlermeldung "Ungültiger Bezeichner". Muss ich bzw. denke die Bezeichnung TextBox1.Text muss noch irgendwie deklariert werden oder muss da eine andere Bezeichnung hin? Hab es mit Dim Textbox1 as string probiert , geht nicht, gleiche Fehlermeldung.
Gr. T.

AW: Fehler im Code Select Case
16.02.2008 13:02:00
Nepumuk
Hallo Torge,
ich hab keine Ahnung wie deine Textbox heißt. Das war schließlich dein Code den ich entfehlert habe.
Gruß
Nepumuk

AW: Fehler im Code Select Case
16.02.2008 16:12:45
Torge
Hallo Nepumuk,
alles klar. Hab Dein Code nochmals probiert und mit meinem ersetzt. Hab wohl nur die Hälfte gemacht, nun funktioniert es.
Also super Danke, Dir ein schönes Wochenende.
Gr. T.
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige