title image


Smiley Re: Kann nicht umwandeln
hi



Sub warum_eigentlich_fragezeichen()

[b1].FormulaLocal = "=LINKS(TEIL(ZELLE(""Dateiname"";A1);FINDEN(""["";ZELLE(""Dateiname"";A1))+1;FINDEN(""]"";ZELLE(""Dateiname"";A1))-FINDEN(""["";ZELLE(""Dateiname"";A1))-1);FINDEN(""_"";TEIL(ZELLE(""Dateiname"";A1);FINDEN(""["";ZELLE(""Dateiname"";A1))+1;FINDEN(""]"";ZELLE(""Dateiname"";A1))-FINDEN(""["";ZELLE(""Dateiname"";A1))-1))-1)"

'bzw

[b2].Formula = "=Left(Mid(CELL(""Dateiname"", A1), Find(""["", CELL(""Dateiname"", A1)) + 1, Find(""]"", CELL(""Dateiname"", A1)) - Find(""["", CELL(""Dateiname"", A1)) - 1), Find(""_"", Mid(CELL(""Dateiname"", A1), Find(""["", CELL(""Dateiname"", A1)) + 1, Find(""]"", CELL(""Dateiname"", A1)) - Find(""["", CELL(""Dateiname"", A1)) - 1)) - 1)"

End Sub



p.s das kannst du nicht aufzeichnen da zuviele zeichen



aber warum eigentlich aufzeichnen ??

das könnte über Vba leichter gemacht werden
Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: