Fehler beim Kompilieren: Case ohne Select Case
06.01.2020 12:57:51
Erdnusskrieger
Ich hoffe ihr könnt mir wieder einmal helfen bei folgendem Problem.
Ich bekomme die oben genannte Fehlermeldung: Fehler beim Kompilieren: Case ohne Select Case
Diese Fehlermeldung erscheint im zweiten Case (Case 720, 1120, ...)
Leider kann ich nicht nachvollziehen warum dieser Fehler auftaucht, da vor 3 Wochen alles i.O. war und am Code meines Erachtens nichts verändert wurde.
Ich hoffe ihr könnt mir helfen..
Grüße, Erdnuss
Ich stelle hier mal den Code verkürzt ein, da während eines Cases immer das Selbe passiert und sich ca. 15x wiederholt.
Mein Code schaut folgendermaßen aus:
Sub SA_Konfiguration_auswerten()
Dim LetzteZeile As Long 'Variable zum Löschen der letzten Zeile
'Fallunterscheidung: Zeit
Select Case Sheets("SA-Konfiguration").Cells(2, 1).Value
'Fall 1: Zeitscheibe vor 07/20 (03/19, 07/19, 11/19, 03/20)
Case 319, 719, 1119, 320
'Kopieren von "Konfiguration über:" aus "PIA-Datenbank vor 07/20" "Spalte A" in " _
Bewertungsbogen", "Spalte A", "Zeile 8" fortlaufend
lr = Sheets("PIA-Datenbank vor 07/20").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("PIA-Datenbank vor 07/20").Range("A3:A" & lr).Copy Sheets("Bewertungsbogen"). _
Cells(8, "A")
'Kopieren von "PIA-Funktionen" aus "PIA-Datenbank vor 07/20" "Spalte G" in " _
Bewertungsbogen", "Spalte B", "Zeile 8" fortlaufend
lr = Sheets("PIA-Datenbank vor 07/20").Cells(Rows.Count, "G").End(xlUp).Row
Sheets("PIA-Datenbank vor 07/20").Range("G3:G" & lr).Copy Sheets("Bewertungsbogen"). _
Cells(8, "B")
'Kopieren von Rahmen "PIA-Datenbank vor 07/20" in "Bewertungsbogen"
Worksheets("PIA-Datenbank vor 07/20").Range("K3:P226").Copy _
Destination:=Worksheets("Bewertungsbogen").Range("C8:H231")
' _
_______________________________________________________________________________________________________________________________________________
'SA-Kombinationen auswerten von unten nach oben (wichtig, da es ansonsten zu _
Zeilenverschiebungen kommt und dementsprechend zu einer falschen Auswertung)
'Sollten neue PIA-Funktionen aktualisiert werden --> Zeilenangabe (.Range("A**:A**")) _
anpassen
'Sollten neue SA's mit PIA-Funktionen aktualisiert werden --> Zeilenangabe (.Range("A**: _
A**")) und SA-Code ("***") anpassen
'Sitze (SA45A & SA459) auswerten
If WorksheetFunction.CountIf(Worksheets("SA-Konfiguration").Columns("B:V"), "459") + _
WorksheetFunction.CountIf(Worksheets("SA-Konfiguration").Columns("B:V"), "45A") = 0 _
Then
Worksheets("Bewertungsbogen").Range("A215:A220").EntireRow.Delete
End If
'... Hier kürze ich mal ab..
'Anhängerbetrieb (SA235) auswerten
If WorksheetFunction.CountIf(Worksheets("SA-Konfiguration").Columns("B:V"), "235") = 0 _
Then
Worksheets("Bewertungsbogen").Range("A48").EntireRow.Delete
End If
'In Bewertungsbogen gehen
Worksheets("Bewertungsbogen").Activate
'Fall 2: Zeitscheibe ab 07/20 (07/20, 11/20, 03/21, 07/21, 11/21, 03/22)
Case 720, 1120, 321, 721, 1121, 322
'Kopieren von "Konfiguration über:" aus "PIA-Datenbank ab MGU-Flash" in " _
Bewertungsbogen", "Spalte A", "Zeile 8" fortlaufend
lr = Sheets("PIA-Datenbank ab 07/20").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("PIA-Datenbank ab 07/20").Range("A3:A" & lr).Copy Sheets("Bewertungsbogen"). _
Cells(8, "A")
'Kopieren von "PIA-Funktionen" aus "PIA-Datenbank ab 07/20" in "Bewertungsbogen", " _
Spalte B", "Zeile 8" fortlaufend
lr = Sheets("PIA-Datenbank ab 07/20").Cells(Rows.Count, "G").End(xlUp).Row
Sheets("PIA-Datenbank ab 07/20").Range("G3:G" & lr).Copy Sheets("Bewertungsbogen"). _
Cells(8, "B")
'Kopieren von Rahmen "PIA-Datenbank ab 07/20" in "Bewertungsbogen"
Worksheets("PIA-Datenbank ab 07/20").Range("K3:P231").Copy _
Destination:=Worksheets("Bewertungsbogen").Range("C8:H216")
' _
_______________________________________________________________________________________________________________________________________________
'SA-Kombinationen auswerten von unten nach oben (wichtig, da es ansonsten zu _
Zeilenverschiebungen kommt und dementsprechend zu einer falschen Auswertung)
'Sollten neue PIA-Funktionen aktualisiert werden --> Zeilenangabe (.Range("A**:A**")) _
anpassen
'Sollten neue SA's mit PIA-Funktionen aktualisiert werden --> Zeilenangabe (.Range("A**: _
A**")) und SA-Code ("***") anpassen
'Sitze (SA45A & SA459) auswerten
If WorksheetFunction.CountIf(Worksheets("SA-Konfiguration").Columns("B:V"), "459") + _
WorksheetFunction.CountIf(Worksheets("SA-Konfiguration").Columns("B:V"), "45A") = 0 _
Then
Worksheets("Bewertungsbogen").Range("A220:A225").EntireRow.Delete
End If
'...Hier kürze ich mal ab...
'Anhängerbetrieb (SA235) auswerten
If WorksheetFunction.CountIf(Worksheets("SA-Konfiguration").Columns("B:V"), "235") = 0 _
Then
Worksheets("Bewertungsbogen").Range("A54").EntireRow.Delete
End If
'In Bewertungsbogen gehen
Worksheets("Bewertungsbogen").Activate
End Select
'Letzte Zeile (vor/ab 07/20) aus "Bewertungsbogen" löschen
With Sheets("Bewertungsbogen")
'Letzte Zeile in Spalte A löschen
LetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row 'Suche letzte Zeile
.Cells(LetzteZeile, 1).EntireRow.Delete 'Lösche letzte Zeile
End With
End Sub