Planungsliste erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jürgen,
das sieht doch schonmal viel netter aus, wie so Mensch zu Mensch :-)
OT bedeutet Off Topic, also das was derjenige schreibt der im Betreff dies voranstellt schreibt etwas was mit der eigentlichen Anfrage, also dem Excelproblem nix zu tun hat.
Könnte auch sein daß jemand fragt, sach mal biste nicht der Jürgen aus Düsseldorf oder so.
Dieses OT soll Leute die dir bei deinem Problem helfen wollen signalisieren, hier in dem OT Beitrag steht nix was mit dem Problem zu tun hat.
Dann ersparen sie sich den in der masse bei vielen Anfragen unnötigen Klick auf den OT-Beitrag.
Genauso gibt es m.T. oder o.w.T.
Das bedeutet mit Text oder ohne weiteren Text.
Ist ähnlich. Ich schreibe z.B. wenn einer anfragt und auf eine in seinem Beitrag stehende hochgeladene Mappe verweist und er hat schlichtweg vergessen sie auch hochzuladen und den Link zu zeigen so wird ihm schon geantwortet:
Wo ist die mappe o.w.T.
Dann weiß jeder andere Bescheid, aha, da hat einer vergessen die angkündigte mappe hochzuladen
und erspart sich den Klick auf den o.w.T. Beitrag denn da steht ja nix drin.
Das ist alles nix Schlimmes. Man ist so am Formulieren seiner Anfrage wo man an die beigefügte Mappe verweist, dann schickt man den Beitrag ab...
Daß man vergessen durch das ganze aufsProblemkonzentrieren un die Anfrageformulierung die mappe auch hochzuladen ist halt menschlisch, sehr menschlich.
Genauso wie hier oben rechts das Häkchen bei "Frage noch offen " zu setzen.
Nicht unnormal daß man das sehr vorhat, schreibt den Artikel, schickt ihn ab und naja, man hat das Häkchen zu setzen vergessen :-))
Gruß
Reinhard

Function AktionMoeglich(strAktion As String, dteDatum As Date, rngAktRec As Range, rngDatRec As _ Range) Dim strAktRec As String, strDatRec As String, rngC As Range Dim arrRec, arrDat, strTmp, iRec For Each rngC In rngAktRec.Columns(1).Cells If rngC = strAktion And rngC.Offset(, 2) = "Ja" Then strAktRec = strAktRec & rngC.Offset(, 1).Value & "," End If Next For Each rngC In rngDatRec.Columns(1).Cells If rngC = dteDatum And rngC.Offset(, 2) = "Ja" Then strDatRec = strDatRec & rngC.Offset(, 1).Value & "," End If Next If strAktRec "" Then strAktRec = Left(strAktRec, Len(strAktRec) - 1) arrRec = Split(strAktRec, ",") Else strTmp = "Ja" End If If strDatRec "" Then strDatRec = Left(strDatRec, Len(strDatRec) - 1) arrDat = Split(strDatRec, ",") Else strTmp = "Ja" End If If strTmp = "" Then For iRec = 0 To UBound(arrRec) If Not IsError(Application.Match(arrRec(iRec), arrDat, 0)) Then strTmp = "Nein" Next End If If strTmp = "" Then strTmp = "Ja" AktionMoeglich = strTmp End Function

Hallo Udo,
danke für die Antwort. Die Ergebnistabelle ist aber nicht korrekt.
Damit es klarer wird, nennst du C1 besser "uses (benötigt)".
Zu lesen : Aktion A1 benötigt Resource R3, aber R1 und R2 nicht.
"A1 benötigt R1: Nein"
"A1 benötigt R2: Nein"
"A1 benötigt R3: Ja"
Damit es klarer wird, nennst du G1 besser "availabe (verfügbar)".
Zu lesen:
Am 1.10.2011 sind die Ressourcen R1, R2 und R3 verfügbar.
Am 2.10. ist keine Ressource verfügbar.
Am 3.10. ist nur R1 verfügbar.
Am 4.10. sind R1 und R2 verfügbar.
Oder:
Die Ressource R1 ist am 1.10., 3.10. und 4.10. verfügbar, am 2.10. jedoch nicht.
Die Ressource R2 ist am 1.10. und 4.10. verfügbar, am 2.10. und 3.10. jedoch nicht.
Die Ressource R3 ist am nur am 1.10. verfügbar.
Daraus ergibt sich in deiner Ergebnistabelle in Spalte K:
K12 ist korrekt, alle anderen sind falsch, also genau umgekehrt.
Oder Lesart Deiner Tabelle (wie von mir benötigt):
Aktion A1 benötigt nur Ressource R3.
R3 ist nur am 1.10. verfügbar.
Also kann Aktion A1 nur am 1.10. durchgeführt werden (möglich = Ja), an allen anderen Terminen nicht (möglich = Nein).
Aktion A2 benötigt nur Ressource R1.
R1 ist am 1.10., 3.10. und 4.10. verfügbar, am 2.10. nicht.
Also kann Aktion A2 am 1.10., 3.10. und 4.10. durchgeführt werden (möglich = Ja) am 2.10. jedoch nicht (möglich = Nein).
Aktion A3 benötigt Ressourcen R1 und R2.
R1 ist am 1.10., 3.10. und 4.10. verfügbar, am 2.10. nicht.
R2 ist am 1.10. und 4.10. verfügbar, am 2.10. und 3.10. nicht.
Also kann Aktion A3 am 1.10. und 4.10. durchgeführt werden (möglich = Ja) am 2.10. und 3.10. jedoch nicht (möglich = Nein).
Ist meine Absicht jetzt klar geworden?
Mit anderen Worten:
Für Tagung A benötigt man Beamer, Raum 1012, Flipchart.
Beamer, Raum und Flipchart stehen jeweils zu diversen Terminen zur Verfügung (sind frei).
Die Tagung kann nur an Terminen durchgeführt werden, an denen ALLE (Beamer, Raum, Flipchart) zur Verfügung stehen.
Fazit: "Kleinster gemeinsamer Nenner" (also nur wenn alle verfügbar) außer: es werden keine Ressorcen benötigt, dann gehen alle Termine.
Viele Grüße und einen hoffentlich noch guten Morgen
Jürgen

Function AktionMoeglich( _ strAktion As String, _ dteDatum As Date, _ rngAktRec As Range, _ rngDatRec As Range) Dim strAktRec As String, strDatRec As String, rngC As Range Dim arrRec, arrDat, iRec 'für die Aktion benötigte Recourcen For Each rngC In rngAktRec.Columns(1).Cells If rngC = strAktion And LCase(rngC.Offset(, 2)) = "ja" Then strAktRec = strAktRec & rngC.Offset(, 1).Value & "," End If Next 'zum Datum belegte Recourcen For Each rngC In rngDatRec.Columns(1).Cells If rngC = dteDatum And LCase(rngC.Offset(, 2)) = "ja" Then strDatRec = strDatRec & rngC.Offset(, 1).Value & "," End If Next If strAktRec = "" Then 'Aktion braucht keine Resourcen AktionMoeglich = "Ja" Exit Function Else strAktRec = Left(strAktRec, Len(strAktRec) - 1) arrRec = Split(strAktRec, ",") End If If strDatRec = "" Then 'keine belegten Recourcen zum Datum AktionMoeglich = "Ja" Exit Function Else strDatRec = Left(strDatRec, Len(strDatRec) - 1) arrDat = Split(strDatRec, ",") End If For iRec = 0 To UBound(arrRec) 'ist eine der benötigten Recourcen zum Datum belegt? If Not IsError(Application.Match(arrRec(iRec), arrDat, 0)) Then AktionMoeglich = "Nein" Exit Function End If Next AktionMoeglich = "Ja" End Function

Beliebteste Forumthreads (12 Monate)

Zelle	Formel
K2	=aktionmoeglich(I2;J2;$A$2:$C$9;$E$2:$G$13)
K3	=aktionmoeglich(I3;J3;$A$2:$C$9;$E$2:$G$13)

	A	B	C	D	E	F	G	H	I	J	K
1	Aktion	Recource	Used		Datum	Recource	Used		Aktion	Datum	Möglich
2	A1	R1	Nein		01.10.2011	R1	Ja		A1	01.10.2011	Nein
3	A1	R2	Nein		01.10.2011	R2	Ja		A1	02.10.2011	Ja
4	A1	R3	Ja		01.10.2011	R3	Ja		A1	03.10.2011	Ja
5	A2	R1	Ja		02.10.2011	R1	Nein		A1	04.10.2011	Ja
6	A2	R2	Nein		02.10.2011	R2	Nein		A2	01.10.2011	Nein
7	A2	R3	Nein		02.10.2011	R3	Nein		A2	02.10.2011	Ja
8	A3	R1	Ja		03.10.2011	R1	Ja		A2	03.10.2011	Nein
9	A3	R2	Ja		03.10.2011	R2	Nein		A2	04.10.2011	Nein
10					03.10.2011	R3	nein		A3	01.10.2011	Nein
11					04.10.2011	R1	Ja		A3	02.10.2011	Ja
12					04.10.2011	R2	Ja		A3	03.10.2011	Nein
13					04.10.2011	R3	Nein		A3	04.10.2011	Nein

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread