Søg celle der begynder med et tal ?

If IsNumeric(Left(celle, 1)) Then

Hej kabbak

Den vil ikke lige finde det tal

Range("B1").Select      " i cellen står 326skuffe: "
If IsNumeric(Left(celle, 1)) Then ActiveCell.Copy (ActiveCell.Offset(-1, -1))

Hvad gør jeg galt ?

Public Sub FindTal()
'Marker cellerne den skal søge i og kør så makroen
Dim C As Range
For Each C In Selection
If IsNumeric(Left(C, 1)) Then C.Copy C.Offset(-1, -1)
'Bemærk at du kopierer til en række op og en kolonne til venstre, så du kan ikke have data i B1, så får du fejl
Next
End Sub

Virker fint kabbak

Men jeg har en anden fejl


Range("b2", Range("b2").End(xlDown)).Select
  Dim C As Range
For Each C In Selection
If IsNumeric(Left(C, 1)) Then
    C.Copy C.Offset(1, -1)
    End If
    C.Offset(0, 0).Copy C.Offset(1, 2)      " den vil udfør denne linie også"
    Next
End Sub


Men den skal kun udføre den når der ikke er tal i cellen  ?

Kan du hjælpe ?

Husk svar for point

Thx

Jeg var lidt hurtigt ud med spørgsmål, sorry

Range("b2", Range("b2").End(xlDown)).Select
  Dim C As Range
For Each C In Selection
If IsNumeric(Left(C, 1)) Then
    C.Copy C.Offset(1, -1)
    Else
    C.Offset(0, 0).Copy C.Offset(1, 2)      " den vil udfør denne linie også"
    End If
    Next
End Sub

Så virker den

kabbak husk svar

et svar ;-))