Microsoft Excel

Herbers Excel/VBA-Archiv

String verschieden lang /immer 8 von rechts lösche | Herbers Excel-Forum


Betrifft: String verschieden lang /immer 8 von rechts lösche von: Mattsatz
Geschrieben am: 15.12.2009 15:02:20

Hallo liebe exceler und vba ler

ich suche Lösung für folgendes Problem:

ich möchte einen String eingeben

Beispiel
www.spatzen.de/bilder/gross/abfischen_am_ententeich_2009/IMG_3999.jpg

daraus soll er immer die letzten 8 zeichen(3999.jpg) weglassen
und aus aus dem string 3999.jpg soll er die Zahl auslesen 3999 und als double verwenden.

ich will dann eine html bauen, wo alle bilder untereinander angezeigt werden, ohne
jedes bild mit der maus einzeln aufzurufen. das habe ich alles das fuzt auch.
sinn ist, dass der nächste lange String dann z.b.

www.spatzen.de/bilder/gross/kinderfasching_2009/BIG_4039.jpg

heisst, und ich bei verschiedener länge das gleich makro laufen lassen will.

wer kennt hier eine lösung

vielen dank für alles....

Matts

  

Betrifft: AW: String verschieden lang /immer 8 von rechts lösche von: Matthias5
Geschrieben am: 15.12.2009 15:12:25

Hallo Matts,

Sub Mattsatz()
xText = "www.spatzen.de/bilder/gross/abfischen_am_ententeich_2009/IMG_3999.jpg"
extrakt = Left(xText, Len(xText) - 8)
Zahl = CDbl(Left(Replace(xText, extrakt, ""), 4))
End Sub
Gruß,
Matthias


  

Betrifft: AW: String verschieden lang /immer 8 von rechts lösche von: Mattsatz
Geschrieben am: 15.12.2009 15:37:56

habe ich mit

len left und right gelöst....

danke


Beiträge aus den Excel-Beispielen zum Thema "String verschieden lang /immer 8 von rechts lösche"