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