Hi Maaliane,
seh´s mal so – deine Prozeduren sprechen das Arbeitsblatt über seinen CodeName an
MsgBox Worksheets(1).CodeName
MsgBox Worksheets(2).CodeName usw.
Dann gibt es noch den Tabellennamen, den man(n) ändern kann "Tabelle1" zu "woswasi"
Variante 1)
MsgBox Worksheets("woswasi").CodeName -> zeigt zum Bleistift Tabelle2, dann
im gesamten Code Tabelle1. zu Tabelle2. umschreiben (wichtig der Punkt !)
Variante 2)
ich arbeite ohnedies immer auf meinem aktiven Arbeitsblatt in dem die Einträge erfolgen
im gesamten Code Tabelle1. zu ActiveSheet. umschreiben (wichtig der Punkt !)
Variante 3)
ich benenne das gewünschte Arbeitsblatt vor dem Laden der Userform
zum Bleistift
Option Explicit
Public TbName As String
Public Sub Starte()
TbName = "iwaswos"
Load UserForm1
UserForm1.Show
End Sub
im gesamten Code Tabelle1. zu Sheets(TbName). umschreiben (wichtig der Punkt !)
|