Thema Datum  Von Nutzer Rating
Antwort
10.01.2015 12:07:29 Chung
NotSolved
Blau Laufzeitfehler 1004 die Activate-Methode....
 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:
Gast70770		 Datum:
10.01.2015 18:12:06		 Views:
1183		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 1004 die Activate-Methode....

Hallo,

klar wie Kloßbrühe, Tabelle2 ist bei Dir beim Aufruf der Form nicht das aktive Tabellenblatt, deswegen läßt sich auch die Zelle nicht selektieren.

Diese Fehlerquelle kannst Du aber komplett  vermeiden, indem Du auf Activate verzichtest, was in den meisten Fällen unnötig ist, zudem solltest Du nie excelinterne Schüsselwörter als Variablenbezeichner nutzen, desweitern die Zeilenvariablen immer als Long-Datentyp deklarieren....

?
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 lngRow As Long
    Dim lngMyRow As Long
    lngMyRow = 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
      
        lngRow = 2
        With Tabelle2
           Do Until .Cells(lngRow, 1).Value = ""
              With .Cells(lngRow, 1)
                   If .Value = TB_Kundennummer.Text Then
                       lngMyRow = .row
                       Exit Do
                   End If
              End With
               lngRow = lngRow + 1
           Loop
        End With
      
      
        If lngMyRow = 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" & lngMyRow) & " " & Tabelle2.Range("B" & lngMyRow) & "!"
            Frame_Haushalt.Visible = True
            Frame_Umwelt.Visible = True
        End If
      
    End If
End Sub

Gruß,

 

 

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
10.01.2015 12:07:29 Chung
NotSolved
Blau Laufzeitfehler 1004 die Activate-Methode....
 10.01.2015 18:12:06 Gast70770
NotSolved
10.01.2015 23:38:12 Chung
NotSolved
14.03.2017 14:23:18 DingDangDong
NotSolved