Office: variablen erhöhen

sawah · 18. Mai 2011

Hallo zusammen,

ich versuch mit Worksheet_Change ein Programm zu schreiben was die eingegebene zahl in egal welche Zelle um 1 erhöht, geht leider nicht bei mir, kann mir bitte jemand verraten wie ich das machen kann.*frown.gif*

Gruß

:)

Beverly · 20. Mai 2011

Hi,
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Then
Application.EnableEvents = False
Target = Target + 1
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei Eingabe einer Zahl in A10 wird zu dieser Eingabe 1 addiert.

sawah · 20. Mai 2011

Hi,

danke vielmals. ich muss es jetzt nur noch anpassen das egal welche Zelle wird erhöht.

Gruß*biggrin.gif*

chris-kaiser · 20. Mai 2011

hi

würde ich so nicht verwenden ^^

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Value "" Then
If IsNumeric(Target) Then
Application.EnableEvents = False
Target.Value = Target.Value + 1
Application.EnableEvents = True
End If
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ansonsten, bei unerwünschten Nebenwirkungen fragen sie Ihren EDV'ler oder das Forum. ^^

sawah · 20. Mai 2011

Hi,
funktioniert super, danke

Gruß

Office: variablen erhöhen

variablen erhöhen

variablen erhöhen

variablen erhöhen

variablen erhöhen - Similar Threads - variablen erhöhen

Übergabe von Variablen

Combobox einbinden

VBA:Laufzeitfehler beim Einlesen in Variable

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Variable Anzahl immer 9er Kombination StellenBerechnung

Makro für variable Anzahl von Datensätzen

Variable Länge