Makro bringt Excel Tabelle zum Dauermarsch
16.07.2004 10:38:28
Rolker
ich habe unten stehendes makro in eine Tabelle eingebaut und es funktioniert soweit auch alles. Wenn ich aber in Zelle B4 einen Wert eingebe und enter(oder irgend eine Taste)drücke wird der Wert zwar übernommen aber man könnte meinen das sich Excel Hundertmal oder mehr durchzählt. Ist das normal oder kann man das irgendwie abstellen?
Gruss
Rolker
Sub Barcode2()
Dim Var_ZelleB4, Var_Auswahlzelle As Variant, i As Long
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
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then Barcode2
End Sub