Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Webadresse+datei endung

Forumthread: Webadresse+datei endung

Webadresse+datei endung
07.03.2006 08:12:24
Kevin
Hallo
Ich hoffe hier kann mir jemand helfen
und zwar
bräuchte eine lösung damit ich bei einer Artikelnummer
z.B. 123456 im Excel ein Http://diewebseite.de/bilder/ und eine Dateiendung
wie *.jpg setzen kann
also sollte es so aussehn http://diewebseite.de/bilder/123456.jpg
sobald ich in der tabelle die Artikelnummer eingebe
Schon Mal Vielen Dank im Vorraus
mfg
Kevin
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Webadresse+datei endung
07.03.2006 09:01:27
IngGi
Hallo Kevin,
wenn es nicht in derselben Zelle stehen muss, in der die Eingabe gemacht wird:
 
 AB
1123456http://diewebseite.de/bilder/123456.jpg
Formeln der Tabelle
B1 : =WENN(A1="";"";"http://diewebseite.de/bilder/" & A1 & ".jpg")
 

Gruß Ingolf
Anzeige
AW: Webadresse+datei endung
07.03.2006 09:23:33
Kevin
Super Danke Hatt geklappt
vielen Dank
AW: Webadresse+datei endung
07.03.2006 09:36:41
UweD
Hallo
wenn es in der Eingabezelle eingetragen werden soll, dann so
- Rechtsklick auf den Tabellenblattreiter unten
- Code anzeigen
- ins neue Fenster den Code reinkopieren


      
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Dim htt$, ext$
        ext = ".jpg"
        htt = "http://diewebseite.de/bilder/"
        Application.EnableEvents = False
        Target = htt & Target.Text & ext
        Hyperlinks.Add Anchor:=Target, Address:=Target
    End If
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description
    Application.EnableEvents = True
End Sub 


ich habe im Beispiel die Zellen auf A1 bis A10 begrenzt.
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige