AW: Dialogfenster für die Auswahl von Arbeit
07.06.2020 19:05:13
Arbeit
Hallo,
Du könntest Dir eine eigene Function oder Eigenschafts-Proc in der Form schreiben, damit könnte es auch gehen...
' **********************************************************************
' Modul: Modul1 Typ: Standardmodul
' **********************************************************************
Option Explicit
Public Sub Aufruf()
Dim objWorkSheet As Worksheet
Dim objSheetCollection As Collection
Set objSheetCollection = UserForm1.Form_Show
For Each objWorkSheet In objSheetCollection
Call Eintrag(objWorkSheet)
Next
Set objSheetCollection = Nothing
End Sub
Public Sub Eintrag(ByRef Arbeitsblatt As Worksheet)
Debug.Print Arbeitsblatt.Name
''' With Arbeitsblatt
''' .Range("B2").Value = "Guten Morgen"
''' End With
End Sub
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************
Option Explicit
Private mobjSheetCollection As Collection
Private Sub CommandButton1_Click()
Dim lngIndex As Long
With ListBox1
For lngIndex = 0 To .ListCount - 1
If .Selected(pvargIndex:=lngIndex) Then _
Call mobjSheetCollection.Add(Item:=Worksheets(.List(pvargIndex:=lngIndex)))
Next
End With
Call Unload(Object:=Me)
End Sub
Private Sub CommandButton2_Click()
Call Unload(Object:=Me)
End Sub
Private Sub UserForm_Activate()
Dim objWorkSheet As Worksheet
For Each objWorkSheet In Worksheets
Call ListBox1.AddItem(pvargItem:=objWorkSheet.Name)
Next
End Sub
Private Sub UserForm_Terminate()
Set mobjSheetCollection = Nothing
End Sub
Public Function Form_Show() As Collection
Dim objSheetCollection As Collection
Set objSheetCollection = New Collection
Set mobjSheetCollection = objSheetCollection
Call Show
Set Form_Show = objSheetCollection
Set objSheetCollection = Nothing
End Function
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14
Gruß, Mullit