Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
                    


            


    
    



    
    

    
    
    

    

        

                        
            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)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige