Fjerne tekst men bevare tal og formler

prøv noget ala



Ej testet

Jan

Hej Jan

Jeg får fejl ved "Left" i Left(Target.text)="=" Then Exit For

Compile error: Argument not optional

prøv Target.formula istedet

Altså Left(Target.formula)="="

Får desværre samme fejl.

If Left(Target.Formula, 1) = "=" Then Exit For

Giver ikke fejl, så det må være rigtigt nok.
Til gengæld kommer der fejl ved denne:

sString = sString & Mid(Target.Value.lCount, 1)

Run-time error '424': Object required

sString = sString & Mid(Target.Value,lCount, 1)

Target.Value,lCount, 1 det skal være "Target punktum Value koma lCount koma 1"

Tusind tak Jan, hvis C2:C24 kun må være på max 100 og - (minus/negativ) tal ikke tilladt, hvad kan man så gøre?

ind sæt mellem 2. og 3. sidste linie

If target.value<0 or target.value>100 then
      Msgbox "Du har tastet et tal mindre end 0 eller større end 100, Tast noget andet"
      Target.value=""
end if

Kan man få den til at skrive 100, hvis man har skrevet 100 eller derover i stedet for en msgbox?

If target.value<0  then
      Msgbox "Du har tastet et tal mindre end 0. Tast noget andet!!"
      Target.value=""
end if
if target.value>100 then target.value=100

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim lCount As Long, sString As String
    Application.EnableEvents = False
    For Each cell In Target
    On Error GoTo MyEnd
        If Not Application.Intersect(cell, Range("A1:D5")) Is Nothing Then
        If Left(Target.Formula, 1) = "=" Then Exit For
          For lCount = 1 To Len(Target)
                  If IsNumeric(Mid(Target.Value, lCount, 1)) Then sString = sString & Mid(Target.Value, lCount, 1)
          Next
          Target.Value = sString
          If Not IsNumeric(cell.Value) Then
              cell.Value = vbNullString
          End If
        End If
    Next cell
   
    If Not Application.Intersect(Target, Range("C2:C25")) Is Nothing Then
        If Target.Value > 100 Then Target.Value = 100
    End If
   
    Application.EnableEvents = True
On Error GoTo 0
MyEnd:
End Sub


Blev enig med mig selv, det kun skal være over 100.
Desuden, hvis cellen er formateret til procent - så virker det slet ikke. Kan man trylle her? Det er i min C række som er procent.
Er det ellers rigtigt, det som jeg forsøger på?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim lCount As Long, sString As String
    Application.EnableEvents = False
       
    If Not Application.Intersect(Target, Range("C2:C25")) Is Nothing Then
        If Target.Value > 100 Then Target.Value = 100
        goto MyEnd
    End If
   
    For Each cell In Target
    On Error GoTo MyEnd
        If Not Application.Intersect(cell, Range("A1:D5")) Is Nothing Then
        If Left(Target.Formula, 1) = "=" Then Exit For
          For lCount = 1 To Len(Target)
                  If IsNumeric(Mid(Target.Value, lCount, 1)) Then sString = sString & Mid(Target.Value, lCount, 1)
          Next
          Target.Value = sString
          If Not IsNumeric(cell.Value) Then
              cell.Value = vbNullString
          End If
        End If
    Next cell

    Application.EnableEvents = True
On Error GoTo 0
MyEnd:
End Sub

prøv denne jeg har flyttet testen af C? så man kan ryge til slut før anden test

Det er ligesom om, at jeg skal lukke excel ned hver gang der sker en fejl - før VBA koden virker igen. Kan det være rigtigt, eller er der noget alternativt så det virker?

Lige nu, hvis cellen er formateret til procent, så virker det ikke. Kan man gøre, så koden selv tilføjer % efter tallet i stedet for formatering til procent? Ellers så virker rimeligt, det eneste er bare, hvis man sætter - (minus) foran tallet, så skriver den stadig tallet. Hvor i det andet VBA kode, der fjernede den bare - (minus) og skrev det tal.

Endelig løsning



Jan

Takker for hjælpen Jan, endnu engang er du dagens mand i skysovs :o).