Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Selektieren soll eine Range gelöcht werden

Beim Selektieren soll eine Range gelöcht werden
18.02.2016 10:03:09
Armin
Hallo Freunde
ich habe eine Frage und Zwar:
Ich habe eine Exce-Datei(https://www.herber.de/bbs/user/103666.xlsm)und möchte Folgendes:
Im Arbeitsblatt "XXX" befindet sich 4 Dropdown und eine Liste, welche sich in der Spalte "Anzahl" auch eine Dorpdpownsliste befindet.
Ziel ist es, sobald ich "Dropdown 1" auswähle (aktiv wird), sollen die Dropwon-2-3-4 leer gemchat werden (ClaerContens) und die Werte in den Spalten "Werte und Ergebnis" gelöcht werden (ClaerContens) sowie die Werte in der Spalte "Anzahl" noch mal auf den Wert "Null" zurück gesetzt werden (ActiveCell.Formula1C1="0")
Im letzen Schritt soll beozedur beendet werden, d.h wenn ich anderen Werte aus Dropdown-1 wähle soll es nicht mehr passieren.!!!
Die Geschichte soll auch gelten für Dropdown 2 und 3 und 4! D.h. wenn ich "Dropdown-2" auswähle sollen "Dropdown 1-3-4" leer werden usw.
Mein Problem ist, ich kann nicht einfach eine Schleife schreiben oder durch "Select Case" einen Prozedur schreiben,damit ich ans Ziel komme.
Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Selektieren soll eine Range gelöcht werden
20.02.2016 15:24:32
fcs
Hallo Armin,
hier ein entsprechendes Ereignismakro.
Es macht aber keinen Sinn, in Spalte L (Ergebnis) die Formeln zu löschen. Es sei denn du willst sie immer wieder neu eingeben.
Gruß
Franz 
'Code im VBA-Editor unter dem Tabellenblatt "XXX"
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(False, False, xlA1)
Case "C3"
prcLoeschen Application.Union(Range("F3"), Range("C8"), Range("F8"))
Case "F3"
prcLoeschen Application.Union(Range("C3"), Range("C8"), Range("F8"))
Case "C8"
prcLoeschen Application.Union(Range("C3"), Range("F3"), Range("F8"))
Case "F8"
prcLoeschen Application.Union(Range("C3"), Range("F3"), Range("C8"))
End Select
End Sub
Private Sub prcLoeschen(rngCheck)
'Prüfen, ob die 3 anderen Zellen mit Drop-Down-Auswahl schon leer sind
If Application.WorksheetFunction.CountA(rngCheck) = 0 Then
'do nothing
Else
Application.EnableEvents = False
rngCheck.ClearContents
Range("J3:J16").ClearContents
Range("K3:K16").Value = 0
Application.EnableEvents = True
End If
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige