Kleinkram zu Excel, Word, Powerpoint...

Zitat

Original geschrieben von NoTeen
Vielen Dank für Deinen Tipp. Im Prinzip ist das Problem genau so, wie Du es beschreibst:
Wenn die Formel einen Wert ausgibt, ist alles gut. Wenn die Formel keinen Wert ausgibt, dann wird immer das Nachbarfeld mit einem Text gefüllt. Dieser Text ist aber jedesmal an der Stelle, wo er in das Feld mit der Formel "hineinragt", abgeschnitten, so daß ich in diesem Fall immer die Formel löschen muß, um den Text im Nachbarfeld vollständig sichtbar zu machen.

Leider bringt auch Dein Tipp nicht die erhoffte Lösung. Trotzdem nochmal danke für Deine Mühe!

cu

NoTeen

Alles anzeigen

Ach so. Dann habe ich den Zweck doch nicht richtig verstanden. Du könntest dann ggf. ein Makro aufrufen. Ich habe mir das in etwa so gedacht:

Function clearCell(myRange As Range)


    myRange.Select


    Selection.ClearContents


End Function

Aber leider funktioniert es noch nicht so wie es soll. Vielleicht gibt es hier ja noch einen Macro-Experten, der auf Anhieb den Fehler sieht.

Geht nochmal zurueck im Thread zu den "Puffampeln" und macht das Gegenteil davon, naemlich formatieren weisse Schrift auf weissem Hintergrund wenn Bedingung irgendetwas ist.

Zitat

Original geschrieben von Herb
Geht nochmal zurueck im Thread zu den "Puffampeln" und macht das Gegenteil davon, naemlich formatieren weisse Schrift auf weissem Hintergrund wenn Bedingung irgendetwas ist.

Das war das erste, was ich versucht hatte. Leider "weiß" Excel, daß da Text steht, selbst wenn er weiß auf weißem Grund ist, und gibt den Platz nicht für anderen Text frei.

cu

NoTeen

noteen, poste doch mal ein screen deiner excelmappe - so richtig habe ich das nämlich nicht verstanden. evtl kann man dir dann besser helfen

Zitat

Original geschrieben von Hightower2004
[*]where my name is in the to box

Hab mal mein Outlook 2003 rausgewühlt, da steht bei mir als wählbare Bedingung:

Zitat

die meinen Namen im Feld "An" enthält

Das müsste doch das sein, was du brauchst. Sobald dein Name im "An"-Feld vorkommt, ab in speziellen Ordner damit. Oder so.

Zitat

Original geschrieben von NoxX
noteen, poste doch mal ein screen deiner excelmappe

Ich habe mal ein Beispielblatt hochgeladen - sorry, mit Screenshots und Webspace zum Verlinken fühle ich mich überfordert (ich bin ein alter Mann, der geistig nicht mehr so rege ist ). Einige "problematische" Felder habe ich in der Mappe mal exemplarisch markiert. Vielleicht hat ja noch jemand eine Idee.

cu

NoTeen

So wie das aussieht, steht ja links neben Urlaub niemals etwas, richtig? Was spricht dann dagegen, "Urlaub" einfach rechtsbündig auszurichten?

Links neben "Urlaub" wird die Zahl eingetragen, auf die sich die Formel rechts neben "Urlaub" bezieht

cu

NoTeen

Und wenn Du die mittlere Zelle (bspw. G15) durch

=WENN(F17="";"Urlaub";"-")

ersetzt?

hm... also mal ganz davon abgesehen, ob der aufbau so sinn macht oder nicht (nicht böse gemeint) ist das eine feine arbeit die du da gemacht hast :top:

meine kurz zusammengeschusterte idee wäre folgendes vba skript
(dazu ALT+F11 drücken, doppelklick auf "diese arbeitsmappe" und ins VBA fenster rechts folgende code einfügen)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'steht in F15 nichts, H15 löschen
If Range("f15").Value = "" Then Range("H15").Value = Null


'ist der inhalt von F15 eine zahl und grösser 0 und in H15 steht nichts, H15 füllen
If IsNumeric(Range("f15").Value) = True And Range("f15").Value > 0 And Range("h15").Value = "" Then
    Range("h15").Value = Range("f15").Value + (1 / 3)
    Range("g15").Value = "-"
End If


'steht in G15 was anderes als - dann f/g15 leeren
If Range("g15").Value <> "-" Then
    Range("f15").Value = Null
    Range("h15").Value = Null
End If


'steht in G15 etwas bestimmtes, dannn in G16 -7,5 schreiben
If Range("g15").Value = "urlaub" Or Range("g15").Value = "krank" Or Range("g15").Value = "schulung" _
 Or Range("g15").Value = "feiertag" Then Range("g16").Value = "-7.5"


'ist der inhalt von F15 eine zahl und grösser 0 und in H15 steht ebenfalls eine zahl grösser 0 dann
If IsNumeric(Range("f15").Value) = True And Range("f15").Value > 0 _
And IsNumeric(Range("h15").Value) = True And Range("h15").Value > 0 Then

    'schreibe in G16 0 wenn die differenz von H/G16 kleiner als 0,25 ist, sonst schreibe 0,5
    If CDbl(Range("h15").Value) - CDbl(Range("f15").Value) < 0.25 Then
        Range("g16").Value = 0
    Else
        Range("g16").Value = 0.5
    End If
End If
End Sub

dies bewirkt, das bei jeder kleinsten änderung die werte überprüft und entspr. ergänzt werden - was evtl. zu einem nachteil auf bezug der geschwindigkeit werden könnte
der vorteil wäre aber, du würdest dir für die mitarbeiter und die tage die eintragungen der formeln ersparen und sie sind nicht in der mappe ersichtlich.
nachteil: ich habs nur für montag und nur für den mitarbeiter "ccc" gemacht - du müsstest das makro also noch entsprechend runterkopieren und anpassen (natürlich ohne SUB... und end sub - also nur was dazwischen steht)

das kann man bestimmt noch gaaaaanz anders machen bzw das makro entsprechend tunen, aber mein pils ist nun gezapft und mein personal macro läuft jetzt los

for pils = 1 to noxx_drunken
pils_trinken = true
next pils