title image


Smiley ne ... das war es nicht
Hallo

mein vorgehen:



eine offene excelmappe dort in der symbolleiste wirt ein makro gestartet das ein textfeld enthält.

in diesem textfeld schreibe ich einen namen.

auf buttondruck soll nun ein tabellenblatt mit dem namen und dem code eingefügt werden.

der bei einem doppelclick ein formularstartet.







Dim ws As Worksheet

Set ws = ActiveWorkbook.Worksheets.Add



ws.Name = dateiname

Application.ScreenUpdating = False



With ActiveWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule

.InsertLines 2, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)"

.InsertLines 3, "eingabemaske.Show"

.InsertLines 4, "End Sub"

End With





was mache ich falch oder fehlt mir ein verweis oder :-(

danke für alle hinweise

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: