Softpicks.Net Deutsch

Grüezi Hans Gottfried

Hans Gottfried Kullmann schrieb:
>
> Bei uns ist folgendes Problem entstanden, wir haben eine
> Tabelle in MS-Excel97 erstellt. In dieser Tabelle sollten
> sich drei Eingabezellen befinden und drei
> Berechnungszellen. Wir wollten in die Eingabezellen
> eine "Bedingte Formatierung" einbringen mit der
> Bedingung, dass: wenn z.B. in Zelle A2 eine Eingabe
> erfolgt, dann sollten die Inhalte der beiden anderen
> Eingabezellen, wenn sie nicht leer sind gelöscht werden,
> und die Berechnung nach der neuen Eingabe erfolgen. Das
> sollte für alle drei Eingabezellen der Fall sein.
> Schreibe ich in eine der Zellen etwas, sollten die beiden
> anderen, wenn durch eine Eingabe belegt, entleert werden,
> da uns dies nicht über den Menüpunkt Bedingte
> Formatierung oder über den Punkt Blattschutz möglich war,
> haben wir es in der Formel der Berechnugszellen versucht,
> und auch keine Möglichkeit gefunden dies zu realisieren.
>
> Unsere Frage diesbezüglich lautet deshalb: "Ist es aus
> Excel heraus überhaupt möglich, diese Aufgabenstellung zu
> lösen?"
>
> Beispiel:
> Radius Durchmesser Umfang
> 3 Eingabezellen
> Radius Durchmesser Umfang
> 3 Berechnungszellen

Ich könnte ir eine Lösung wie foglt vorstellen:

A2:C2 --> Eingabezellen

Die Berechnungszellen:

A5 =WENN(A2<>"";A2;WENN(B2<>"";B2/2;WENN(C2<>"";C2/PI()/2;"")))
B5 =WENN(A2<>"";A2*2;WENN(B2<>"";B2;WENN(C2<>"";C2/PI();"")))
C5 =WENN(A2<>"";A2*2*PI();WENN(B2<>"";B2*PI();WENN(C2<>"";C2;"")))

Das 'einzige' Problem ist nun noch das Löschen der nicht gewünschten
Eingabezellen. Die Formeln orientieren sich von link nach rechts; also
immer der Eintrag in den Eingabezellen der am weitesten links steht wird in
den Formeln für die Berechnung verwendet.
Man müsste also die nicht gewünschten von Hand löschen.

Letzteres könnte auch das foglende kleine Makro übernehmen:
Rechtsklick auf den Tabellenblattreiter --> Code anzeigen --> die Zeilen
1:1 kopieren und mit ALT+Q den VBA-Editor wieder verlassen.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A2"
Range("B2,C2").ClearContents
Case "B2"
Range("A2,C2").ClearContents
Case "C2"
Range("A2,B2").ClearContents
End Select
End Sub

Wenn die Formeln in A5:C5 stehen können nun in A2:C2 nach Belieben Eingaben
getätigt werden, die dann sofort berechnet werden.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win 2000Pro SP-4 / xl2000 SP-3]

.

> > weiß jemand hier, ob und wie ich eine bedingte Formatierung (Exel2000)
> > aufbohren kann, dass mir statt nur zB. "Zellinhalt rot einfärben" auch
> > eine andere Aktion gestartet wird (ich denke da an einen akustischen Alarm
> > o.ä.)?

Jean Oliver Hinz schrieb:
> das geht. Kannst Du Dein Problem ein wenig spezifizieren?

Ja.
Zelleinträge kommen aus dem Videotext der Fernsehkarte.
Wird ein bestimmter Zahlenwert Wert erreicht, soll es zB. nun tuten.

MfG Lutz

.

Lutz Richter schrieb:
> > > weiß jemand hier, ob und wie ich eine bedingte Formatierung (Exel2000)
> > > aufbohren kann, dass mir statt nur zB. "Zellinhalt rot einfärben" auch
> > > eine andere Aktion gestartet wird (ich denke da an einen akustischen Alarm
> > > o.ä.)?
>
> Jean Oliver Hinz schrieb:
> > das geht. Kannst Du Dein Problem ein wenig spezifizieren?
>
> Ja.
> Zelleinträge kommen aus dem Videotext der Fernsehkarte.
> Wird ein bestimmter Zahlenwert Wert erreicht, soll es zB. nun tuten.
>
> MfG Lutz
>


.

[Carsten Lüdemann]

danke, aber wie übertrage ich das Format auf das ganze
Blatt??? Da stehen schon Daten drin, die nicht
überschrieben werden sollen

Zelle kopieren und mit "Inhalte einfügen", "Formate" auf die anderen Zellen
übertragen.

Gruß

Carsten


.

[Melanie Breden]

Hallo Alfred,

"Nimmerichter Alfred" schrieb:
> habe in einer zelle die 6 möglichkeiten eines eintrages, je nach eintrag
> soll die zelle eine andere farbe annehmen.
> mit bedingter formatierung geht das nur bei 3 möglichkeiten, kennt jemand
> einen trick mehr formate zu erhalten?
>
> wenn in zelle a1
> z.b: a=rot
> b=blau
> c=lila
> d=grün
> e=braun.......

dazu kannst du das Worksheet_Cjange-Ereignis der Tabelle benutzen.

Klicke mit der rechten Maustaste auf den Registerreiter des Tabellenblattes und wähle 'Code anzeigen'
Füge in die rechte Fensterhälfte folgende Prozedur ein.

Passe den zu überwachenden Bereich und die Werte und Farben in der Prozedur noch an.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte

' Bereich der überwacht wird
Set Target = Intersect(Target, Range("A1:D20"))
If Target Is Nothing Then Exit Sub

For Each rngCell In Target
Select Case rngCell.Value
Case "a"
bytColor = 3 ' Rot
Case "b"
bytColor = 4 ' Grün
Case "c"
bytColor = 5 ' Blau
Case "d"
bytColor = 6 ' Gelb
Case "e"
bytColor = 7 ' Rosa
Case Else
bytColor = 0 ' keine Farbe
End Select

rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub

--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]

.

[Stephan Kassanke]

"Mike" <michael.pauli [at] laudaair.com> schrieb im Newsbeitrag
news:195dd01c38739$d47a8230$a601280a [at] phx.gbl...
Hallo!

Gibt es in Excel eigentlich die Möglichkeit mehr als 3
Bedingte Formatierungen zu verwenden?

Würde mich über eine kurze Antwort freuen.

Danke,lg aus Österreich

Mike

Hallo Mike,

standardmäßig sind drei bedingte Formatierungen das obere Limit. Wenn mehr
Bedingungen verarbeitet werden sollen, müsstest Du auf VBA ausweichen, den
zellinhalt analysieren und dann entsprechend per VBA formatieren.

Gruß,

Stephan


.

[Martin v. Roenne]

Hallo,
vielen Dank für die Hilfe!
Gruß - Martin


"Martin v. Roenne" <von.roenne [at] gmx.de> schrieb im Newsbeitrag
news:bm3nvv$hvcoj$1 [at] ID-75087.news.uni-berlin.de...
> Office 97, NT 4 SP6
>
> Hallo,
> unter "Bedingte Formatierung" können max. 3 Bedingungen eingegeben werden.
> Ist es per VBA ggf. möglich mehrere (z.B. 6) Bedingungen zu definieren?
>
> z.B.: wenn Zelle A 3 = Montag, dann "Farbe rot" im Bereich Zelle/Zeile A3
> bis Q3 - etc.
>
> Ist es möglich, dass, sobald die Eingabe in D3 getätigt wird, sich die
Zeile
> entsprechend formatiert wird?
>
> Für etwaige Hilfe möchte ich mich bereits im Voraus bedanken.
>
> Gruß - Martin
>
>


.

[Lela Sommer]

Hallo Hajo!

Herzlichen Dank für die rasche und perfekte Lösung -
es klappert wunderbar :-)

Liebe Grüsse
Lela Sommer


"Hajo" <hajoziplies [at] web.de.ungueltig.Sp> schrieb im Newsbeitrag
news:#Wymx3goDHA.2584 [at] TK2MSFTNGP09.phx.gbl...
> Hallo Lela
>
> Format, bedingte Formatierung, Formel ist, =UND(G1>5;D1="")
>
> Gruß Hajo
>


.

[Lela Sommer]

Hallo Günter!

Dir auch vielen Dank für deine Hilfe.
Genau die Lösung hat mir auch Hajo geschickt.
Scheinbar kennen alle die Formel, nur ich nicht ;-)

Schönen Tag noch
Lela Sommer

"Günter Staffel" <guenter.staffel [at] greisinger.com> schrieb im Newsbeitrag
news:0e9401c3a20e$f7e24970$a301280a [at] phx.gbl...
=UND(G1>5;D1="")
lg


.

[Melanie Breden]

Hallo Jürgen,

"Jürgen Dietze" schrieb:
>ich möchte jede zweite Zeile in einem Tabellenblatt
>schattieren.
>In der bedingten Formatierung versuche ich folgende
>Bedingung zu verwenden:

>=ISTGERADE(ZEILE(A1))=WAHR
>Ich erhalte die Meldung, dass ich keinen Bezug auf externe
>Blätter verwenden darf.
>Was ist Ursache dieses Fehlers?

den Grund weiss ich leider auch nicht, aber es geht auch kürzer:

=REST(ZEILE();2)


--
Mit freundlichen Grüßen

Melanie Breden
Microsoft MVP für Excel

.

[Johann Fuchs]

Hallo
"Hajo" <hajoziplies [at] web.deungueltig.sp> schrieb im Newsbeitrag
news:uyiKtET0DHA.3656 [at] TK2MSFTNGP11.phx.gbl...
>
> was möchtest Du eingeben?? Januar oder 01.01.04??

Ich möchte "Januar" oder "Februar" oder..... also irgendeinen
Monatsnamen eingeben.
> für alle Zellen der Zeile, bedungte Formatierung, Formel ist
=$A$1="Januar"

Die obige Formel funktioniert ja, aber ich kann nur 3 Bedingungen
angeben.
Brauchen würde ich aber 12, also Januar bis Dezember, oder eben eine
andere Formel,
so wie =Monat($B$1), aber das klappt nicht.
mfg
Hans


.

On Fri, 2 Jan 2004 16:20:17 +0100, "Johann Fuchs"
<nospam-llupo [at] aon.at> wrote:

Hallo

> Ich möchte "Januar" oder "Februar" oder..... also irgendeinen
>Monatsnamen eingeben.

Versuche es mal mit:
=ODER(A1="Januar";A1="Februar";A1="März";A1="..usw....")

MfG

Franz Luwein
.

[Johann Fuchs]

Danke, genau so hab ich mir das vorgestellt.
mfg
Hans

"Franz Luwein" <Franz.Luwein [at] gmx.de> schrieb im Newsbeitrag
news:bt53tb.ug.1 [at] ID-68878.user.uni-berlin.de...
> On Fri, 2 Jan 2004 16:20:17 +0100, "Johann Fuchs"
> <nospam-llupo [at] aon.at> wrote:
>
> Hallo
>
> > Ich möchte "Januar" oder "Februar" oder..... also irgendeinen
> >Monatsnamen eingeben.
>
> Versuche es mal mit:
> =ODER(A1="Januar";A1="Februar";A1="März";A1="..usw....")
>
> MfG
>
> Franz Luwein


.

[Melanie Breden]

Hallo Halla,

Halla schrieb:
> ich möchte einen Projektplan erstellen. Dort soll Start
> und Ende einzelner Arbeitsetappen eingetragen werden und
> mittels bedingter Formatierung soll eine Balkengrafik
> entstehen. Das klappt soweit auch ganz gut. Ich möchte
> jetzt aber noch erreichen, dass die Balkenfarbe (Füllfarbe
> der Zelle, wenn Bedingung erfüllt) von einer weiteren
> Zelle vorgegeben wird.
>
> Bsp.:
> A1: "Meier" ... bedingte Formatierung soll "gelb" aussehen
> A2: "Müller" ... bedingte Formatierung soll "rot" aussehen
> usw.
>
> Ich muss meiner Meinung nach zuerst "Müller", "Meier" usw.
> einen Farbcode zuweisen und diesen dann der bedingte
> Formatierung übergeben ??

ich denke, du musst die erste Formel mit der zweiten Bedingung verknüpfen.
Versuchs mal so:
Bedingung 1
=(Deine Formel)*($A1="Meier")
Bedingung 2
=(Deine Formel)*($A1="Müller")

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#

.

[Petra G.]

Hi,

dann gib unter Bedingter Formatierung ein: Zellwert - ist gleich - =""

Dann werden nur wirklich leere Zellen in der entsprechend ausgewählten
Formatierung angezeigt und bei einem beliebigen Wert verschwindet diese
Formatierung wieder.

Gruß

Petra


.