Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Preisraster

Preisraster
02.11.2004 11:48:37
Wolfgang
Hallo Leute!
Wer kann mir bei der Abfrage eines Preisrasters über VBA helfen?
Ich möchte anhand des beiliegenden Preisrasters den Preis aufgrund
der Breite und Höhe ermitteln und in einer UserForm Text-Box ausgeben.
Die Breite und Höhe wird über Scroll Felder in der UserForm definiert.
Aufgrund dieser Definitionen soll die Preisfindung erfolgen.
Hier der Verweis auf die Beispieldatei

Die Datei https://www.herber.de/bbs/user/12862.xls wurde aus Datenschutzgründen gelöscht

Danke für Eure Hilfe!
Wolfgang

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Preisraster
tobias
Hallo
zuerst suchst du die Höhe und speicherst die Zeilennummer (srow = scells.row), dann suchst du die Breite und speicherst die Spaltennummer (scolumn = scells.column)in einer Variablen.
TextBox1 = cells(srow, scolumn)
für Level VBA gut sollte das reichen...
mfg tobias
AW: Preisraster
02.11.2004 16:08:38
Wolfgang
Hallo Tobias!
Danke für deine Antwort. Ich glaube, dass ich mich falsch ausgedrückt habe.
Ich möchte keinen Verweis auf das Tabellenblatt mit den Werten, sondern ich möchte mit Hilfe von VBA (If Then Else; oder ähnliche Abfragen) den Preis ermitteln.
If scrbreite (Range 2000 bis 2125) and scrhöhe (Range 2250 bis 2375) then
textbox1.value = 400
Else
Ist es möglich diesen Befehl so zu verändern, dass ich nicht für jede Höhe und für
jede Breite diese Abfrage erstellen muss.
Solltest du dies in deiner Antwort schon so dargestellt haben, konnte ich deine
Antwort nicht verstehen. Bitte versuchs nochmals jedoch einen Level niedriger.
Danke
Wolfgang
Anzeige
AW: Preisraster
tobias
Hallo
ich würde es mit so einer Liste machen. Ist wesendlich schneller programmiert, dynamischer usw......
habs dir mal als Anregung gemacht:
https://www.herber.de/bbs/user/12879.xls
ansonsten mache es mit Select Case
mfg tobias
alles OK jetzt oder was?
tobias
AW: alles OK jetzt oder was?
03.11.2004 09:25:49
Wolfgang
Hallo Tobias!
Danke für dein Beispiel! Dies entspricht genau dem was ich wollte. Aber ich habe
noch irgendwo einen Fehler. Wenn ich die Formel in meinem Arbeitsblatt einsetze
erhalte ich kein Ergebnis.
Wird mit dieser Funktion auch der Zwischenbereicht abgefragt, wenn die Breite oder
Höhe nicht gleich dem Preisraster entspricht?
Vielleicht kannst du mir nochmals weiterhelfen?
Herzlichen Dank für deine freundliche Unterstützung!
Danke
Wolfgang
Anzeige
AW: alles OK jetzt oder was?
tobias
Hallo
ja, auch die leeren Zellen werden abgefragt wenn sie in deinem "Preisraster" liegen
Achte darauf das SmallChange und die Ranges stimmen.
mfg tobias
AW: alles OK jetzt oder was?
03.11.2004 14:05:35
Wolfgang
Hallo Tobias!
Die SmallChanges und die Ranges stimmen! Aber irgendwie
bekomme ich das Ganze nicht zum Laufen.
Wolfgang
AW: alles OK jetzt oder was?
tobias
Hallo
naja, dann lade am besten mal die Originaldatei hoch.
Dann seh ichs mir mal an.
Ferndiagnosen sind halt immer schwer :-)
mfg tobias
AW: alles OK jetzt oder was?
03.11.2004 15:18:38
Wolfgang
Hallo Tobias!
Hier bin ich nochmals mit der Datei!
https://www.herber.de/bbs/user/12919.xls
Vielen Dank für die Hilfe!
Wolfgang
Anzeige
AW: alles OK jetzt oder was?
tobias
Hallo
Nein, die Function Preis hab ich für die Form geschrieben.
Ehrlich gesagt weis ich jetzt auf die schnelle nicht warum die im Arbeitsblatt nicht geht!?!
Aber wenn du die Form aufrufst (bei der modifizierten Arbeitsmappe) dann gehts!
mfg tobias

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige