Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Word 2007- Commandbutton verschwinden lassen
Autor: mm1010z
Datum: 06.04.11 10:55
Hallo zusammen, ich habe ein Button, man kann Emailadresse eingeben, dieses Email wird in einem andrem Code geschrieben. Danach sollte der Button verschwinden. Irgendwie funktioniert es noch nicht bei mir. Hier ist mein bisherige Code: Option Explicit Private Sub CommandButton1_Click() Dim strEmailAdr As String strEmailAdr = InputBox("Emailadresse des Empfängers eingeben:", "Mailadresse") If InStr(1, strEmailAdr, "@", vbBinaryCompare) = 0 Or InStr(1, strEmailAdr, ".", vbBinaryCompare) = 0 Then MsgBox """" & strEmailAdr & """ ist keine Emailadresse!" & Chr(10) _ & "Geben Sie eine gültige Emailadresse ein!", vbCritical, "Abbruch..." Exit Sub End If 'Wenn auf diesem CodeModule vor der (jetzigen) Zeile 33: strEmailAdr = "" Code eingefügt wird muß in der folgenden 'Zeile die Zeilennummer 33 bei .ReplaceLine = 33 angepaßt werden! ThisDocument.VBProject.VBComponents("ThisDocument").CodeModule.ReplaceLine 37, "strEmailAdr = """ & strEmailAdr & """" ThisDocument.VBProject.VBComponents("ThisDocument").CodeModule.DeleteLines 2, 23 With ThisDocument.CommandButton1 .Width = 0 .Height = 0 .ForeColor = &HFFFFFF .BackColor = &HFFFFFF .Enabled = False End With ThisDocument.Protect wdAllowOnlyReading, True, strEmailAdr ThisDocument.Save End Sub Kann jmd mir helfen!!!

Word 2007- Commandbutton verschwinden lassen

1.069

mm1010z

06.04.11 10:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen