Excel2010 / VBA：用户窗体会话期间工作表变量的存储和使用

Question

Hello and excuse my bumpy English.

• In Worksheet1 is a button who is calling a Userform
• I want to Use the current Worksheet during the Userform Session but im not able to use this...
• I want to Use a variable for further usage.
• The Button on Worksheet1 is Calling this Macro

  Option Explicit Public GlbVarBaseSheet As String ------------ Sub Formularaufruf_Worksheet1() GlbVarBaseSheet = ActiveSheet.Name with Userform1 .MultiPage1.Value = 1 .Show 0 End With End Sub 

Within the Userform, there´sa Sub Called Uebernahme, wich fills out the Textboxes reading the column number wich is stored in the .tag of the TextBox.

How can i Use the Worksheet Variable in this line to use is during the Userform Session: This is not working and i don´t know why

 With Workbooks("KVP.xlsm").Worksheets(GlbVarBaseSheet) 

The Full Sub:

 Sub Uebernahme() Dim Zeilenindex As Long Dim OBcB As MSForms.Control Dim VarTypeName As String Sheets(GlbVarBaseSheet).Activate ' ' ' Workbooks("KVP.xlsm").ActiveSheet.Rows(spinbutton1.Value).Activate Zeilenindex = spinbutton1.Value ' ' With Workbooks("KVP.xlsm").Worksheets(GlbVarBaseSheet) If .Cells(ActiveCell.Row, 1).Value <> "" Then For Each OBcB In MultiPage1.SelectedItem.Controls VarTypeName = TypeName(OBcB) If OBcB.Tag <> "" Then Select Case VarTypeName Case Is <> "Checkbox" 'OBcB.Value = .cells(Left(OBcB.Tag, 1) & ActiveCell.Row) OBcB.Value = .Cells(ActiveCell.Row, Int(Left(OBcB.Tag, 1))).Value End Select End If Next End If End With End Sub 

Thanks in advance

Answer 1

尝试

dim GlbVarBaseSheet as Worksheet