indtastet til variabel

Øh ikke for at være nysgerrig men hvor skal funktionen stå?

Prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        kolb = Target.Value
    End If
End Sub

Skal ligge i arkets kodemodul, og husk at det kun er den seneste værdi der tastes i B-kolonnen, der ligger i variablen.

Perfekt... Det var lige det jeg ønskede...

Blæser du lige et svar mod Øst??

Jo da :-)