An Klaus M.VDT :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Judith,
ich verstehe dich so, dass
A) nur Vergleichswohnungen unter 6,50/m² herangezogen werden dürfen und
B) Wohnungen für über 6,50/m² keine Vergleichswohnungen aufgelistet bekommen und
C) der Wert 6,50 sich je nach Laune deiner Vorgesetzen ändern kann :-) und
D) du nicht die fertige Lösung unkommentiert haben willst, sondern eine Erklärung dazu damit du es lernst
Zunächst mal die Formel. Hier nehme ich das 6,5 raus und ersetze es durch einen Zellbezug (ich nehm mal AH12, kannst du ja verschieben wie du willst)

=IF((B16=B$15)*(O16*(W16=W$15)*(AA16=AA$15)*(K16>$K$15-10)*(K16

In der Formel selbst musst du dich entscheiden, ob du "kleiner" oder "kleiner gleich" nimmst - ich hab mal "kleiner gleich" genommen.
Als zweites schauen wir im Makro nach, wie wir verhindern dass zu teuere Wohnungen einen Vergleich bekommen.
Im ersten Ansatz ist das einfach, mal in Pseudocode

WENN wohnung.aktuelleZeile.Preism² KLEINER GLEICH Zelle.AH12.Inhalt DANN
[Code ausführen]
SONST
[Code nicht ausführen]

Eine Kleinigkeit müssen wir noch beachten: die Vergleichswohnungen aus einem eventuellem "altem" Makrodurchlauf müssen gelöscht werden, sonst bleiben bei den teueren Wohnungen Artefakte stehen. Die 6,50 müssen wir nicht fix im Makro schreiben, da sie bereits in einer Zelle verankert sind.
Statt den meterlangen Code hier rein zu kopieren, lade ich die Datei überarbeitet wieder hoch. Alle im Makro geänderten Zeilen kommentiere ich, damit du die Änderung selbst nachvollziehen kannst.
https://www.herber.de/bbs/user/84378.xlsm
Wenn du die Zelle, in der der Vergleichspreis "6,50" steht, in der Tabelle verschiebst: Denk daran, auch im Makro den Bezug dahin zu aktualisieren!

dPreis = ActiveSheet.Range("AH12").Value 'Vergleich bis 6,50/m² (Wert aus Zelle)

Nu aber, oder? :-) Heidenaufwand würd ich das nicht nennen. Monieren könnte man am ehesten, dass das ganze Programm mit einer sehr heißen Nadel gestrickt ist, aber das ist eben so wenn die Werten Herrn Chefs zwischendurch Sonderwünsche reinrufen.
Grüße,
Klaus M.vdT.

Hi Judith,
Danke, dass du das immer alles so schön kommentierst, das hilft echt gut beim verstehen :)
Witzigerweise hilft das auch beim programmieren :-)
Das sollte sich jeder, der selbst programmiert, angewöhnen. Sonst schaut man irgendwann 2 oder 3 Jahre später in seinen eigenen Code und sieht nur noch Bahnhof.
A) Die Vergleichswohnungen sollen nur nach Größe, Bad, Balkon und Stadtteil gefilter werden, nicht nach m².
ich nehme an, du meinst KM/m². Denn nach m²+-10 wird ja tatsächlich gefiltert.
Wenn ich jettz in Bezug auf A) ändern möchte, dass alle Wohnungen als Vergleichswohnungen genommen werden dürfen, welchen Teil des Makros muss ich dann umändern?!
Ohm ... ich verstehe dich nicht? Ob eine Wohnung als Vergleichswohnung herangezogen wird, bestimmt nicht das Makro sondern die Formel in AH.

=IF((B16=B$15)*(O16*(W16=W$15)*(AA16=AA$15)*(K16>$K$15-10)*(K16

(O16 dieser Teil sagt, ziehe Wohnungen ÜBER 6,50 per KM/m² nicht als Vergleich heran.
Wenn du diese Wohnungen eben DOCH als Vergleich heranziehen willst, schmeiss den Teil einfach aus der Formel heraus!
=IF((B16=B$15)*(W16=W$15)*(AA16=AA$15)*(K16>$K$15-10)*(K16
Dieser Teil des Makros
dPreis = ActiveSheet.Range("AH12").Value 'Vergleich bis 6,50/m² (Wert aus Zelle)

übergibt "nur" den Wert 6,50 in eine Variable. Ich mag es nicht, innerhalb eines Makros unnötig auf Zellen zu verweisen.
Um für die teueren Wohnungen über 6,50/m²KM keine Vergleiche zu finden, sorgt dieser Teil:
'NEU 15/MAR/2013 'Prüfe, ob Preis = dPreis Then bVergleich = False 'NEU 15/MAR/2013 'wenn der Preis zu hoch ist, ignoriere diese Wohnung! If bVergleich Then

das If bVergleich Then klammert den Vergleichswohnung-kopieren Makroteil ein. .Cells(lRowAkt, 15).Value ist der Preis der aktuell markierten Wohnung (aktuelle Zeile, Spalte 15: schau in der Tabelle nach!). Ist der Preis höher als 6,50, wird die Variable bVergleich auf falsch gesetzt. Weiter unten ergibt die Zeile If bVergleich Then dann FALSCH, darum wird für DIESE Wohnung keine Vergleichswohnung gesucht.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread