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....

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ß,