Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1720to1724
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
Inhaltsverzeichnis

Bei Hyperlink Zahlen entfernen

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
Anzeige
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
Anzeige
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

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige