Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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

    

        
                    
            
                
    



                

                
                
                

                    

        
Entdecke mehr

    

                    
            

                

                    

                        

                            
                            Finde genau, was du suchst
                        

                        
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten
                            zu finden

                        
                            
                            Suche nach den besten Antworten
                        
                    

                

            

                            
            

                

                    

                        

                            
                            Unsere beliebtesten Threads
                        

                        
Entdecke unsere meistgeklickten Beiträge in der Google Suche

                        
                            
                            Top 100 Threads jetzt ansehen
                        
                    

                

            

                
    



                

                

                


    
Anzeige