Objektvariable oder With-Blockvariable nicht festg
Brand
Ich habe versucht, die Daten in der Auswahlliste zu sortieren und danach zu zählen. Es zeigt immer die Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt" bei Austesten des Programms oder wenn es funktioniert, der Wert von k ist immer bei 0 und hat sich nicht geändert. Meine Meinung nach liegt der Fehler bei der Deklaration von FoundCell .
Ich habe seit heute Morgen versucht, andere Möglichkeiten zu suchen oder Lösung für dieses Problem zu finden. Ich kann aber bis jetzt keine Lösung für dieses Problem finden und bin momentan wirklich am Verzweifeln.
Für jede Hilfe bin ich sehr sehr dankbar.
Viele Grüße,
BM
Hier ist die Syntax:
Sub Status(ByVal zahl As Integer, zahl2 As String)
Application.ScreenUpdating = False
Dim dat_start As Double
Dim dat_ende As Double
Dim Blatt1 As Object: Set Blatt1 = Sheets("xxx")
Dim Blatt2 As Object
Dim FoundCell As Range
Dim LastCell As Range
Dim FirstAddr As String
If zahl = 0 Then
Set Blatt2 = Sheets("yyy")
ElseIf zahl = 1 Then
Exit
Sub 'Syntax für das Blatt "reaktive Prüfung / kritische Teile"
End If
dat_start = CDbl(DateValue(DMA))
dat_ende = CDbl(DateValue(DME))
Blatt2.Select
With Selection
.AutoFilter Field:=14, Criteria1:=">=" & dat_start, Operator:=xlAnd, Criteria2:=" 0 Then
Worksheets("xxx").OLEObjects("D_" & zahl2).Object.Caption = CStr(k)
Worksheets("xxx").OLEObjects("D_" & zahl2).Object.BackColor = &HFF&
End If
Worksheets("xxx").Select
Application.ScreenUpdating = True
End Sub