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

Buchstabenfarbe bei VBA Makro Code u. mit Passwort

Buchstabenfarbe bei VBA Makro Code u. mit Passwort
16.08.2004 13:37:08
Jasmin
Hi ihr Exceljunkies,
habe folgendes Problem undzwar habe ich eine VBA Code mit dem ich einen Buchstaben oder Wort in die Aktive Zelle anklicken kann.
Jetzt möchte ich gerne das wenn ich den Buchstaben einfüge das dieser in Blau gefärbt und in Fett Schrift wird.

Sub Genehmigt()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Locked = False Then Zelle = "Genehmigt"
Next Zelle
End Sub

Dieser Code soll aber nicht von allen ausgeführt werden nur von bestimmten benutzern ist das möglich das man bei Aktivierung des VBA Codes ein Passwort verlangt um dieses Auszuführen und das sich eben das genehmigt auf Blau und Fett ändert. Hoffe habe meine Problem gut genug erklärt.
Liebe Grüße und Dank im Vorraus
Eure Jasmin

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

Betreff
Datum
Anwender
Anzeige
AW: Buchstabenfarbe bei VBA Makro Code u. mit Passwort
16.08.2004 13:48:08
Bertram
Hi Jasmin, weiß nicht ob ich dich richtig verstanden habe. Meinst du so:
Wenn Passwort = xxx, dann...


Sub Genehmigt()
Dim Zelle As Range
Dim Passwort As String
    
Passwort = InputBox("Passwort")
If Passwort <> "xxx" Then Exit Sub
For Each Zelle In Selection
    If Zelle.Locked = False Then Zelle.Value = "Genehmigt"
    Zelle.Font.Bold = True
    Zelle.Font.ColorIndex = 5
    Next Zelle
End Sub


Gruß
Bertram
Anzeige
Bertram klapp supi nur ein kleines Problem noch
Jasmin
Hi Bertram,
klappt super damit ,habe nur ein Problem " klitzekleines " " sorry "
habe vergessen zu sagen das ein Blattschutz auf dem Blatt ist und dann erscheint eine Fehlermeldung. Sorry hatte ich vergessen zu erwähnen.
Liebe Grüß Deine Jasmin
AW: Bertram klapp supi nur ein kleines Problem noch
16.08.2004 14:21:13
Bertram
Hallo Jasmin,
bei mir war auch noch ein kleiner Fehler drin:-)


Sub Genehmigt()
Dim Zelle As Range
Dim Passwort As String
ActiveSheet.Unprotect
Passwort = InputBox("Passwort")
If Passwort <> "xxx" Then Exit Sub
For Each Zelle In Selection
    If Zelle.Locked = False Then
        Zelle.Value = "Genehmigt"
        Zelle.Font.Bold = True
        Zelle.Font.ColorIndex = 5
    End If
Next Zelle
ActiveSheet.Protect
End Sub


Gruß
Bertram
Anzeige
Danke so klappt es. oT.
Jasmin
Vielen Vielen Dank ;-)
Liebe Grüße Jasmin

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige