Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code in Tbl.-Blatt- wenn es erstellt wird

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:
  • Option Explicit
    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

    1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Code in Tbl.-Blatt- wenn es erstellt wird
    18.10.2016 23:17:06
    Martin
    Hallo Andi,
    dafür gibt es zwei Möglichkeiten:
    1. Du schreibst den Code in ein leeres Tabellenblatt und kopierst dieses Tabellenblatt einfach anstatt ein neues Tabellenblatt anzulegen.
    2. Du schreibst den Code nachträglich in ein Tabellenblatt. Dazu musst du aber im _ Vetrauenscenter den Zugriff auf das VBA-Projektobjektmodell vertrauen aktivieren. Suche mal hier im Archiv oder auf Google nach:
    
    Application.VBE.ActiveVBProject.VBComponents("Tabelle1")
    
    Da wirst du sicher Beispiele zum Einbinden von VBA-Code finden.
    Viele Grüße
    Martin
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige