Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon fantalight vom 14.03.2019, 17:25 Options
Zellenabhängigkeit aber wie?
Hallo Exel-Fans,
ich teste jetzt schon ein Weilchen mit der WENN-Funktion; bin aber leider noch nicht zum gewünschten Ergebnis gekommen. Auch die Suche hier hat mich noch nicht weiter gebracht.
In meinem Tabellenblatt soll in jeder Zeile eine Zellabhängigkeit definiert werden. Beispielhaft für die 5. Zeile formuliere ich das mal so: Wenn in der Zelle T5 ein Eintrag ausgewählt wird, dann soll in den Zellen B5:S5 alles gelöscht werden. Andersherum sollte es natürlich auch wieder klappen. Wenn in den Zellen B5:S5 ein Eintrag erfolgt, dann soll der Eintrag in T5 verschwinden.
Mein kläglicher Versuch für T5 hier:
=WENN(T5<>"";B5:S5="";T5)
Klappt leider nicht. Deshalb bitte ich um Hilfe!
Gruß
Torsten
ich teste jetzt schon ein Weilchen mit der WENN-Funktion; bin aber leider noch nicht zum gewünschten Ergebnis gekommen. Auch die Suche hier hat mich noch nicht weiter gebracht.
In meinem Tabellenblatt soll in jeder Zeile eine Zellabhängigkeit definiert werden. Beispielhaft für die 5. Zeile formuliere ich das mal so: Wenn in der Zelle T5 ein Eintrag ausgewählt wird, dann soll in den Zellen B5:S5 alles gelöscht werden. Andersherum sollte es natürlich auch wieder klappen. Wenn in den Zellen B5:S5 ein Eintrag erfolgt, dann soll der Eintrag in T5 verschwinden.
Mein kläglicher Versuch für T5 hier:
=WENN(T5<>"";B5:S5="";T5)
Klappt leider nicht. Deshalb bitte ich um Hilfe!
Gruß
Torsten
Antwort 1 von nighty vom 14.03.2019, 18:11 Options
hi all :-)
formeln stellen einen wert da,daher sie können keine zellen löschen :-))
gruss nighty
formeln stellen einen wert da,daher sie können keine zellen löschen :-))
gruss nighty
Antwort 2 von fantalight vom 14.03.2019, 21:32 Options
@nighty : Danke für die Aufklärung!
Gibts trotzdem eine Möglichkeit, die Zellenabhängigkeit zu verwirklichen? Ich habe auch schon die Bedingte Formatierung in Betracht gezogen. Das klappt aber leider auch nicht, da ich ja hier nur die Schriftart auf weiß setzen könnte. Die Felder müßten aber geleert werden, damit auch weitere Berechnungen richtig klappen.
Danke für weitere Anregungen!
Gruß
torsten
Gibts trotzdem eine Möglichkeit, die Zellenabhängigkeit zu verwirklichen? Ich habe auch schon die Bedingte Formatierung in Betracht gezogen. Das klappt aber leider auch nicht, da ich ja hier nur die Schriftart auf weiß setzen könnte. Die Felder müßten aber geleert werden, damit auch weitere Berechnungen richtig klappen.
Danke für weitere Anregungen!
Gruß
torsten
Antwort 3 von nighty vom 15.03.2019, 18:54 Options
hi torsten :-)
wie gewünscht :-)
einzufuegen alt + f11 / projektexplorer / DeineTabelle
gruss nighty
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zähler0 As Integer
Application.EnableEvents = False
If Target.Column = 20 Then
If Cells(Target.Row, 20) <> "" Then
Range("B" & Target.Row & ":S" & Target.Row) = ""
End
End If
End If
If Target.Column > 1 And Target.Column < 20 Then
For zähler0 = 2 To 19
If Cells(Target.Row, zähler0) <> "" Then
Cells(Target.Row, 20) = ""
Application.EnableEvents = True
Exit For
End If
Next zähler0
End If
Application.EnableEvents = True
End Sub
wie gewünscht :-)
einzufuegen alt + f11 / projektexplorer / DeineTabelle
gruss nighty
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zähler0 As Integer
Application.EnableEvents = False
If Target.Column = 20 Then
If Cells(Target.Row, 20) <> "" Then
Range("B" & Target.Row & ":S" & Target.Row) = ""
End
End If
End If
If Target.Column > 1 And Target.Column < 20 Then
For zähler0 = 2 To 19
If Cells(Target.Row, zähler0) <> "" Then
Cells(Target.Row, 20) = ""
Application.EnableEvents = True
Exit For
End If
Next zähler0
End If
Application.EnableEvents = True
End Sub
Antwort 4 von nighty vom 15.03.2019, 19:00 Options
hi torsten :-)
ups korrigiert :-)
gruss nighty
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zähler0 As Integer
Application.EnableEvents = False
If Target.Column = 20 Then
If Cells(Target.Row, 20) <> "" Then
Range("B" & Target.Row & ":S" & Target.Row) = ""
End If
End If
If Target.Column > 1 And Target.Column < 20 Then
For zähler0 = 2 To 19
If Cells(Target.Row, zähler0) <> "" Then
Cells(Target.Row, 20) = ""
Exit For
End If
Next zähler0
End If
Application.EnableEvents = True
End Sub
ups korrigiert :-)
gruss nighty
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zähler0 As Integer
Application.EnableEvents = False
If Target.Column = 20 Then
If Cells(Target.Row, 20) <> "" Then
Range("B" & Target.Row & ":S" & Target.Row) = ""
End If
End If
If Target.Column > 1 And Target.Column < 20 Then
For zähler0 = 2 To 19
If Cells(Target.Row, zähler0) <> "" Then
Cells(Target.Row, 20) = ""
Exit For
End If
Next zähler0
End If
Application.EnableEvents = True
End Sub
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
