Code in Tabellenblatt
03.09.2006 12:10:39
Ellen
ich habe bisher nur einfache Codes programmiert, die ich per Button ausführe. Nun sollte ich einen Code haben, der automatisch im Tabellenblatt ausgeführt wird und komme damit nicht klar.
Problemstellung:
In Spalte B wird ein Wert eingegeben und wenn Eingabe gedrückt wird soll der Wert automatisch mit einer bestimmten Zahl (in meinem Beispiel nehme ich die 2) multipliziert werden.
Folgendermaßen habe ich das ganze einmal versucht. Nun habe ich zum einen das Problem, dass die Zelle bis zur "Unendlichkeit" mit 2 multipliziert wird, da sich die Zelle ständig ändert. Ich möchte das ganze aber nur 1x ausführen. Und zum anderen möchte ich noch eine Abfrage einbauen, dass das nur gemacht wird wenn eine Zahl und kein Buchstabe eingegeben wird.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intTarg As Integer
If Target.Column = 2 Then
intTarg = Target.Value
Target.Value = intTarg * 2
End If
End Sub
Ich hoffe ihr könnt mir kurz behilflich sein.
Danke und Gruß,
Ellen