Code in Tbl.-Blatt- wenn es erstellt wird
18.10.2016 21:38:07
Andi
Guten Abend,
mein Problem liegt darin, das ich folgendes als Objekt in Tabellenblätter einfügen möchte. Die Namen sind "Tabelle1" und Tabelle "Bearbeiten".
Diese werden aber erst später in der Mappe erzeugt.
Sie existieren nicht vorher.
Code für das Tabellenblatt:
Option Explicit
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
If ActiveSheet.Name = "Bearbeiten" Then
If Target.Column = 3 Then
Cancel = True
'TB_Wert = Range("B" & Target.Row).Text
UserForm1.Show 'Userform1 mit Doppelklick
End If
Else
If Target.Column = 4 Then
Cancel = True
'TB_Wert = Range("B" & Target.Row).Text
UserForm2.Show 'Userform2 mit Doppelklick
End If
End If
End Sub
Code für die Erstellung des Tabellenblatts 1 und Bearbeiten:
Sub neues_Tbl_Bearbeiten() 'Erstellt neues tabellenblatt Bearbeiten
Dim mySheetName As String, mySheetNameTest As String
mySheetName = "Bearbeiten"
On Error Resume Next
mySheetNameTest = Worksheets(mySheetName).Name
If Err.Number = 0 Then
MsgBox "Die Tabelle ''" & mySheetName & "'' existiert bereits in dieser Arbeitsmappe."
Else
Err.Clear
Worksheets.Add.Name = mySheetName
'MsgBox "Die Tabelle ''" & mySheetName & "'' wurde erstellt."
End If
End Sub
Was müsste jetzt noch diesem Code wo hinzugefügt werden, damit der obige Code im Tabellenblatt steht, sobald die Tabellen erzeugt wurden.
Danke für die Mühe
LG Andi