Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Select Case Abfrage

Select Case Abfrage
31.05.2013 11:33:55
jasmin
Hallo,
ich habe folgendes Problem. Ich habe ein Formular bei dem man eine Kategorie auswählen kann mit hilfe einer combobox.
Nun möchte ich, dass anhand der Kategorie in einem anderen Tabellenblatt ein Text geschrieben wird und ein Wert aus einer anderen Tabelle geholt wird und eingefügt wird.
Ich habe das mit einer Select Case Anweisung versucht. Allerdings macht er das dann immer nur für den ersten Fall und nicht mehr für die nachfolgenden.
wäre nett wenn mir jemand helfen könnte bin nämlich langsam am verzweifeln :(
Dim Größe As Variant
Select Case Größe
Case Schiffskategorie.Value = Sheets("Statistik").Cells(41, 1).Value
Sheets("Rechnung").Cells(41, 7).Value = Sheets("Statistik").Cells(41, 2).Value
Sheets("Rechnung").Cells(25, 1) = "für die Schleusung eines Ihrer Schiffe der Kategorie Klein am oben genannten Tag, erlauben wir uns folgenden Betrag in Rechnung zu stellen. Bitte überweisen Sie innerhalb von 14 Tagen."
Case Schiffskategorie.Text = Sheets("Statistik").Cells(40, 1).Value
Sheets("Rechnung").Cells(41, 7).Value = Sheets("Statistik").Cells(40, 2).Value
Sheets("Rechnung").Cells(25, 1) = "für die Schleusung eines Ihrer Schiffe der Kategorie Mittel am oben genannten Tag, erlauben wir uns folgenden Betrag in Rechnung zu stellen. Bitte überweisen Sie innerhalb von 14 Tagen."
Case Schiffskategorie.Text = Sheets("Statistik").Cells(39, 1).Value
Sheets("Rechnung").Cells(41, 7).Value = Sheets("Statistik").Cells(39, 2).Value
Sheets("Rechnung").Cells(25, 1) = "für die Schleusung eines Ihrer Schiffe der Kategorie Groß am oben genannten Tag, erlauben wir uns folgenden Betrag in Rechnung zu stellen. Bitte überweisen Sie innerhalb von 14 Tagen."
End Select

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Select Case Abfrage
31.05.2013 12:32:44
fcs
Hallo Jasmin,
du muss in der Select Case -Zeile den zu prüfenden Wert angeben (hier wohl der Wert der Combobox).
in den Case-Zeilen dann den Vergleichswert.
Ich würde das Ganze etwa wie folgt angehen, um auch den Text im Code etwas einzukürzen.
Gruß
Franz
  Dim strKategorie As String, varCell41_7 As Variant
Select Case Schiffskategorie.Value
Case Sheets("Statistik").Cells(41, 1).Value
strKategorie = "Klein"
varCell41_7 = Sheets("Statistik").Cells(41, 2).Value
Case Sheets("Statistik").Cells(40, 1).Value
strKategorie = "Mittel"
varCell41_7 = Sheets("Statistik").Cells(40, 2).Value
Case Sheets("Statistik").Cells(39, 1).Value
strKategorie = "Groß"
varCell41_7 = Sheets("Statistik").Cells(39, 2).Value
Case Else
strKategorie = ""
varCell41_7 = ""
End Select
If strKategorie  "" Then
Sheets("Rechnung").Cells(41, 7).Value = varCell41_7
Sheets("Rechnung").Cells(25, 1) = "für die Schleusung eines Ihrer Schiffe der " _
& "Kategorie " & strKategorie & " am oben genannten Tag, erlauben wir uns " _
& "folgenden Betrag in Rechnung zu stellen. Bitte überweisen Sie innerhalb von 14 Tagen."
Else
MsgBox "Keine gültige Kategorie gewählt!", vbInformation, "Rechnung ausfüllen"
End If

Anzeige
AW: Select Case Abfrage
31.05.2013 12:55:56
jasmin
Danke schön hat funktioniert :)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige