Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Kompilieren
15.12.2012 15:00:53 Amras Tiwele
NotSolved
17.12.2012 09:46:12 schokobons
NotSolved
17.12.2012 11:11:43 Lutz
NotSolved

Ansicht des Beitrags:
Von:
Amras Tiwele		 Datum:
15.12.2012 15:00:53		 Views:
1630		 Rating:
     
Antwort:
  Ja
Thema:
Fehler beim Kompilieren

 

Hallo, ich wollte eine Userform erstellen 
wenn bei checkbox1 ein haken ist, soll die textdatei "hallo" bei der Textmarke "a" ( Die ich davor bestimm wo sie sitzt ) eingefügt werden. 
Gleichzeitig soll Textbox1 & Check2 gesperrt werden & danach sich dann Userform 2 öffnen. 

Oder ich gebe einen Text in Textbox 1 ein und durch anklicken von Check2 wird dieser Text dann auch bei der Textmarke "a" eingefügt. und danach ebenfalls userform2 geöffnet 

 

Private Sub CheckBox1_Click() 
If CheckBox1.Value = True Then 
Check2.Locked 
TextBox1.Locked 
Selection.InsertBreak Type:=wdPageBreak  
With ActiveDocument.Bookmarks        
.Add Range:=Selection.Range, Name:="a" 
 .DefaultSorting = wdSortByName 
 .ShowHidden = True  
End With  
Selection.GoTo What:=wdGoToBookmark, Name:="a" 
 Selection.InsertFile FileName:="hallo.docx", Range:="", ConfirmConversions _  
:=False, Link:=False, Attachment:=False  
Userform2.Show 
End If        
End Sub 

Private Sub Check2_Click() 
Check2.Enabled = True 
Check2.Locked = False 
If Check2.Value = True Then 
Selection.Copy What:=TextBox1.Text 
Selection.GoTo What:=wdGoToBookmark, Name:="a" 
Selection.Paste 
Userform2.Show 
End If 
End Sub 

Private Sub TextBox1_Change() 
TextBox1.Enabled = True 
TextBox1.Locked = False 

End Sub

Wo ist hier mein Fehler bzw. habt ihr Verbesserungsvorschläge ?

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Kompilieren
15.12.2012 15:00:53 Amras Tiwele
NotSolved
17.12.2012 09:46:12 schokobons
NotSolved
17.12.2012 11:11:43 Lutz
NotSolved