Suchergebnisse

Hi, ich würde erstmal dein ComboxBox1_Change etwas übersichtlicher mit Select Case umschreiben: Visual Basic-Quellcode (13 Zeilen) Ansonsten funktioniert Dein Code deshalb nicht, weil der ListIndex der ComboBox2 immer von 1 runterzählt. Du müsstest folgende Code-Zeile anpassen: Visual Basic-Quellcode (1 Zeile) Edit: Beispielhaft für BundhoseCord und Grau siehe nachfolgender Code. Man könnte das jetzt auch noch in eine Funktion packen. Visual Basic-Quellcode (32 Zeilen) Edit: Mit einer Funktion w…

Gerne aber wozu hast Du den On Error Goto Fehler eingebaut? Nur Interessehalber....

Aus z.B. C# kenne ich die Try Catch Anweisung. Hier hätte ich versucht den Wert in eine Integer zu wandeln, um dann im Fall eines Errors eine Exception ausgeworfen zu bekommen. Etwas Vergleichbares gibt es in VBA nicht, oder? Hier ist man auf On Error GoTo angewiesen? Val birgt aber auch die Gefahr, dass man nicht informiert wird, wenn versehentlich ein Buchstabe mit eingegeben wurde. Außerdem werden lt. Microsoft O & H erkannt: "Die Funktion erkennt jedoch die Basispräfixe &O (für oktal) und &H…

Zitat: „ Muss man denn dieses ComboBox2.ListIndex = 0 wirklich unter jede Case Zeile einfügen? Case "T-Shirt" ComboBox2.ListFillRange = "THEMDEN" ComboBox2.ListIndex = 0 Gruß Patrick“ Wüsste nicht wozu das gut sein soll? Wie kommst Du darauf?

Ich würde auf jeden Fall die Funktion reinpacken, sonst wird Dein Code zu lang. Die IsNumeric-Abfrage von Petaod müsstest dann auch noch dort reinpacken oder Du machst das über On Error GoTo. Weniger elegant aber es tut's. Visual Basic-Quellcode (61 Zeilen)

Kann ich mir nicht erklären. Lad mal bitte die Datei hoch.

Mit Petaod's Methode siehe nachfolgender Code. Allerdings ist hier noch nicht berücksichtigt, dass Du E4 und F4 gelöscht haben möchtest. Muss man noch einbauen, allerdings komme ich heute und morgen nicht mehr dazu... Visual Basic-Quellcode (65 Zeilen)

Zitat von Patrick: „Ahhh jetzt dämmert mir langsam wie der Hase läuft... Aus Private Property NumericCells As Range wird Dim NumericCells As Range. Das Privat Property ist also eine extra Funktion und das Dim baut die Funktion in eine Funktion ein? Gruß Patrick“ Property Set-Anweisungen macht man eigentlich nur um Variablen einer Klasse einen Wert zuzuweisen. In diesem Kontext kenne ich das auch nicht bzw. habe ich das noch nie so gesehen. @petaod Mich würde auch interessieren, wie das hier geme…

So auf Anhieb fällt mir auch nichts ein aber es wäre wohl am einfachsten, wenn Du Dein Arbeitsblatt anders aufbaust. Ganz spontan würde ich sagen, wäre es hier ggf sogar am sinnvollsten mit einer Userform zu arbeiten. Käme sowas in Frage? Das wäre aber schon ein größeres Projekt...

@petaod ich verstehe immer noch nicht ganz was die get/set-Methode der Properties hier für Vorteile hat, gegenüber einer einfachen Variablen-Deklaration. Du schreibst weiter oben, dass man bei Bedarf zusätzlichen Code unterbringen kann. Wie würde das z.B. aussehen? Danke vorab für die Erläuterung!