Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte löschen mit Bedingung

Werte löschen mit Bedingung
26.01.2022 19:26:20
Edmund
Hallo,
vielleicht kann mir einer bei meinem Problem helfen.
Ich möchte, dass wenn auf Tabellenblatt "Eingabe" bei G11 der Name "Neubau" erscheint automatisch auf dem Tabellenblatt "Vorbelegung" die Werte bei J5 und K5 gelöscht werden ohne das die Ansicht zum Tabellenblatt "Vorbelegung" wechselt.
Meine Version geht leider nicht.
mfg
Edmund

Private Sub Neubau_Beitragssatz_löschen()
If Sheets("Eingabe").Range("G11") = "Neubau" Then
Sheets("Vorbelegung").Range("J5:K5").Select
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J5").Select
Selection.ClearContents
Range("K5").Select
Selection.ClearContents
ActiveSheet.Unprotect
Range("J5:K5").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte löschen mit Bedingung
26.01.2022 19:40:39
Oberschlumpf
Hi Edmund,
hilft das hier?

Private Sub Neubau_Beitragssatz_löschen()
If Sheets("Eingabe").Range("G11") = "Neubau" Then
With Sheets("Vorbelegung")
.Unprotect
.Range("J5:K5").Value = ""
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
End Sub
Ciao
Thorsten
AW: Werte löschen mit Bedingung
26.01.2022 20:04:31
Edmund
Hallo Thorsten,
leider nicht.
Wenn ich es in die Tabelle "Vorbelegung" einbaue nicht ebenso wenn ich es in die Tabelle "Eingabe" einbaue nicht
Der Beitragssatz bleibt dort stehen.
Lasse ich es im VBA Projekt mit F5 ausführen klappt es.
lg Edmund
Anzeige
AW: Werte löschen mit Bedingung
26.01.2022 20:15:40
Oberschlumpf
Hi Edmund,
zeig mal bitte per Upload eine Bsp-Datei mit Bsp-Daten und deinem Code.
Ciao
Thorsten
AW: Werte löschen mit Bedingung
27.01.2022 07:41:13
Pierre
Hallo Edmund,
ich klinke mich mal ein (hoffe, dass geht in Ordnung, Thorsten).
Integriere Thorstens Code in deinen bestehenden "Private Sub Worksheet_Change".
Sieht dann ungefähr so aus, wenn es fertig ist:

Private Sub Worksheet_Change(ByVal Target As Range)
'Button nach Denkmalschutz wird nur angezeigt wenn bei Eingabe Denkmalschutz auf Ja steht
Dim i As Long
If Target.Address = "$D$12" Then
Worksheets("Wert1914").ButtonNachDenkmalschutz.Visible = Target.Value = "Ja"
For i = 6 To 17
With Worksheets("Denkmalschutz").OptionButtons("Optionsfeld " & i)
If Target.Value = "Ja" Then
.Visible = True
Else
.Visible = False
.Value = xlOff
End If
End With
Next i
End If
  If Sheets("Eingabe").Range("G11") = "Neubau" Then
With Sheets("Vorbelegung")
.Unprotect
.Range("J5:K5").Value = ""
.Range("C12:C13").Value = ""
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
End Sub
Der fette Teil ist Thorstens Code-Teil.
Übrigens, wenn du 2 Bereiche leeren willst, hier also J5:K5 und C12:C13, schreibe das beieinander.
Habe es zwar sofort geändert in deinem eingepflegten Code, aber ich denke nicht, dass nach dem Blattschutz die Zellen C12:C13 noch geleert werden.
Gruß Pierre
PS: Auf Schönheit habe ich dabei jetzt nicht geachtet.
Anzeige
AW: Werte löschen mit Bedingung
27.01.2022 07:49:31
Oberschlumpf
Hi Pierre
so ähnlich war ja mein 1. Gedanke/Antwortversuch.
Da Edmund aber meinte, dass das nicht hilft, hab ich nich weiter getestet, sondern bin davon ausgegangen (nachdem ich die Testdatei sah), dass das Change-Ereignis bei Änderung durch Formel (in G11) nicht wirkt; es reagiert das Calculate-Ereignis.
Da ich aber Calculate nur in G11 nicht überwachen konnte, bin ich den "Umweg" über Änderung Baujahr gegangen.
Ciao
Thorsten
AW: Werte löschen mit Bedingung
27.01.2022 08:11:02
Pierre
Hallo Thorsten,
ich habe deinen ersten Code gesehen und dachte mir, dass es als "Worksheet_Change" laufen dürfte, habe dann in der Beispielmappe gesehen, dass dieses Event schon existiert und habe dann beide Codes einfach zusammengewürfelt. Damit lief es (zumindest die Fragestellung, die beiden Zellen zu leeren).
Hab also nur dieses "läuft nicht" ausräumen wollen. Bei allem Anderen habe ich nicht mehr geguckt.
Gruß Pierre
Anzeige
AW: Werte löschen mit Bedingung
27.01.2022 12:28:22
Edmund
Hallo Pierre Hallo Thorsten,
ich habe den Code wie oben angegeben eingebaut, perfekt !!!!
Macht alles so wie ich es wollte, sobald auf der Eingabeseite das Baujahr geändert wird in 2022 ( Neubau ) löscht der Code auf der Vorbelegung den errechneten Prämiensatz aus einer vorherigen Berechnung und löscht auch die eingegebenen Werte in C11 und C12.
Danke vielmals hat mir ein ganzes Stück weitergebracht
lg Edmund
AW: Werte löschen mit Bedingung
27.01.2022 07:47:02
Oberschlumpf
Hi Edmund
hier, versuch mal
https://www.herber.de/bbs/user/150706.zip
In Worksheet_Change hab ich eine Überwachung der Zelle D11 (Baujahr) eingebaut.
Wenn du also das Baujahr änderst, wird zuerst überprüft, welcher Wert in Zelle G11 steht.
Wenn in G11 = Neubau, werden automatisch in Tabelle "Vorbelegung" die Werte in den Zellen J5 + K5 gelöscht.
Hilfts?
Ciao
Thorsten
Anzeige

309 Forumthreads zu ähnlichen Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Variable Gültigkeitsliste ohne doppelte Werte
Susi

Hallo liebe Excel-Freunde,
ich möchte gerne aus einer Datentabelle den Inhalt einer Spalte für eine Auswertung über eine Variable Gültigkeitsliste ziehen.
Zur Verdeutlichung hier ein einfaches Spiel-Beispiel:
Spalte A Spalte B
Äpfel 10
Äpfel 20
Birnen...
28.11.2008 10:08:27
Thread-ID: 1028603
5 Beiträge
Anzeige
kkleinste ohne doppelte werte
gisela

Hallo zusammen,
nach einigen Stunden Recherche benötige ich noch mal Eure Hilfe.
Verschiedene Datumsangaben (siehe Datei) sollen aufsteigend ohne doppelte Werte angezeigt werden.
Meine Formel funktioniert nur bedingt. Irgendetwas stimmt nicht.
Kann mir bitte jemand helfen?
h...
31.01.2009 23:47:11
Thread-ID: 1045792
2 Beiträge
Gültigkeite - Liste ohne doppelte Werte
susi

Hallo,
ich habe eine kleines, eher optisch unschönes Problem. In einer Tabelle wird von den Nutzern auf dem ersten TB eine Liste mit Werte al la ABC1000; ABC1010 ... eingetragen. Nun können sich aber diese Werte auch wiederholen. Auf einem zweiten TB habe ich eine Spalte die sich über DATEN...
13.08.2009 07:57:25
Thread-ID: 1095462
2 Beiträge
Anzahl der häufigsten Werte mit Bedingung
André

Moin zusammen,
ich habe in Spalte A einer Tabelle Artikelbereiche stehen, in Spalte B Artikelkategorien. Ich möchte nun die Anzahl der Zeilen wissen, die einen bestimmten Artikelbereich haben. Aber nur die Anzahl der Artikel, deren Artikelkategorie am häufigsten in diesem Artikelbereich vor...
02.09.2009 12:48:45
Thread-ID: 1100042
8 Beiträge
(Spezial-) Formel für dyn. Liste ohne Duplikate
Reinhard

Hallo Wissende,
Auf http://excelformeln.de/formeln.html?welcher=194 steht zwar der Satz:
"Es gibt Array-Formeln ohne Hilfsspalte für überschaubare Bereiche."
Der nützt mir aber nix, bräuchte ich dies Arrayformeln, wobei die vielleicht nicht ausreichen weil mein Anliegen ist speziell...
14.10.2009 23:08:51
Thread-ID: 1109696
6 Beiträge
Modalwert mit Bedingungen
Nico

Einen wunderschönen Guten Morgen und vorab vielen Dank!
Also ich habe ein Problem mit dem Modalwert mit einer Bedingung.
Folgende Formel habe ich bereits gefunden und habe sie auf meine Bereiche angepasst:
{=MODALWERT(WENN($C$19:$AQ$19=AU$1;$C21:$AQ21))}
Das Problem ist, ich bek...
16.10.2009 13:42:23
Thread-ID: 1110042
3 Beiträge
Anzeige

Links zu Excel-Dialogen

OptionButton

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
2
3
5
4
4
1
1
7
5
2
4
5
1
3
4
3
1
8
4
6
2
4
7
6
2