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:
531
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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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