zuordnen?
Peter
'Me.Top = Range("B2")
'Me.Left = Range("B2")
Private Sub CommandButton1_Click()
MsgBox "Adresse der Zelle B5: Top " & Range("B5").Top & ", Links: " & Range("B5").Left
'Postionierung der UF nach den Ergebnissen von B5
With Me
.Top = Range("B5").Top
.Left = Range("B5").Left
End With
End Sub
Private Sub UserForm_Initialize()
Me.Width = Range("B2").Width
Me.Height = Range("B2").Height
For lngLeft = 1 To ActiveCell.Columns - 1
sumLeft = lngLeft + Columns(lngLeft).Width
Next
Me.Left = sumLeft
End Sub