Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlink entfernen und Zelle einfärben ?

Hyperlink entfernen und Zelle einfärben ?
17.06.2008 13:35:00
Selma
Hallo Leute,
ich habe eine Frage.
Wenn in Spalte C die Zelle die Füllfarbe 16 und ein Hyperlink hat, dann soll der Hyperlink dieser Zelle entfernt werden und auf die Zelle soll dieses Makro ausgeführt werden.
Was muss ich im Makro ändern, damit es wie oben beschrieben funktioniert?
With Selection.Font
.Name = "Lucida Sans"
.Italic = False
.Bold = True
.Size = 15
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With
Vielen Dank im Voraus !
Grüße,
Selma

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

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink entfernen und Zelle einfärben ?
17.06.2008 13:46:00
Daniel
Hi
du könntest folgendes verwenden:

Sub Makro1()
Dim h As Hyperlink
For Each h In ActiveSheet
If h.Range.Column = 3 Then
If h.Range.Interior.ColorIndex = 16 Then
h.Range.Select
h.Delete
'---hier deinen Code einfügen
End If
End If
Next
End Sub


Gruß, Daniel

AW: Hyperlink entfernen und Zelle einfärben ?
17.06.2008 14:00:24
Selma
Hallo Daniel,
hier bleibt das Makro stehen: For Each h In ActiveSheet

Sub Makro1()
Dim h As Hyperlink
For Each h In ActiveSheet
If h.Range.Column = 3 Then
If h.Range.Interior.ColorIndex = 16 Then
h.Range.Select
h.Delete
With Selection.Font
.Name = "Lucida Sans"
.Italic = False
.Bold = True
.Size = 15
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With
End If
End If
Next
End Sub


Viele Grüße,
Selma

Anzeige
AW: Hyperlink entfernen und Zelle einfärben ?
17.06.2008 14:32:00
Daniel
Hi
dann probier mal das:

For Each h In ActiveSheet.Hyperlinks


Gruß, Daniel

AW: Hyperlink entfernen und Zelle einfärben ?
18.06.2008 09:40:15
Selma
Vielen Dank, Daniel !
Viele Grüße,
Selma

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige