Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Reicht es nicht, wenn du in der Bettendarstellung (Tabelle 2) die "Beispieldame, Erika" löschst? Dann ist das Bett wieder als frei erkennbar.

Hab da mal eine Beispieldatei angebammelt. Ist es da, was du suchst?

Hallo zusammen!
Bitte schaut euch mal den Anhang an.

Ich stelle mir ein Kreisdiagramm vor, dass auf seinem Radius die Windgeschwindigkeiten (in km/h) und umlaufend eine Gradskalierung ( 0° bis 360°) hat. Diese sollte dann natürlich auch sinnvoll, also beispielsweise alle 10° beschriftet sein. Meine Vorstellung wäre, dass sich dann da eine Punktewolke bildet, die einzelnen Punkte also nicht mit einer Linie verbunden sind.

Irgendwie stehe ich da auf dem Schlauch.

Mit einem normalen x-y-Punktediagramm ist das kein Thema, aber was muss ich tun, damit das im Kreisdiagramm funktioniert?

Tschuldigung, bin ein oller Schusselkopp. Habe da in der Tat noch was vergessen:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Goto Fehler

   Sheets("Übersicht").AutoFilter.ApplyFilter

weiter:
Exit Sub

Fehler:
With Err
  Select Case .Number
    Case 91
      Resume Next
    Case Else
      MsgBox .Description, vbCritical, .Number
      Resume weiter
  End Select
End With
End Sub

So sollte das funktionieren.

Vergiss den vorhergehenden Text, hab zu schnell auf Absenden geklickt.

Also, man kann die Fehlermeldung vermeiden:

Entweder so:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
   Sheets("Übersicht").AutoFilter.ApplyFilter
End Sub

Dann wird bei jedem Fehler einfach mit der folgenden Zeile weiter gemacht.

Besser ist dies:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Goto Fehler

   Sheets("Übersicht").AutoFilter.ApplyFilter

weiter:
Exit Sub

Fehler:
With Err
  Select Case .Number
    Case 91
      Resume Next
    Case Else
      MsgBox .Description, vbCritical, .Number
      Resume weiter
End With
End Sub

??
Verstehe die Frage nicht. Du hast doch offensichtlich schon den Serienbrief erstellt, dabei hast du verschiedene Felder ausgewählt. Genau so sollte sich ein zweites Adressfeld auswählen lassen, oder?

Zitat:
Kann ich mir durch den Solver ggf. mehrere mögliche Lösungen anzeigen lassen?

Gute Frage, das ist mir auch nicht gelungen.

Scheint aber ein "Feature" des Solvers zu sein.

Guggst du hier: http://www.office-loesung.de/ftopic520828_0_0_asc.php

Völlig korrekt!

Die Werte in D3 und E3 müssen Formeln enthalten, damit der Solver die Parameter (bzw. Zahlen) ermitteln kann, damit das Formelergebnis deinen Wünschen (8 bzw. 67) entspricht.

Durch Try and Error sucht der Solver nach Lösungen. Hier wird zwar nur eine gefunden, das heißt aber nicht, dass es nicht auch mehrere gibt.

Komme leider beim Entwickeln des Gleichungssystems nicht weiter, muss da auch aufhören. Bin hier auf Arbeit, da hab ich tatsächlich manchmal auch was anderes zu tun 

drei weitere Lösungen (allerdings irrelevant):
a = -1
b = 9
c = 0

oder (mit Dezimalzahlen)
a = 4,14285714285714
b = 0
c = 3,85714285714286

oder auch
a = 2,49982228443649
b = 2,87531375223614
c = 2,624864963


Interessantes Problem, für mich aber leider nicht direkt lösbar 

Nee nee, der Solver ermittelt genau die in den Zellen A3 bis C3.

Dazu werden dem Solver der Wert übergeben, die in den Zellen D3 bis E3 (67 bzw. zu erreichen sind.

Ich bin derzeit noch dran, das, was der Solver tut in eine Formel zu fassen, brauche noch etwas Zeit.

Übrigens: Die Mathematik lässt mit den Zielwerten 67 bzw. 8 noch mind. zwei weitere Lösungen zu. Allerdings sind die Ergebnisse dann teilweise negativ bzw. Dezimalzahlen. Scheidet also in deinem Anwendungsfall aus. Kommste selbst drauf oder soll ich die Lösung verraten?

This is not a bug, it's a feature 

Formel = "=SUMMENPRODUKT((J1:J99999<>"""")/ZÄHLENWENN(J1:J99999;J1:J99999&""""))-1"

Da müssen tatsächlich 4 (in Worten: vier) Anführungszeichen gesetzt werden, damit zwei übernommen werden.

Nachtrag:
Hab das mit dem Verbinden der Zellen vergessen => ist jetzt nachgetragen.

korrigierte Datei anbei

Habe nochmal ein wenig herumgespielt.

12 x 5 Pkt. + 5 x 12 Pkt. = 120 Pkt.

12 x 5 Pkt. + 3 x 8 Pkt. + 3 x 12 Pkt. = 120 Pkt.

8 x 5 Pkt. + 4 x 8 Pkt. + 4 x 12 Pkt. = 120 Pkt.

Aber Bonefish hat natürlich recht, wenn man die Gesamtanzahl der Spiele mit berücksichtigt, dann kann es in der Tat nur eine Lösung geben.

Sicher kann man das auch irgendwie berechnen, da bin ich aber mit meinem Latein am Ende 

Mit den Standardformeln von Excel wird das sicher nix werden.

Man kann sich aber mittels VBA eine Funktion schreiben.

Function Zellfarbe(Zelle As Range) As String
If Zelle.Interior.Color = vbRed Then Zellfarbe = "rot" Else Zellfarbe = vbNullString
End Function

Sind sicher für den konkreten Anwendungsfall noch ein paar Anpassungen nötig.

Ist das noch aktuell?

Das Feld hat einen recht seltsamen Inhalt.

Nun, mit VBA ist das aber machbar:

• Punkte herauschirurgisieren und in String-Variable zwischenparken (x = Replace("20.161.205",".",vbnullstring)
• nun neuen String zusammenbasteln (x = Mid(x,7,2) & "." & Mid(x,5,2) & "." & Mid(x,1,4)

Ist das noch aktuell?

Du hast die Lösung quasi schon in den Betreff geschrieben.

Der Ordner, der die Datenbank enthält, muss dem Nutzer natürlich auch schreibend zur Verfügung stehen. Wenn es sich denn um einen freigegebenen NTFS-Ordner handelt, dann schau dir mal in den Eigenschaften die Registerkarte Sicherheit an. Dort lässt sich in den erweiterten Einstellungen das Löschen verhindern. Ich weiß jetzt nicht, ab man dann noch vorhandene Dateien ändern kann, das kommt auf einen Versuch an.