Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004 die Activate-Methode....
 10.01.2015 12:07:29 Chung
NotSolved
10.01.2015 18:12:06 Gast70770
NotSolved
10.01.2015 23:38:12 Chung
NotSolved
14.03.2017 14:23:18 DingDangDong
NotSolved

Ansicht des Beitrags:
Von:
Chung		 Datum:
10.01.2015 12:07:29		 Views:
2501		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 1004 die Activate-Methode....

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!! :((((

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004 die Activate-Methode....
 10.01.2015 12:07:29 Chung
NotSolved
10.01.2015 18:12:06 Gast70770
NotSolved
10.01.2015 23:38:12 Chung
NotSolved
14.03.2017 14:23:18 DingDangDong
NotSolved