Hallo
habe folgendes Problem, ein Auszug aus dem Code:
-----------------------------------------------------------------------------------
Sub fkt_ghp()
Dim iHeight, iScroll, Label, quer, n_gesamt, xxx
iHeight = 500
iScroll = 365
quer = 0
n_gesamt = 20
Label = 0
xxx = 3
With Auswahl
.Hide
End With
'Userform GHP
With GHP
.Height = iHeight
'Gesamtanzahl der Eingaben werden erzeugt - Zeilen
For n_gesamt = 0 To n_gesamt - 1
.ScrollHeight = iScroll + (n_gesamt * 20)
'Spalten 9Stück werden erzeugt
For quer = 0 To 8
Set Label = GHP.Controls.Add("Forms.Label.1")
With Label
'.Font.Bold = true
.TextAlign = 2
.Font.Name = "Futura Bk"
.BorderColor = &H8000000A
.BorderStyle = 1
.Left = 6 + (quer * 78)
.Top = 340 + (n_gesamt * 20)
.Height = 14
.Width = 66
.Name = "Label_" & quer & "_" & n_gesamt
'.Caption = .Name
End With
Next quer
Next n_gesamt
.Label_1_1 = "xxx"
'fkt_eingaben
.Show
End With
ActiveWorkbook.Close (0)
End Sub
------------------------------------------------------------------------------------
Mein Problem ist das die Labels erstellt werden und .Caption = .Name sehe ich auch das die Namen richtig erstellt wurden.
Nur will ich jetzt mit .Label_1_1 = "xxx" (Beispiel) was zuweisen. Es kommt die Fehlermeldung "Methode oder Datenobjekt nicht gefunden.
Warum erkennt er das Label nicht bzw. hat er das wieder vergessen das er das gerade erstellt hat?
Wer kann mir helfen?
Danke
Gruss
|