Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox nur bei Hyperlink Font.ColorIndex = 17 ?

MsgBox nur bei Hyperlink Font.ColorIndex = 17 ?
08.06.2007 14:46:00
Selma
Hallo Leute,
wie kann ich beim Klick nur auf Hyperlink (bezogen auf gesamte Datei - alle AB) der mit der Font.ColorIndex = 17 dargestellt ist eine MsgBox "Datei ist ungültig !!!" - OK - anzeigen?
Bei allen anderen Hyperlink Font.ColorIndex soll der MsgBox nicht angezeigt werden.
Besten Dank vorab...
Liebe Grüße
Selma

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

Betreff
Datum
Anwender
Anzeige
AW: MsgBox nur bei Hyperlink Font.ColorIndex = 17
08.06.2007 20:39:00
Beverly
Hi Selma,
vielleicht hilft dir das weiter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Hyperlinks.Count > 0 And Target.Font.ColorIndex = 17 Then MsgBox "Datei ungültig"
End Sub


________________________________________

AW: MsgBox nur bei Hyperlink Font.ColorIndex = 17
08.06.2007 21:45:00
Selma
Hallo Karin,
MsgBox wird angezeigt. Leider habe ich vergessen zu sagen, dass der Hyperlink erst nach dem MsgBox-Klick auf OK geöffnet werden soll.
Ist dies machbar?
Vielen Dank und liebe Grüße
Selma

Anzeige
AW: MsgBox nur bei Hyperlink Font.ColorIndex = 17
09.06.2007 09:20:49
Beverly
Hi Selma,
ein angeklicktes Hyperlink lässt sich nicht unterbrechen, auch wenn die Adresse nicht korrekt ist. Da sich jedoch in deinem Fall die Schriftfarbe unterscheidet, kann man dies ausnutzen

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
On Error Resume Next
If ActiveCell.Font.ColorIndex = 17 Then MsgBox "Datei ungültig"
End Sub


Bis später,
Karin

AW: MsgBox nur bei Hyperlink Font.ColorIndex = 17
09.06.2007 11:17:00
Selma
Danke Karin
LG
Selma

119 Forumthreads zu ähnlichen Themen

Indexierung von Steuerelementen in VBA
Steuerelementen

Hallo,
aus VB kenne ich die Vorgehensweise, dass man Steuerelemente (z.B. Labels) Indexieren kann. Man kann sie dan komfortabel über eine Schleife ansteuern.
Ein simples Beispiel zum verdeutlichen:
For i=1 to 10
label(i).text=i
next i
Die zehn Labels haben nun eine Besc...
01.09.2008 11:30:41
Thread-ID: 1006376
3 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
Anzeige
So. & Feiertage Font.ColorIndex = 5
Heinz

Hallo Leute
Habe einen Jahreskalender.
Leider komme ich bei Case "So" & Case "R" nicht weiter.
Es sollte alles das mit Zelle.Interior.ColorIndex = 36 eingefärbt wird, auch die Schrift mit Font.ColorIndex = 5 eingefärbt werden.
Könnte mir bitte jemand weiterhelfen ? Habe die...
22.06.2009 19:55:56
Thread-ID: 1083584
3 Beiträge
Aerzteliste:VBA, bedingte Formatierung, mehr als 3
Jonas

Hallo zusammen
Ich hab etwas Schwierigkeiten mit dem VBA, ich will nämlich in der Ärzteliste: https://www.herber.de/bbs/user/64419.xls , die ich letzte Woche schon gepostet habe, die Ärzte in der rechten Tabelle mit den Monaten farblich hervorheben, also das heisst in etwa: Wenn irgendein F...
14.09.2009 18:57:12
Thread-ID: 1102727
3 Beiträge
Colorindex 15 ungleich Colorindex 15
Karsten

Hallo ...
wenn ich in Spalte A bestimmte Zellen mit Colorindex = 15 einfärbe funktioniert u.st. Code:
For Each Bereich In Bereich
If Bereich.Column >= Selection(1).Column Then
If Not Bereich.Column = Selection(1).Column Or Bereich.Row >= Selection(1).Row Then
varRow =...
30.11.2009 22:13:11
Thread-ID: 1121104
8 Beiträge
Bei ColorIndex = 34 - Formel einfügen
Heinz

Hallo im Forum
Ich habe ein Makro,das mir nach jeden Freitag im Monat eine Zeile mit ColorIndex = 34 einfügt.
Nun möchte ich, das mir nur auf den Zeilen die mit ColorIndex = 34 eingefügt wurden, eine Formel miteinfügt.
Habe zum besseren Verständnis eine Beispieldatei anghhängt.
...
29.12.2009 21:08:46
Thread-ID: 1126283
8 Beiträge
Was hat Interior.ColorIndex mit einem Rand zu tun?
Peter

Hallo
Bei der Bearbeitung eines Ranges verliert ein umrandeter Bereich innerhalb dieses Ranges bei nachfolgender Codezeile den unteren Rand.
Das verstehe ich nicht. Wer hilft mir auf die Sprünge? Ich will nur alle Farben (Hintergrund und Schrift) eliminieren.
Gruss, Peter
With A...
05.01.2010 14:18:02
Thread-ID: 1127323
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
19
1
3
3
2
2
7
7
5
2
17
3
3
1
8
6
13
13
16
17
9
3
16
2