Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem Excel

Problem Excel
16.01.2005 12:40:40
Peter
Hallo
habe folgendes Problem:
möchte aus einer sechstelligen zahl einen Link generieren...
Beispiel:
Zahl in Spalte J= 888560
daraus soll erstmal 888-560 werden
dann ein punkt JPG angefügt werden
dann ein http://www.testseite.de/ vorangestellt werden
Der Link sollte dann so aussehen: http://www.testseite.de/888-560.jpg
Kann man sowas mit einem Makro machen ?
Die Liste ist ca. 5000 Zeilen lang ...
Gruß Peter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem Excel
16.01.2005 13:01:03
chris
Einfach in den VBA-Edito kopieren !
Sub neu() For x = 1 To 5000 wert1 = Left(Cells(x, 10), 3) wert2 = Right(Cells(x, 10), 3) If wert1 = "" Then GoTo nexte: Cells(x, 10) = <a href=""http://www.testseite.de/"">"http://www.testseite.de/"</a> & wert1 & "-" & wert2 & ".jpg" nexte: Next End Sub
AW: Problem Excel
Ramses
Hallo
Ist das nun ein Darstellungsfehler im Browser, oder läuft das bei dir tatsächlich so wie du hier geschrieben hast ?
Gruss Rainer
AW: Problem Excel
16.01.2005 13:44:46
chris
Mist ,,, das was ich hier renkopiere geht.Nur irgendiwe wandelt der Webbrowser das ganze um in HTML :(((
Hmm wie füge ich das ganze jetzt richtig ein ..? Nochn versuch
Sub neu() For x = 1 To 5000 wert1 = Left(Cells(x, 10), 3) wert2 = Right(Cells(x, 10), 3) If wert1 = "" Then GoTo nexte: cb = <a href=""http://www.testseite.de/"">"http://www.testseite.de/"</a> & wert1 & "-" & wert2 & ".jpg" Cells(x, 10) = cb nexte: Next End Sub
sehs in der vorschau klappt auch nicht :(
Wandelt meinen Code immer in HTML um
Anzeige
AW: Problem Excel
Ramses
Hallo


Option Explicit
Sub neu()
Dim x As Integer
Dim lStr As String, rStr As String
For x = 1 To 5000
    If Cells(x, 10) <> "" Then
        lStr = Left(Cells(x, 10), 3)
        rStr = Right(Cells(x, 10), 3)
        Cells(x, 10).FormulaR1C1 = "=Hyperlink(""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"",""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"")"
    End If
Next x
End Sub


Gruss Rainer
Anzeige
AW: Problem Excel
chris
AW: Problem Excel
Ramses
Hallo
Sorry,... ich wollte dir nicht auf die Füsse treten.
Aber wo ist das Problem:
 
  
 AB
1898989 
2234556 
3  
 
 Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

und nachher


 
  
 AB
1http://www.testseite.de/898-989.jpg 
2http://www.testseite.de/234-556.jpg 
3  
4  
Formeln der Tabelle
A1 : =HYPERLINK("http://www.testseite.de/898-989.jpg";"http://www.testseite.de/898-989.jpg")

A2 : =HYPERLINK("http://www.testseite.de/234-556.jpg";"http://www.testseite.de/234-556.jpg")


 
 Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

und hier noch der code mit den angespasten Variablen :-)






Option Explicit

Sub neu()

Dim x As Integer

Dim lStr As String, rStr As String

For x = 1 To 5000

    If Cells(x, 1) <> "" Then

        lStr = Left(Cells(x, 1), 3)

        rStr = Right(Cells(x, 1), 3)

        Cells(x, 1).FormulaR1C1 = "=Hyperlink(""http://www.testseite.de/" & lStr & "-" & rStr & ".jpg"",""http://www.testseite.de/" & lStr & "-" & rStr & ".jpg"")"

    End If

Next x

End Sub






Gruss Rainer


		
                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Problem Excel
                                            

                    

                                                    16.01.2005 13:56:45
                                            

                                

                                            chris
                                    

            

        

        

                            
So gehts !






      

Sub neu()

Dim x As Integer

Dim wert1 As String, wert2 As String

For x = 1 To 5000

    If Cells(x, 10) <> "" Then

        wert1 = Left(Cells(x, 10), 3)

        wert2 = Right(Cells(x, 10), 3)

        Cells(x, 10).FormulaR1C1 = "=Hyperlink(""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"",""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"")"

    End If

Next x

End Sub

 







		
                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Problem Excel
                                            

                                

                                            Peter
                                    

            

        

        

                            
vielen vielen Dank ...

klappt wunderbar ....

wusste gar nicht das sowas mit Excel geht.

Gruß Peter

                    


            


    
    


            
    
    
    
                    


    
    
            


    

        
        Links zu Excel-Dialogen
    

    

        

                            
                
                    
                    WebBrowser
                
                    

    




    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige