Select Case Syntaxfehler
10.01.2020 11:17:57
Erdnusskrieger
Ich habe folgendes Anliegen und hoffe, dass ich dieses mit euch klären kann.
Ich möchte gerne eine Abfrage starten in meiner Excel und habe dies mit einer verschachtelten Select-Case-Anweisung probiert. Jedoch kommt in meiner Select-Case-Abfrage eine Zahlen-Buchstaben-Kombination vor, wo hier ein Syntaxfehler auftritt (Case 6U3, 6U2). Ich vermute mal, dass eine Zahlen-Buchstaben-Kombination nicht vorkommen darf in einer Abfrage.
Der Code sieht folgendermaßen aus:
Sub Abfrage()
'Fallunterscheidung: vor/nach 20/07, wenn nach 20/07 dann weitere Unterscheidung
Select Case Sheets("SA-Konfiguration").Cells(2, 1).Value
'__________________________________________________________________________________________________
'Fall 1: vor 07/20
Case 319, 719, 1119, 320
'Kopieren von "Konfiguration über:" aus "Datenbank vor 07/20" in "Bewertungsbogen", " _
Spalte A", "Zeile 8" fortlaufend
lr = Sheets("Datenbank vor 07/20").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Datenbank vor 07/20").Range("A3:A" & lr).Copy Sheets("Bewertungsbogen").Cells(8, _
"A")
'Fall 2 und 3: nach 07/20 mit 6U3/6U2 und ohne 6U3/6U2
Case 720, 1121, 321, 720, 1120
Select Case Sheets("SA-Konfiguration").Range("C3:W10").Value
'Fall 2: nach 20/07 mit 6U3 oder 6U2
Case 6U3, 6U2
'Kopieren von "Konfiguration über:" aus "Datenbank_ab_20_07_6U3_6U2" in " _
Bewertungsbogen", "Spalte A", "Zeile 8" fortlaufend
lr = Sheets("Datenbank_ab_20_07_6U3_6U2).Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Datenbank_ab_20_07_6U3_6U2").Range("A3:A" & lr).Copy Sheets(" _
Bewertungsbogen").Cells(8, "A")
'Fall 3: ab 20/07 ohne 6U3/6U2
Case Else
'Kopieren von "Konfiguration über:" aus "PIA-Datenbank_ab_20_07_ohne" in " _
Bewertungsbogen", "Spalte A", "Zeile 8" fortlaufend
lr = Sheets("Datenbank_ab_20_07_ohne").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Datenbank_ab_20_07_ohne").Range("A3:A" & lr).Copy Sheets("Bewertungsbogen"). _
Cells(8, "A")
End Select
End Select
End Sub
Randinfo, falls ihr noch die Info braucht, was ich letztendlich machen möchte mit dem Code:Ich möchte das Sheet "SA-Konfiguration" auswerten. Hier soll folgende Unterscheidung auftreten. Tritt in "SA-Konfiguration" einer der Kombination 319, 719, 1119, 320 auf, dann durchführe "Case 319, 719, 1119, 320" . Tritt in "SA-Konfiguration" einer der Kombination 720, 1121, 321, 722, 1122 auf, dann durchführe "Case 720, 1121, 321, 722, 112". Sollte Case 2 auftreten, dann soll folgende Unterscheidung durchgeführt werden. Befindet sich in Sheet "SA-Konfiguration" einer der Kombination 6U3 oder 6U2, dann durchführe "Case 6U3, 6U2". Befindet sich in Sheet "SA-Konfiguration" keiner der Kombination 6U3 oder 6U2, dann durchführe "Case Else"
Bei den einzelnen Cases, sollen dann aus verschiedenen Sheets, bestimmte Inhalte in das Sheet "Bewertungsbogen" kopiert werden.
Ich hoffe, ich konnte mein Problem verständlich erläutern und freue mich über jede hilfreiche Nachricht.
Gruß