Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehre Zellen leeren wenn geändert wird

Mehre Zellen leeren wenn geändert wird
07.05.2020 21:30:51
Yzerreter
Hallo Zusammen,
in einer Liste habe ich mittels VBA ein OnChange Event zusammengesucht welches super funktioniert.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "D4"
Application.EnableEvents = False
Union(Range("E4"), Range("F4"), Range("G4"), Range("H4")).ClearContents
Application.EnableEvents = True
Case "E4"
Application.EnableEvents = False
Union(Range("F4"), Range("G4"), Range("H4")).ClearContents
Application.EnableEvents = True
Case "F4"
Application.EnableEvents = False
Union(Range("G4"), Range("H4")).ClearContents
Application.EnableEvents = True
Case "G4"
Application.EnableEvents = False
Range("H4").ClearContents
Application.EnableEvents = True
End Select
End Sub
Nun möchte ich ja nicht für jede Zeile 4 bis 999999 diesen Part kopieren. Wie kann ich E4 durch aktuelle Zelle ersetzen und dannach die anderen auch.
Ich hoffe es ist einfacher als ich denke, leider hat recherche nicht das Ergebnis geliefert was ich nutzen kann.
Vielen Dank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehre Zellen leeren wenn geändert wird
07.05.2020 22:36:11
michlchen80
Target ist die aktuelle Zelle...
wenn du also in E4 was änderst, dann ist E4 Target.
Wenn du in Z381 was änderst dann ist das Target.
Was willst du denn genau machen?
so wie ich es raus lese, willst du in der gleichen zeile nach hinten raus die formate löschen richtig?
also in spalte D soll E-H, bei G nur die H...
Select Case Target.Column
Case 4  '=D
Application.EnableEvents = False
Union(Range("E"&Target.row), Range("F"&Target.row), Range("G"&Target.row), Range("H"&Target.row) _
).ClearContents
Application.EnableEvents = True
Case 5
Application.EnableEvents = False
Union(Range("F"&Target.row), Range("G"&Target.row), Range("H"&Target.row)).ClearContents
Application.EnableEvents = True
Case 6
Application.EnableEvents = False
Union(Range("G"&Target.row), Range("H"&Target.row)).ClearContents
Application.EnableEvents = True
Case 7
Application.EnableEvents = False
Range("H"&Target.row).ClearContents
Application.EnableEvents = True
End Select
Dürfte funzen...
Ginge aber auch etwas eleganter hehe
Anzeige
AW: Mehre Zellen leeren wenn geändert wird
07.05.2020 22:43:19
Yzerreter
Hi,
also um etwas genauer zu werden.
Ich habe eine Liste die gefüllt werden soll.
In Spalte D4 kommt ein Dropdown mit Spender, Einkauf, Verkauf. Wenn dieser Wert eben geändert wird sollen die Spalten "E" "F" "G" "H" geleert werden, damit keine Falschen Inhalte übernommen werden.
Der obige Code funktioniert eben für die Zeile 4 wunderbar. Jenachem welche Spalte geändert wird, wird nach hnten geleert.
KOmmt aber nun Zeile 5 Hinzu funktioniert es eben nicht mehr, logisch. ABer statt nun jede Zeile einzeln zu nehmen, würde ich gerne den obigen Coe so abändern das aus D4 (beispiel) eben D akzuelle Zeile wird.
Werde dein Script mal testen.
Was heisst den eleganter ? :D
Greez
Anzeige
AW: Mehre Zellen leeren wenn geändert wird
08.05.2020 07:33:21
hary
Moin
Etwas eleganter ;-) 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 4 And Target.Column  3 Then
Application.EnableEvents = False
Cells(Target.Row, Target.Column + 1).Resize(1, 8 - Target.Column).ClearContents
Application.EnableEvents = True
End If
End Sub

gruss hary
AW: Mehre Zellen leeren wenn geändert wird
08.05.2020 22:53:21
michlchen80
und wenn du später mal nicht nur bis H, sondern wegen neuer spalten bis ganz zum Ende (also vielleicht dann N) leeren willst, kannst du auch mit 
l_col=cells(target.row,columns.count).end(xltoleft).column

die dann letzt gefüllte spalte finden und die 8 mit l_col ersetzen.
wäre noch eleganterer :-)
weil du sonst jedes mal den quellcode ändern musst, wenn du mal ne spalte dazu nehmen willst
geht allerdings nur, wenn du danach nichts weiter hast! mit dem end und dann columns.end oder auch rows.count und xl(up) bekommst du die zuletzt befüllte zeile oder spalte...
Anzeige
AW: Mehre Zellen leeren wenn geändert wird
08.05.2020 11:01:42
GerdL
Hallo,
so auch! :-) 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect(.Cells, Range("D4:G" & Rows.Count)) Is Nothing Then
If .CountLarge = 1 Then
Application.EnableEvents = False
Range(.Offset(0, 1), Cells(.Row, 8)).ClearContents
Application.EnableEvents = True
End If
End If
End With
End Sub

Gruß Gerd

307 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1