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
1604to1608
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

manuelle Zelländerung abfragen

manuelle Zelländerung abfragen
05.02.2018 13:10:48
Maddin
Moin,
ich habe ein für mich unlösbares Problem wobei ich eure Hilfe brauche.
Ich habe in einer Excel-Liste eine Dropdown Box mit verschiedenen Chemikalien (Wasser, Ethanol, Aceton ...). Anhand der Auswahl wird in einer Datenbank nach der dazu passenden Dichte gesucht und diese in bspw. Zelle A1 geschrieben. Gelöst hab ich dies über die Abfrage, ob die DropdownBox geändert wird. Das funktioniert auch alles.
Nun möchte ich aber, dass man auch manuell in Zelle A1 einen bestimmten Wert eintippen kann und hierdurch die Auswahl in der DropdownBox geleert wird. Da ich hier nur die Möglichkeit über die Abfrage nach Worksheet_change kenne taucht hier natürlich das Problem auf, dass dieses Makro auch ausgeführt wird, wenn ich den Wert über die Dropdown auswahl steuere und sich dadurch die DropdownBox gewissermaßen selbst leert.
Gibt es eine Möglichkeit gesondert abzufragen ob eine Zelle manuell geändert wird oder durch ein Makro?
Gruß
Maddin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vierfach! o.T.
05.02.2018 13:11:51
Sepp
Gruß Sepp

AW: manuelle Zelländerung abfragen
05.02.2018 13:36:06
japes36
Das müsste dann bei Dir ähnlich folgend aussehen. Code muss ins Register mit deinem Dropdown
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("$A$1")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Application.Calculation = xlCalculationManual
bittewarten.Show False
DoEvents
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
If Application.CalculationState = xlDone Then
Unload bittewarten
End If
Application.Calculation = xlCalculationManual
End Sub
BitteWarten ist eine Userform bei mir, da bei Zelländerung eine Neuberechnung länger dauert. Kannst du auch rausnehmen, falls nciht notwendig.
Gruß
Anzeige
AW: manuelle Zelländerung abfragen
05.02.2018 13:40:16
japes36
...beim schließen der Mappe sollte unter "Diese Arbeitsmappe" noch 
Option Explicit
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub

Anzeige
AW: manuelle Zelländerung abfragen
05.02.2018 13:43:25
japes36
...so kann ich in A1 entweder per Dropdown eine Auswahl treffen oder in A1 manuell etwas wählen

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige