Office: Makro erst ausführen wenn Wert in Zelle >0

manega · 2. Mai 2017

Hallo Profis,

ich nutze zur Zeit folgenden Code:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B143:B144")) Is Nothing Then Call Abfrage_KW
If Not Intersect(Target, Range("U9")) Is Nothing Then Call Abfrage_Typ
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Soweit funktioniert er auch einwandfrei. Nervend ist nur, dass er jedes Mal ausgeführt wird, sobald ich in die entsprechende Zelle komme.
Kann dieser Code so geändert werden, dass er nur ausgeführt wird, sobald ein Wert >0 in die Zelle eingegeben wird?
Mir ist bekannt, dass es auch das Worksheet Change Ereignis gibt, welches ich auch bereits nutze. Da meine VBA Kenntnisse jedoch sehr begrenzt sind, ist die andere Variante für mich einfacher zu erweitern.

Vielen Dank im Voraus
Gruß manega

:)

Beverly · 3. Mai 2017

Hi,

vielleicht solltest du anstelle des SelectionChange-Ereignisses das Change-Ereignis verwenden? In welche Zellen erfolgen denn die Eingaben und welche Zelle(n) sollen geprüft werden, ob sie den Wert >0 enthalten können? Ergibt sich der Wert >0 aus einer Formelberechnung oder ist es eine direkte Eingabe. Du siehst also: Fragen über Fragen, da du so git wie gar nichts über die genauen Bedingungen verrätst.

manega · 3. Mai 2017

Hallo Karin,

momentan werden die Zellen B143:B144 und U9 überprüft. Es wird jeweils ein anderes Makro ausgeführt. Die Werte werden manuell eingetragen.
Da ich meine Datei noch weiter bearbeite, werden wohl noch einige zu überwachende Zellen dazu kommen.

vielleicht solltest du anstelle des SelectionChange-Ereignisses das Change-Ereignis verwenden?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie bereits geschrieben, meine VBA Kenntnisse sind sehr begrenzt, daher habe ich die andere Methode gewählt. Dabei ist es für mich leichter weitere Ereignisse hinzu zu fügen! *wink.gif*

Gruß manega

Beverly · 3. Mai 2017

Hi,

das SelectionChange-Ereignis wird immer dann aus geführt, wenn die Auswahl geändert wird wird (sagt ja auch die Bezeichnung). Das Change-Ereignis wird immer dann ausgeführt, wenn ein Zellinhalt geändert wird. In deinem Fall muss noch geprüft werden, ob der Zellinhalt >0 ist - also so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B143:B144")) Is Nothing Then
If Target > 0 Then Call Abfrage_KW
End If
If Target.Address(False, False) = "U9" Then
If Target > 0 Then Call Abfrage_Typ
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

RPP63 · 3. Mai 2017

Moin!
Benutze die Dropdowns im VBA-Eitor, dann siehst Du die verschiedenen Ereignismakros:
Online - Excel Programmierung VBA Makro: Editor [09] Dropdowns in Modulen

Wie Karin bereits schrieb musst Du dieses Ereignis wählen:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Edit:
Karin hat Dir in der Zwischenzeit ja bereits den Code geschrieben.

Gruß Ralf

manega · 4. Mai 2017

Hallo,

vielen Dank für die Antworten!
Wie bereits erwähnt habe ich bereits ein Change Ereignis in der Tabelle.
Meine Versuche Karins Code noch hinzu zu fügen funktionieren leider nicht. Entweder funktioniert der bereits vorhandene Teil oder der neue Teil. Beide zusammen klappt leider nicht.
Kann mir bitte jemand Karins Code einfügen?
Hier der vorhandene Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count > 1 Then Exit Sub
Set rng = Range("B28:B32", "B38:B42")
If Intersect(Target, Union(rng, Range("C5"))) Is Nothing Then Exit Sub

Select Case Target.Address(0, 0)
Case Is = "C5"
If Target "" And IsNumeric(Target) Then
If WorksheetFunction.Count(rng) > 0 Then
MsgBox "Die Eingabe in Zelle C5 entfernen! Die Berechnungen und die Bezeichnung für 06/12 sind bereits im Schranktyp enthalten.", vbInformation
End If
End If

Case Else
If Target "" And IsNumeric(Target) Then
If Range("C5") "" And IsNumeric(Range("C5")) Then
MsgBox "Die Eingabe in Zelle C5 bei Ausführung 06/12 entfernen! Die Berechnungen und die Bezeichnung für 06/12 sind bereits im Schranktyp enthalten.", vbInformation
End If
End If

End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß manega

Beverly · 4. Mai 2017

Hi,

schon mal versucht, einfach meine Codezeilen unter deine Zeile End Select zu schreiben?

manega · 4. Mai 2017

Hallo,

ja habe ich. Dein Code läuft dann aber nicht. Setze ich ihn ganz nach oben, läuft der andere Code nicht mehr!

Gruß manega

manega · 4. Mai 2017

Hallo,

hat keiner eine Lösung parat?

Gruß manega

Beverly · 4. Mai 2017

Hi,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Count > 1 Then Exit Sub
Set rng = Union(Range("B28:B32"), Range("B38:B42"), Range("B143:B144"), Range("C5"), Range("U9"))
If Intersect(Target, rng) Is Nothing Then Exit Sub

If Target.Address(0, 0) = "C5" Then
If Target "" And IsNumeric(Target) Then
If WorksheetFunction.Count(rng) > 0 Then
MsgBox "Die Eingabe in Zelle C5 entfernen! Die Berechnungen und die Bezeichnung für 06/12 sind bereits im Schranktyp enthalten.", vbInformation
End If
End If
End If
If Not Intersect(Target, Union(Range("B28:B32"), Range("B38:B42"))) Is Nothing Then
If Target "" And IsNumeric(Target) Then
If Range("C5") "" And IsNumeric(Range("C5")) Then
MsgBox "Die Eingabe in Zelle C5 bei Ausführung 06/12 entfernen! Die Berechnungen und die Bezeichnung für 06/12 sind bereits im Schranktyp enthalten.", vbInformation
End If
End If
End If
If Not Intersect(Target, Range("B143:B144")) Is Nothing Then
If Target > 0 Then Call Abfrage_KW
End If
If Target.Address(False, False) = "U9" Then
If Target > 0 Then Call Abfrage_Typ
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

manega · 4. Mai 2017

Hallo Karin,

funktioniert wie gewünscht, Danke!

Gruß manega

Office: Makro erst ausführen wenn Wert in Zelle >0

Makro erst ausführen wenn Wert in Zelle >0

Makro erst ausführen wenn Wert in Zelle >0

Makro erst ausführen wenn Wert in Zelle >0

Makro erst ausführen wenn Wert in Zelle >0

Makro erst ausführen wenn Wert in Zelle >0 - Similar Threads - Makro ausführen Wert

Makro nur ausführen wenn in einer Spalte ein spezieller Text nicht vorkommt

Makro nur in einer Datei ausführen.

Probleme Marko Ausführung

Makros nach wenn dann prüfen und durchführen

Makro nur ausführen wenn wenigstens eine Zelle gefüllt

Eintragung in mehrere Tabellen

Makro stoppen und sobald Wert in Zelle vorhanden Makro weiter ausführen