Makro mit enter auslösen
14.07.2004 16:10:49
Rolker69
ich habe folgendes Problem. Wie kann man es hinkriegen wenn die Eingabe in der Zelle 'B4' beendet ist, das sich das Makro mit der Enter Taste auslöst.
Ich gebe also meine Zahlen ein und drücke die Enter Taste und dann sollte sich das Makro auslösen ohne mit der Maus draufklicken zu müssen.
Ist das überhaupt möglich?
Würde mich freuen wenn mir jemand helfen könnte. Danke im vorraus.
P.S. So sieht der momentane Code aus.
Sub Barcode2()
Dim Var_ZelleB4, Var_Alwahlzelle As String
Sheets("TabellE1").Unprotect Password:=""
Var_ZelleB4 = Sheets("TabellE1").Range("B4").Value
Sheets("TabellE1").Select
Range("G17").Select
For i = 1 To 65000
Var_Auswahlzelle = ActiveCell.Value
If Var_Auswahlzelle > 0 Then
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Value = Var_ZelleB4
Exit For
End If
Next i
Sheets("TabellE1").Select
Range("B4").Value = ""
Range("B4").Select
Sheets("TabellE1").Protect Password:=""
End Sub