|
Ich habe das unten stehendes Problem jetzt halbwegs lösen können aber
Seit dem ich den Code
ActiveWorkbook.Sheets("Kundendatenbank").Activate
ActiveSheet.Range("A2").Select
verwende und mein Formular über die Schaltfläche-Button, das auf
der Tabelle1 angelegt wurde, aufrufe und das ausführe, dann läuft
alles super. Nur dann kann ich rechts oben auf dem X-Button
drücken wie der Finger blutet, mein Excel schließt einfach nicht. Ich
muss dann eine andere Exceldatei aufmachen und zu machen, erst
dann schließt sich der Excel auch zusammen....
WARUM??
mein Code:
Private Sub CB_ueberpruefen_Click()
Dim row As Integer
row = 0
'Überprüfung der gültigen Kundennummer - Ob Leerzeichen oder
keine Nummer
If TB_Kundennummer.Text = "" Or Not
IsNumeric(TB_Kundennummer.Text) Then
Label_Kunden_Ausgabetext.Caption = "Bitte geben Sie eine
gültige Kundennummer ein"
Else
'Tabelle2.Range("A2").Activate
ActiveWorkbook.Sheets("Kundendatenbank").Activate
ActiveSheet.Range("A2").Select
Do Until ActiveCell = ""
If ActiveCell.Value = TB_Kundennummer.Text Then
row = ActiveCell.row
Exit Do
End If
ActiveCell.Offset(1, 0).Activate
Loop
If row = 0 Then
Label_Kunden_Ausgabetext.Caption = "Ihre Kundendaten sind
noch nicht registriert. Bitte registrieren Sie sich."
Frame_Haushalt.Visible = False
Frame_Umwelt.Visible = False
Else
Label_Kunden_Ausgabetext.Caption = "Hallo " &
Tabelle2.Range("C" & row) & " " & Tabelle2.Range("B" & row) & "!"
Frame_Haushalt.Visible = True
Frame_Umwelt.Visible = True
End If
End If
End Sub
Wie gesagt, es passiert NUR, wenn ich mein Formular über die
Schaltfläche-Button aufrufe, die in der Tabelle1 angelegt ist.
Wenn ich mein Programm anfangs direkt mit F5 starte, dann kann ich
danach mein Excel schließen!
Vielleicht läuft der iwo noch weiter ??
|