Brisanje števik in znakov pred imeni!

[Zoki]

Najprej lepo pozdravljeni!

Ukvarjam se z problemčkom, ki pa ga nekako ne morem rešit, zato Vas naprošam za pomoč.
V Excelu v stolpcu A imam vpisana razne številke, znake in potem imena. Imena v stolpcu je različno število vsaki dan. Želel bi pa si makro, ki bi mi vsa števila, znake in presledke pred začetkom imena (ko se začnejo črke) izbrisal.

Upam da ni pretežko in hvala za rešitev,
Zoki

[admin]

če vas pravilno razumem (vaše vprašanje namreč nima ne repa ne glave), potem vam mora pomagati spodnji makro:

Koda: Izberi vse

Function AliCrka(s As String) As Boolean
    AliCrka = (UCase(s) Like "[A-ZČĆŽŠĐ]")
End Function

Function PocistiOdvecneZnake(vhod As String)
  Dim i As Integer
  
  i = 1
  While ((i <= Len(vhod)) And (Not AliCrka(Mid(vhod, i, 1))))
    i = i + 1
  Wend
  
  If (i <= Len(vhod)) Then
    PocistiOdvecneZnake = Mid(vhod, i, Len(vhod))
  Else
    PocistiOdvecneZnake = ""
  End If
End Function

Sub PocistiTabelo()
  Dim celica
  For Each celica In Selection
    celica.Value = PocistiOdvecneZnake(celica.Value)
  Next
End Sub

Označite vse celice, ki jih želite "počistiti" in izvedite makro PocistiTabelo.

[Zoki]

Pozdravljeni!

Očitne ste me zelo dobro razumeli, saj makro deluje tako,kot sem si želel!

Hvala
L.P.: Zoki