Guten Tag zusammen!
Ich habe einen Laufzeitfehler: 1004 die Activate-Methode des Ranges-Objektes konnte nicht ausgeführt werden.
Mein Excel kann auf einmal Tabelle2.Range("A2").Activate nicht mehr ausführen... alles ging prima bis ich in der Exceltabelle 1 eine Schaltfläche-button erstellt habe, wo ich meinen Formular mit Pragramm.show aufrufe. Und dann wenn ich auf das Button Überprüfen klicke(CB_ueberpruefen_Click()), kommt auf einmal diese Fehlermeldung. und jetzt besteht weiter der Fehler, auch wenn man nicht über dem Button den Fomular aufruft... Kann jemand mir bitte helfen?? ich zerbreche seit 3 Stunden mein Kopf damit und komme einfach nicht weiter!! :((((
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
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
|