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 Rasful vom 08.02.2019, 17:15 Options
Werte benachbarter Zellen löschen
Hallo,
in meiner Tabelle mit dem Namen "Bilder1" steht in A1 ein "x", in B1 ein Name. Nun soll, wenn das "x" aus A1 gelöscht wird, auch B1 gelöscht werden. Ist sowas möglich? Kann so ein Befehl auch für mehrere Tabellen gleichzeitig benutzt werden? Es gibt insgesamt 10 Tabellen ( Bilder1, Bilder2 usw.). Der Aufbau ist sinnvoller Weise immer gleich. Allerdings gibt es noch Tabellen, die z.B. "fremde Bilder1" usw. heißen. Ich benutze EXCEL 2003. Das nur zur Info.
Ich hoffe, ich habe mich einigermaßen verständlich ausgedrückt.
Vielen Dank
Rasful
in meiner Tabelle mit dem Namen "Bilder1" steht in A1 ein "x", in B1 ein Name. Nun soll, wenn das "x" aus A1 gelöscht wird, auch B1 gelöscht werden. Ist sowas möglich? Kann so ein Befehl auch für mehrere Tabellen gleichzeitig benutzt werden? Es gibt insgesamt 10 Tabellen ( Bilder1, Bilder2 usw.). Der Aufbau ist sinnvoller Weise immer gleich. Allerdings gibt es noch Tabellen, die z.B. "fremde Bilder1" usw. heißen. Ich benutze EXCEL 2003. Das nur zur Info.
Ich hoffe, ich habe mich einigermaßen verständlich ausgedrückt.
Vielen Dank
Rasful
Antwort 1 von nighty vom 08.02.2019, 17:50 Options
hi rasful :-)
ein beispiel
gruss nighty
einzufuegen bei JEDER tabelle
alt+f11/projektexplorer/DeineTabelle
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Cells(Target.Row, 1) = "" Then Cells(Target.Row, Target.Column + 1) = ""
Application.EnableEvents = True
End Sub
allerdings auf abfrage einer leeren zelle in spalte a sollte in spalte a auch andere zeichen ausser x sein und bei löschung selbiger die nachbarzelle nicht gelöscht werden melde dich nochmal bzw versuch dich selbst,tips wie folgt
globale var und nutze das selektion_change ereignis um die globale var zu fuellen die dann im change_ereignis abgefragt werden koennte
ein beispiel
gruss nighty
einzufuegen bei JEDER tabelle
alt+f11/projektexplorer/DeineTabelle
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Cells(Target.Row, 1) = "" Then Cells(Target.Row, Target.Column + 1) = ""
Application.EnableEvents = True
End Sub
allerdings auf abfrage einer leeren zelle in spalte a sollte in spalte a auch andere zeichen ausser x sein und bei löschung selbiger die nachbarzelle nicht gelöscht werden melde dich nochmal bzw versuch dich selbst,tips wie folgt
globale var und nutze das selektion_change ereignis um die globale var zu fuellen die dann im change_ereignis abgefragt werden koennte
Antwort 2 von Rasful vom 08.02.2019, 18:00 Options
Hallo nighty,
ich habe deine Lösung schon getestet, funktioniert wunderbar, vielen Dank.
Grüße aus Bayern
Rasful
ich habe deine Lösung schon getestet, funktioniert wunderbar, vielen Dank.
Grüße aus Bayern
Rasful
Ähnliche Themen
Excel - leere Zellen automatisch löschen
iridium 12.01.2007 - 264 Hits - 14 Antworten
Makro: Zellen mit Inhalt erkennen und kopieren
CBundy 07.05.2007 - 128 Hits - 4 Antworten
inTabelle die freien Zellen löschen
dieter2000 22.12.2007 - 94 Hits - 1 Antwort
Zellen trennen : verbinden umgekehrt
m-o-m 22.01.2008 - 98 Hits - 9 Antworten
Zeilen mit leeren Zellen löschen
brs 16.06.2008 - 300 Hits - 7 Antworten
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
