Hallo zusammen,
ich hätte da ein paar kleine Probleme in Excel (Office XP). Da ich mehr aus der Datenbankecke komme bräuchte ich hier mal etwas Unterstützung. Ich realisiere Gerade eine Projektplanung ähnlich MS-Project, nur in EXCEL.
Problem 1
In ein Feld (Format Datum dd.mm.yy) werden Datumsinformationen importiert. Der Import ist jedoch im Format Datum >dd.mm.yy hh:mm:ss= dem 01.01.05 08:00:00 ist.
Versucht habe ich es innerhalb einer komplexen Formel mit der Funktion LINKS(F9;8). Das schlägt jedoch fehl, da anscheinend LINKS nur auf Textfelder reagiert und hier eine entsprechende Umwandlung stattfindet. Gibt es hier noch was anderes wie beispielsweise TRUNC in SQL ?
Problem 2
Je nach Zellinhalt soll eine bedingte Zell-Formatierung stattfinden. Ich habe ca 10 unterschiedliche Inhalte, jedoch besteht nur die Möglichkeit 3 bedingte Formatierungen zu definieren. Kann ich die Formatierung evtl in der Formel mitgeben oder muss da ein Makro geschrieben werden. Vielleicht hat jemand eins oder kann mal den Ansatz posten.
Problem 3
Ich möchte wiederum eine bedingte Formatierung für eine Zelle haben, wenn die Zelle gefüllt ist. In der Zelle verbirgt sich jedoch eine Formel die unterschiedliche Strings reinschreibt oder die Zelle eben leer lässt. Wenn die Zelle mit Text gefüllt ist, soll sie z.B. blau werden.
Wie ist die Bedingung zu formulieren? Ich habs versucht mit : wenn Zellwert >1. Das schlägt aber fehl, da dies anscheinend immer der Fall ist, auch wenn sich nur eine Formel darin verbirgt. Auch Wenn Zellwert gleich %Fehler% (Texte fangen i.d.R. mit diesem Wort an) schlägt Fehl.
Hat jemand eine Idee ?
Schon mal vielen Dank für eure Unterstützung
Viele Grüße
der Ratlose
Hallo zusammen,
Hallo auseinander.
Es wird jedoch der Wert false ermittelt da nun einmal der
01.01.05 nicht >= dem 01.01.05 08:00:00 ist.
=(A1=DATUM(JAHR(B1);MONAT(B1);TAG(B1)))
liefert den „richtigen“ Wahrheitswert, wenn in A1 das Datum tt:mm:jjjj und in B1 tt:mm:jjjj hh:nn:ss steht.
Wie ist die Bedingung zu formulieren? Ich habs versucht mit :
wenn Zellwert >1. Das schlägt aber fehl, da dies
=WENN(ISTLEER(zelle))
sollte weiterhelfen …
Schon mal vielen Dank für eure Unterstützung
Aber als.
Gruß kw
Hallo RAtloser,
Problem 1
In ein Feld (Format Datum dd.mm.yy) werden Datumsinformationen
importiert. Der Import ist jedoch im Format Datum >dd.mm.yy
hh:mm:ss= dem 01.01.05 08:00:00 ist.
Mit folgender Formelsyntax geht es:
=WENN(A2>=Ganzzahl(B2); FormelWAHR;FormeFALSCH)
A2: Zelle mit Datum
B2: Zelle mit Datum und Zeit
Problem 2
Je nach Zellinhalt soll eine bedingte Zell-Formatierung
stattfinden. Ich habe ca 10 unterschiedliche Inhalte, jedoch
besteht nur die Möglichkeit 3 bedingte Formatierungen zu
definieren. Kann ich die Formatierung evtl in der Formel
mitgeben oder muss da ein Makro geschrieben werden. Vielleicht
hat jemand eins oder kann mal den Ansatz posten.
In der Formel kann man keine Formate mitgeben. Folgendes Makro reagiert auf Wert-Änderungen in der Tabelle und formatiert die Zellen im angegebenen Bereich. Die CASE-Bedingungen können beliebig ergänzt werden. Im Beispiel werden sowohl Font-Einstellungen als auch die Hintergrundfarbe der Zelle abhängig vom Zellwert eingestellt. Das Makro muß im VB-Editor bei der entsprchenden Tabelle eingefügt werden.
Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
' Formatierung von Zellen mit Formeln oder bei der Eingabe von Werten
For Each Zelle In Range("H2:H65000")
If WorksheetFunction.IsNumber(Zelle) = True Then
Select Case Zelle.Value
Case 1
With Zelle
With .Font
.Size = 14
.Name = "Arial"
.Bold = False
.Italic = True
.ColorIndex = 2 'weiß
End With
With .Interior
.ColorIndex = 3
' .ColorIndex = 1 'schwarz
' .ColorIndex = 2 'weiß
' .ColorIndex = 3 'rot
' .ColorIndex = 4 'hellgrün
' .ColorIndex = 5 'blau
' .ColorIndex = 6 'gelb
' .ColorIndex = 7 'rosa, magenta
' .ColorIndex = 8 'türkis
' .ColorIndex = 9 'dunkelrot
' .ColorIndex = 10 'dunkelgrün
.Pattern = xlSolid
End With
End With
Case 2
With Zelle
With .Font
.Size = 10
.Name = "Arial"
.Bold = True
.Italic = False
.ColorIndex = 1
End With
With .Interior
.ColorIndex = 2 'weiß
.Pattern = xlSolid
End With
End With
Case Else
With Zelle
With .Font
.Size = 10
.Name = "Arial"
.Bold = False
.Italic = False
.ColorIndex = 1
End With
With .Interior
.ColorIndex = 36 'hellgelb
.Pattern = xlSolid
End With
End With
End Select
Else
With Zelle
With .Font
.Size = 10
.Name = "Arial"
.Bold = False
.Italic = False
.ColorIndex = 1
End With
With .Interior
.ColorIndex = 0 'ohne Farbe
.Pattern = xlNone
End With
End With
If IsEmpty(Zelle) Then GoTo Weiter1 'Abbruch bei erster leerer Zelle
MsgBox ("Nur Zahlen sind gültige Eingaben")
End If
Next
Weiter1:
End Sub
Problem 3
Ich möchte wiederum eine bedingte Formatierung für eine Zelle
haben, wenn die Zelle gefüllt ist. In der Zelle verbirgt sich
jedoch eine Formel die unterschiedliche Strings reinschreibt
oder die Zelle eben leer lässt. Wenn die Zelle mit Text
gefüllt ist, soll sie z.B. blau werden.
Wie ist die Bedingung zu formulieren?
Entweder: Zellwert ist ungleich =""
oder: Formel ist =WENN(""=G2;FALSCH;WAHR)
Gruß
Franz
Hi,
die Sache flutscht, auch wenn ich noch etwas feilen muss, da die Formeln das Dukoment nicht unerheblich aufblähen.
Grüße vom Ratlosen