Makro mit enter auslösen
15.07.2004 10:42:58
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
Der erste Lösungsvorschlag (für den ich mich auch bedanke) war folgender:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then Call DeinMakro
End Sub
Leider funktionierte dies nicht und ich belam folgende Fehlermeldung:
"Fehler beim Kompilieren:
Sub oder Function nicht definiert."
Was hat das zu bedeuten? Wenn ich OK klicke markiert er mir direkt die erste Zeile.
Würde mich freuen wenn mir jemand weiterhelfen könnte.