Warum werden keine Daten eingelesen ?
27.11.2004 18:53:29
walter
beim Aurfuf von der UserForm1 zur UserForm2 werden die Daten in der UserForm2
nicht eingelsen. Erst wenn ich zur Excel Oberfläche wechsel und dann die UserForm1 aufrufe und dann zur UserForm2 gehe sind die Daten aktualisiert.
Hier meine Makros:
Zur UserForm":
Private Sub KulanzblattEinblenden_Click()
Label1.Caption = Worksheets("Kulanzblatt-VK").Range("F5")
USFKulanzblatt.Show
End Sub
UserForm2 Initialize:
Private Sub UserForm_Initialize()
Dim hwndForm As Long, hwndMenu As Long
With USFKulanzblatt
.StartUpPosition = 0
.Top = 0
.Left = 0
.Height = GetDeviceCaps(GetDC(0&), 8)
.Width = GetDeviceCaps(GetDC(0&), 10)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(vbNullString, Me.Caption)
'--------------------- ab hier festgelegt -------------------------
If hwndForm <> 0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu <> 0 Then DeleteMenu hwndMenu, &HF010, &H0
End If
'-------------- ab hier Daten einlesen ----------------------------
Label1.Caption = Worksheets("Kulanzblatt-VK").Range("F5")
End Sub
Welchen Fehler habe ich gemacht?
Gruß Walter