Thema Datum  Von Nutzer Rating
Antwort
30.06.2022 09:29:45 Janine
NotSolved
30.06.2022 09:49:02 Gast75033
NotSolved
30.06.2022 10:09:15 Janine
NotSolved
30.06.2022 10:09:32 Gast17247
NotSolved
30.06.2022 10:37:56 Janine
NotSolved
30.06.2022 10:42:57 Gast17247
NotSolved
30.06.2022 10:49:27 Janine
NotSolved
30.06.2022 10:57:54 Janine
NotSolved
30.06.2022 11:19:01 Gast17247
NotSolved
30.06.2022 11:31:07 Janine
NotSolved
30.06.2022 11:37:42 Gast17247
NotSolved
Blau Beispiel (mehrere Zellen)
30.06.2022 11:26:56 Gast17247
*****
Solved

Ansicht des Beitrags:
Von:
Gast17247
Datum:
30.06.2022 11:26:56
Views:
381
Rating: Antwort:
 Nein
Thema:
Beispiel (mehrere Zellen)

Und wie kann ich das Makro ergänzen, dass die ganze Tabelle automatisch durchläuft ohne es immer pro einzelne Zeile neu starten zu lassen? 

 

Markiere mehrere Zellen und lass folgendes ablaufen:

Sub MehrereZellenVerlinken()

    Dim rngZelle        As Excel.Range
    Dim rngFundzelle    As Excel.Range
    Dim wksSuchbereich  As Excel.Worksheet
     
        
        Set wksSuchbereich = ThisWorkbook.Worksheets("Tabelle2")
        
        
            For Each rngZelle In Selection
             
                Set rngFundzelle = wksSuchbereich.Cells.Find(What:=rngZelle.Value)
                 
                 
                    If Not rngFundzelle Is Nothing Then
                         
                        Call ThisWorkbook.Worksheets(Selection.Parent.Name).Hyperlinks.Add( _
                                        Anchor:=rngZelle, _
                                        Address:="", _
                                        SubAddress:=rngFundzelle.Parent.Name & "!" & rngFundzelle.Address(0, 0))
                    End If
                
                Set rngZelle = Nothing
            
            Next rngZelle

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.06.2022 09:29:45 Janine
NotSolved
30.06.2022 09:49:02 Gast75033
NotSolved
30.06.2022 10:09:15 Janine
NotSolved
30.06.2022 10:09:32 Gast17247
NotSolved
30.06.2022 10:37:56 Janine
NotSolved
30.06.2022 10:42:57 Gast17247
NotSolved
30.06.2022 10:49:27 Janine
NotSolved
30.06.2022 10:57:54 Janine
NotSolved
30.06.2022 11:19:01 Gast17247
NotSolved
30.06.2022 11:31:07 Janine
NotSolved
30.06.2022 11:37:42 Gast17247
NotSolved
Blau Beispiel (mehrere Zellen)
30.06.2022 11:26:56 Gast17247
*****
Solved