Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige