kode til at opdele hvis og hvis ikke vb

Marker cellerne i kolonne G og kør stest

Sub stest()
Dim s As String
Dim x As Long
Dim gade As String
Dim y As Variant
Dim HusnrOgBogstav As String
Dim Husnr
Dim Bogstav
Dim rest
Dim rngCell As Range
  For Each rngCell In Selection
      s = rngCell.Value
      y = Split(s, ",")
      x = INSTRNUM(y(0))
      gade = Mid(s, 1, x - 1)
      HusnrOgBogstav = Mid(y(0), x, 99)
      Husnr = Val(HusnrOgBogstav)
      Bogstav = Trim(Replace(HusnrOgBogstav, Husnr, ""))
      rest = IIf(UBound(y) = 0, "", y(UBound(y)))

      rngCell.Offset(0, 1) = gade
      rngCell.Offset(0, 2) = Husnr
      rngCell.Offset(0, 3) = Bogstav
      rngCell.Offset(0, 4) = rest

  Next
End Sub

Function INSTRNUM(st As Variant) As Long
Dim i As Long, testchar As String
  Do
      i = i + 1
      testchar = Mid(st, i, 1)
      If testchar Like "[1-9]" Then
        INSTRNUM = i
        Exit Do
      End If
  Loop While i <= Len(st)
End Function

PS den anden kode jeg har lagt kan gøre det samme

virker... lækkert mange gange tak

smid nogle svar

ok :-)

PS dette svar dækker og de andre spm. så jeg ønsker kun point for dette...
resten tager du bare selv

det er bare i orden... takker