Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

wenn - dann & schleifen

Forumthread: wenn - dann & schleifen

wenn - dann & schleifen
30.01.2007 15:46:19
thomas.b
Liebe Leute,
in der Anlage habe ich eine Tabelle beigefügt, die folgendes leistet bzw. leisten soll:
Spalte B: Name (beinhaltet Namen)
Spalte C: Punkte (beinhaltet eine erreichte Punktzahl)
Spalte D: Rang(beinhaltet den Rang aufgrund der erreichten Punktzahl (s.o.))
Spalte F-H: Wunsch 1-3(Präferenzen für die Zuteilung eines Grundstücks
Spalte J: zugeteiltes Grundstück aufgrund des Ranges und der Präeferenzen
Ich würde mir wünschen, dass die Zuteilung automatisiert über einen Button erfolgt, wobei die Zuteilung folgenden Regeln folgt:
1. Die Zuteilung für "Name 1" mit Wunsch 1 = "Grundstück 1" ergibt sich, weil "Name1" den ersten Rang aufweist. Der Text "Grundstück 1" wird anschließend in die entsprechende Spalte&Zeile eingetragen.
2.1 Die Zuteilung von Grundstück 1 für "Name 2" ist nicht möglich, da bereits an "Name 1" vergeben.
2.2 Daher erhält "Name 2" den Wunsch 2 = "Grundstück 3". Der Text "Grundstück 3" wird anschließend in die entsprechende Spalte&Zeile eingetragen.
3.1 Die Zuteilung von Grundstück 1 für "Name 3" ist nicht möglich, weil bereits an "Name 1" vergeben.
3.2 Auch die Zuteilung von Grundstück 3 (2 ter Wunsch) ist nicht möglich, da dieses Grundstück bereits "Name 2" zugeteilt wurde.
3.3 Insofern wird Grundstück 4 an "Name 3" zugeteilt. Der Text "Grundstück 4" wird ebenfalls in die entsprechende Spalte&Zeile eingetragen.
Das Oben gesagte ist der beigefügten Tabelle (https://www.herber.de/bbs/user/40020.xls) zu entnehmen.
Meine bisherigen Versuche mit Schleifenkonstruktionen und "wenn - dann" Abfragen führen dazu, dass sich Excel "aufhängt" :(
Insofern freue ich mich über Unterstützung bei der Lösung dieses Problems.
Vielen Dank bis hierhin.
Viele Grüße.
Thomas.B
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: wenn - dann & schleifen
30.01.2007 16:07:13
ChrisL
hallo Thomas
cu m8
Chris

Private Sub cmd_zuteilung_Click()
Dim iZeile As Long, iSpalte As Integer
Range("J2:J65536").ClearContents
For iZeile = 2 To Range("D65536").End(xlUp).Row
For iSpalte = 6 To 8
If WorksheetFunction.CountIf(Columns(10), Cells(iZeile, iSpalte)) = 0 Then
Cells(iZeile, 10) = Cells(iZeile, iSpalte)
Exit For
End If
Next iSpalte
Next iZeile
End Sub

Anzeige
AW: wenn - dann & schleifen @ ChrisL
31.01.2007 07:52:40
Thomas.B
Hallo zusammen,
insbesondere ChrisL,
das ist die Lösung:
Sie funktioniert, sieht elegant aus und ist es auch!
Deshalb: Fetten Dank!
Und eine letzte Bitte: Nämlich eine kurze Erklärung zur Funktionsweise "CountIf ... Cells ... = 0"
Thomas
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige