title image


Smiley hier beide antworten per VBA
Sub med()    Titel = 2 'in Spalte2=B    NName = 3 'in Spalte3=C    For Each zelle In Selection        'Anz = Len(Zelle) - Len(Application.Substitute(Zelle, " ", ""))        Kompl = zelle        Do Until InStr(Kompl, " ") = 0            Neutitel = Neutitel & Left(Kompl, InStr(Kompl, " "))            NeuNName = Mid(Kompl, InStr(Kompl, " ") + 1)            Kompl = NeuNName        Loop        Cells(zelle.Row, Titel).Value = Neutitel        Cells(zelle.Row, NName).Value = NeuNName    NextEnd SubSub formel()    For Each zelle In Selection        If zelle "" And zelle.HasFormula = False Then            zelle.Formula = "=" & zelle        End If    NextEnd Sub(Code eingefügt mit Code2HTML von Uwe Demmer)GrüßeUweGlandorf 2000 - Das Excel-TreffenFragen zu Excel, Access oder Word?EWAF-FAQ-Seiten und www.joerglorenz.de durchsuchen:

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: