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

hyperlinks auslesen

Forumthread: hyperlinks auslesen

hyperlinks auslesen
17.06.2004 10:52:13
andreas
hallo zusammen,
ich habe eine Liste in EXCEL mit vielen Links auf Spalte A
nun möchte ich in B auslesen wie die Url lautet.
Jmd. ne Idee ?
Bsp.auszug:
 


  
 AB
1das steht da das soll in Spalte B
2Officetipps.net von Horst Schultewww.officetips.net
3Schwimmer's Homepage 
4Trainingsunterlagen für IT-Trainer 
5Rendar's Excel-Tipps 


 
 gruß
andreas e
                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        




    
    
    
    

    

        

                        
            4
            
Beiträge zum Forumthread

            
Beiträge zu diesem Forumthread

        

    


    
    

    

                    

                
                Betreff
            

            
Datum

            
Anwender

            

    
    


    
Anzeige

    

        
                    
            
                
    



    
    



    
            
                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: hyperlinks auslesen
                                            

                    

                                                    17.06.2004 11:16:45
                                            

                                

                                            ANdreas
                                    

            

        

        

                            
Hallo Andreas,

also ich würde das mit VBA so lösen:

Private Sub AuslesenHyperlinks()
Dim hyp As Hyperlink
For Each hyp In ActiveSheet.Hyperlinks
With hyp
If Not Intersect(.Range, Columns(1)) Is Nothing Then
If .Address = "" Then
.Range.Offset(0, 1).Value = .SubAddress 'andere Zelle
Else
.Range.Offset(0, 1).Value = .Address 'Mail, Link...
End If
'optional auch gleich noch Link setzen
.Range.Offset(0, 1).Hyperlinks.Add .Range.Offset(0, 1), _
.Range.Offset(0, 1).Value
End If
End With
Next hyp
End Sub


Hoffe das hilft weiter,

Andreas

Nibbles für Excel

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            super !!
                                            

                                

                                            andreas
                                    

            

        

        

                            
hat bestens geklappt !

Vielen dank andy -

--- Gibts denn  schon was neues nach nibbles ?----

gruß

andreas e

                    

            



                    
                                

    
    

        

            
            

                                    

                                                    
                            AW: super !!
                                            

                    

                                                    17.06.2004 11:44:29
                                            

                                

                                            ANdreas
                                    

            

        

        

                            
Hallo Andreas,

mir fiel grad noch auf, dass es noch effizienter geht:



Private Sub AuslesenHyperlinks()
Dim hyp As Hyperlink
'Columns(2).Hyperlinks.Delete 'optional
For Each hyp In ActiveSheet.Columns(1).Hyperlinks
With hyp
If .Address = "" Then
.Range.Offset(0, 1).Value = .SubAddress 'andere Zelle
Else
.Range.Offset(0, 1).Value = .Address 'Mail, Link...
End If
'optional auch gleich noch Link setzen
.Range.Offset(0, 1).Hyperlinks.Add .Range.Offset(0, 1), _
.Range.Offset(0, 1).Value
End With
Next hyp
End Sub



Zur anderen Frage, ja Ideen hab ich schon 2-3, auch eine testweise erfolgreich angefangen - aber die liebe Zeit für eine ordentliche Fertigstellung... :-)

Gruß

Andreas

                    

                                    


    
Anzeige

    

        
                    
            
                
    



                        



                    
                                

    
    

        

            
            

                                    

                                                    
                            danke - oT
                                            

                                

                                            andreas
                                    

            

        

        

                            
                    

            



                
    ;

    
    
    
                    


    
    
    

    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    

    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                
                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                

                
                
                
                


    
Anzeige