title image


Smiley so gehts bei mir


Option Explicit



Sub test()

Dim ws As Worksheet, tmp$

On Error Resume Next





'ws.CodeName = "c_" & dateiname

tmp = InputBox("Blattname")

Err.Clear

  If tmp <> vbNullString Then

    Set ws = Worksheets(tmp)

    If Err.Number = 0 Then

       MsgBox "Blatt gibts schon", vbExclamation, "fehler": Exit Sub

    Else

       Set ws = ActiveWorkbook.Worksheets.Add: ws.Name = tmp

    End If

    If Not ActiveWorkbook.Saved Then _

        ActiveWorkbook.Save

    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

  End If

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: