Bei Hyperlink Zahlen entfernen

Forumthread: Bei Hyperlink Zahlen entfernen

16.11.2019 14:06:43

Heinz

Schönen Samstag im Forum,
Ich kopiere mir von einer Homepage Bundesligaspiele in Excel.
ZB.


https://www.weltfussball.at/spielbericht/bundesliga-2017-2018-lask-austria-wien/

Ich kopiere die Spieler-namen mit dem Hyperlink in B19:B37 u. F19:F37
Wenn ein Spieler eine gelbe o.rote Karte bekommen hat, steht die Spielminute im Spieler-namen.
Die angegebenen Minuten lösche ich bis jetzt immer manuell.
Könnte man das auch per VBA auch lösen?

Maximilian Ullmann  90'

Liebe grüsse, Heinz

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bei Hyperlink Zahlen entfernen

16.11.2019 15:01:20

Nepumuk
AW: Bei Hyperlink Zahlen entfernen

16.11.2019 17:40:59

Heinz
AW: Bei Hyperlink Zahlen entfernen

16.11.2019 18:14:00

Nepumuk
AW: Bei Hyperlink Zahlen entfernen

16.11.2019 21:38:44

Heinz

AW: Bei Hyperlink Zahlen entfernen

16.11.2019 15:01:20

Nepumuk

Hallo Heinz,
kannst du mal eine Tabelle mit den kopierten Spielernamen hochladen, damit ich sehe wie du einfügst?
Sollen rot / gelb auch gelöscht werden?
Gruß
Nepumuk

AW: Bei Hyperlink Zahlen entfernen

16.11.2019 17:40:59

Heinz

Hallo Nepomuk,
Anbei eine Datei
https://www.herber.de/bbs/user/133255.xlsx
Sollen rot / gelb auch gelöscht werden?
Wenn es möglich wäre.
Danke
SG, Heinz

AW: Bei Hyperlink Zahlen entfernen

16.11.2019 18:14:00

Nepumuk

Hallo Heinz,
teste mal:

Option Explicit

Public Sub DeleteCards()
    Dim objHyperlink As Hyperlink
    Dim objShape As Shape
    For Each objHyperlink In ActiveSheet.Hyperlinks
        With objHyperlink
            If .Type = msoHyperlinkRange Then
                If Not Intersect(.Range, Range("B19:B39", "F19:F39")) Is Nothing Then
                    If Right$(.TextToDisplay, 1) = "'" Then .TextToDisplay = _
                        Left$(.TextToDisplay, InStrRev(.TextToDisplay, Chr$(160)) - 2)
                End If
            End If
        End With
    Next
    For Each objShape In ActiveSheet.Shapes
        With objShape
            If Not Intersect(.TopLeftCell, Range("B19:B39", "F19:F39")) Is Nothing Then Call .Delete
        End With
    Next
End Sub

Gruß
Nepumuk

AW: Bei Hyperlink Zahlen entfernen

16.11.2019 21:38:44

Heinz

Hallo Nepomuk,
Das ist Grandios, und gleich beim ersten mal.
Recht herzlichen DANK !!!
Schöne Grüsse, Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: Bei Hyperlink Zahlen entfernen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread