Supportnet / Forum / Tabellenkalkulation

Hallo! Ich brauche Hilfe bei Excel. Folgende Situation: Ich will in Zelle Z1S1 einen Wert eintragen, wenn in Zelle Z3S1 ein Datum steht. Das wäre dann: =WENN (Z3S1= "voll" ; HEUTE() ) Ist so etwas möglich? [*][sup][i] *Threadedit* Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/groupfaqs/3]FAQ 2.[/url][/u][/i][/sup]

Es geht, eine bessere Formel ist aber

=WENN(ISTLEER(A3);"";HEUTE())

Damit wird nicht geprüft, ob der Wert in A3 ein Datum ist, sondern nur ob die Zelle leer oder gefüllt ist. Wenn was drin steht, erscheint in A1 das aktuelle Datum, wenn nicht, bleibt A1 leer.

Gruß Flupo

Und wie wäre die Formel für die volle Zelle?

Das ist doch eine Formel für die gefüllte Zelle. HEUTE() steht doch im "sonst"-Teil der WENN-Funktion.

Ich hab mich oben vielleicht blöd ausgedrückt.
Ich habe 4 Tabellenblätter für die Gelder meiner Kinder (1. Übersicht aller Konten , 2. Kind 1, 3. Kind 2 , 4. Kind 3)
Auf der Übersicht soll alles automatisch nachgetragen werden, wenn eine Einzahlung bei einem Kind vorgenommen wird. Z.B.: Ich zahle bei Kind 2 500 € ein. Auf der Übersicht wird automatisch eine neue Zeile angefangen, bei der die Daten automatisch ergänzt werden. Die Geldsumme wird schon automatisch eingesetzt, allerdings habe ich es so gemacht, dass die Zellen erst ausgefüllt werden, wenn ein Datum eingetragen wird. Also ist alles vom Datum abhängig.
Das Datum soll aber automatisch eingetragen werden, wenn ich auf einem tabellenblatt eines Kindes eine Einzahlung vornehme.

Ich hänge mal die xls an: Excel-Tabelle

Ich hätte zwei Lösungsansätze. Der erste ist etwas einfacher, liefert aber wahrscheinlich nicht genau das Ergebnis, was du haben möchtest.
Dafür funktioniert es ohne Makro.
folgende Formel kommt in die Datumsspalte:

=WENN(Matthias!Z(-2)S="";"";Matthias!Z(-2)S)

Den Rest hast du ja schon richtig drin.
Problem ist jetzt nur noch, dass wahrscheinlich an einem Datum nicht immer auf allen Konten Bewegung herrscht. Ich würde deshalb für jedes Kind eine eigene Datumsspalte einfügen.

Die andere Lösung ist deutlich aufwendiger. Man müsste ein Makro schreiben, dass bei jeder Änderung des Inhaltes eines der drei Tabellenblätter die erste Seite aktualisiert. Näher drüber nachgedacht habe ich noch nicht.

Gruß Flupo

Auf die "einfache" Lösung bin ich auch schon gekommen. Jedoch scheiterte es - wie du schon gesagt hast - daran, dass nur ein Kind abgefragt wird. Man müsste mehrere Formeln in eine Zelle eingeben können. Das wird aber nicht möglich sein, oder?

Mir ist auch noch etwas eingefallen. Man könnte doch verschiedene WENN-Abfragen koppeln. Das sehe dann so aus:

=WENN(Matthias!Z(-2)S>65000;Matthias!Z(-2)S;WENN (Eva!Z(-2)S>65000;Eva!Z(-2)S;WENN(Christoph!Z(-2)S>65000;Christoph!Z(-2)S)

Es wird aber FALSCH wiedergegeben...

Ich habe die Übersichtsseite vorrübergehend auf Eis gelegt. Es war einfach zu komplex und kompliziert.

Dennoch habe ich es mit folgender Formel hin bekommen, dass das Datum automatisch eingefügt worden ist:

=WENN(MAX(Matthias!Z(-2)S;Eva!Z(-2)S;Christoph!Z(-2)S)=0;"";MAX(Matthias!Z(-2)S;Eva!Z(-2)S;Christoph!Z(-2)S))

Allerdings kam darauf der Konflikt, dass man bei jedem Kind immer die Spalte ebenfalls aktualisieren musste, da sonst das aktueller Datum genommen worden wäre (Hoffe ihr konntet mir folgen ;-) )

Naja, aber das heißt nicht, dass ihr keine weiteren Lösungen posten müsst. Wer eine Lösung hat, kann sie mit gerne mitteilen ;-)

hi all :-)

hier ein ansatz

gruss nighty

in der tabelle übersicht spalte 1-10 ohne formeln

nach eingabe des betrages in den namenstabellen erfolgt ein automatismus,der das aktuelle datum eintraegt,formeln runter koppiert,in übersicht die daten kopiert


einzufuegen

alt +f11/projektexplorer/Matthias
alt +f11/projektexplorer/Eva
alt +f11/projektexplorer/Christoph

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveSheet.Name = "Matthias" Then
zaehler0 = 2
zaehler1 = 3
zaehler2 = 4
End If
If ActiveSheet.Name = "Eva" Then
zaehler0 = 5
zaehler1 = 6
zaehler2 = 7
End If
If ActiveSheet.Name = "Christoph" Then
zaehler0 = 8
zaehler1 = 9
zaehler2 = 10
End If
If Target.Column = 4 Or Target.Column = 8 Then
ActiveSheet.Cells(Target.Row, 1) = Date
ActiveSheet.Cells(Target.Row, 2) = ActiveSheet.Cells(Target.Row - 1, 2).Formula
ActiveSheet.Cells(Target.Row, 6) = ActiveSheet.Cells(Target.Row - 1, 6).Formula
ActiveSheet.Cells(Target.Row, 7) = ActiveSheet.Cells(Target.Row - 1, 7).Formula
ActiveSheet.Cells(Target.Row, 10) = ActiveSheet.Cells(Target.Row - 1, 10).Formula
ActiveSheet.Cells(Target.Row, 11) = ActiveSheet.Cells(Target.Row - 1, 11).Formula
ActiveSheet.Cells(Target.Row, 12) = ActiveSheet.Cells(Target.Row - 1, 12).Formula
zeile = Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Row
If Target.Column = 4 Then
Sheets("Übersicht").Cells(zeile + 1, 1) = Date
Sheets("Übersicht").Cells(zeile + 1, zaehler0) = ActiveSheet.Cells(Target.Row, 7)
Sheets("Übersicht").Cells(zeile + 1, zaehler2) = Sheets("Übersicht").Cells(zeile + 1, zaehler0) + Sheets("Übersicht").Cells(zeile + 1, zaehler1)
End If
If Target.Column = 8 Then
Sheets("Übersicht").Cells(zeile + 1, 1) = Date
Sheets("Übersicht").Cells(zeile + 1, zaehler1) = ActiveSheet.Cells(Target.Row, 12)
Sheets("Übersicht").Cells(zeile + 1, zaehler2) = Sheets("Übersicht").Cells(zeile + 1, zaehler0) + Sheets("Übersicht").Cells(zeile + 1, zaehler1)
End If
End If
Application.EnableEvents = True
End Sub

Hallo nighty,
ich habe deinen Code in den VisualBasic (?) Editor eingetragen, doch es funktioniert leider nicht...
Kannst du den Code eintragen und die Datei hochladen?

hi all :-)

hier die datei

http://www.netupload.de/detail.php?img=7b508450d0655076fd6f4cd5098c...

gruss nighty

hi all :-)

nochmal ,link ging eben nicht

gruss nighty

http://www.netupload.de/detail.php?img=540998252c7f56db387263afa6fc...

Hab mir deine xls runtergeladen, aber funktionieren tut's leider trotzdem nicht...

hi calculate :-)

welche excel version hast du ?

das makro ist mit excel 2000 geschrieben bis auf excel2007 sollte es funktionieren

gruss nighty

• xp installation - Thread Closed
• Grafikkartenproblem unter xp - Thread Closed
• Makro umschreiben - Thread Closed
• PC-Cleaner - *Thread Closed*
• start cd - Thread Closed