Private Sub cmdOK_Click()
Dim bk As Workbook
Dim sh As Worksheet
Dim iCnt As Integer
ReDim rngCell(Application.Workbooks.Count)
ReDim strWorkbook(Application.Workbooks.Count)
ReDim strWorksheet(Application.Workbooks.Count)
For Each bk In Application.Workbooks
iCnt = iCnt + 1
strWorkbook(iCnt) = bk.Name
Set sh = bk.ActiveSheet
strWorksheet(iCnt) = sh.Name
If bk.Name <> ActiveWorkbook.Name Then
Debug.Print bk.Name
End If
Next
Unload Me
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim rng As Range
Dim bk As Workbook
Set bk = ActiveWorkbook
Set rng = Application.ActiveCell
Me.lblZelle.Caption = "[" & bk.Name & "]" & rng.Worksheet.Name & "!" & rng.Address
End Sub