Re: Eine Möglichkeit...
13.11.2002 10:39:08
Alexis
Hallo Nike,Viiielen DAnk für deine Antwort
hmmmm....
da wird der Rechner ganz schön in die Knie gehn...
das ist glaube ich nicht im interesse des users
Ich glaube es gibt noch eine andere möglichkeit...*g*
Wenn ich die Labels bereits auf der 2ten Userform platziert habe dann klappt das ja auch so wie ich das will, aber wenn ich mit der add funktion arbeiten will(d.h die Labels sind noch gar nicht vorhanden) schaff ich des leider ned. Ich glaube es fehlt mir hier am Wissen.
vieleicht hilft das weiter:
-GraficAgent = Userform
-Label1 ist der "hintergrund-" Balken
-ab Label 6 bis 10 sind die "Werte" die auf dem "hintergrund-"Balken eine Einteilung der Zeit wiedergeben soll (und hier auch tut)
Die Datenquelle habe ich im Worksheets("Tabelle1")ab Zeile 12:
SpalteA -SpalteL -SpalteM -SpalteO
Worktime-01.11.2002 -08:00:05 -Login
Worktime-01.11.2002 -09:00:00 -Logout
Training-01.11.2002 -09:00:00 -Login
Training-01.11.2002 -10:00:00 -Logout
Worktime-01.11.2002 -11:00:00 -Login
Worktime-01.11.2002 -12:00:00 -Logout
Worktime-01.11.2002 -13:00:00 -Login
Worktime-01.11.2002 -17:00:00 -Logout
folgenden Code habe ich im Commondbutton1 in "Tabelle1"
Private Sub CommandButton1_Click()
Einheit0 = GraficAgent.Label1.Width / 1
Zeile = 12
For I = 6 To 10
GraficAgent("Label" & CStr(I)).Left = GraficAgent.Label1.Left + (Einheit0 * Worksheets("Tabelle1").Cells(Zeile, 13))
If Worksheets("Tabelle1").Cells(Zeile, 1) = "Training" Then
GraficAgent("Label" & CStr(I)).BackColor = &HFFFA&
else
GraficAgent("Label" & CStr(I)).BackColor = &HFFFF&
End If
Zeile = Zeile + 1
Div = GraficAgent("Label" & CStr(I)).Left - GraficAgent.Label1.Left
GraficAgent("Label" & CStr(I)).Width = (Einheit0 * Worksheets("Tabelle1").Cells(Zeile, 13)) - Div
Zeile = Zeile + 1
Next I
end sub
Ziel soll es sein hier: Label 6 bis 10 nicht bereits auf der Userform zu plazieren sondern mit der add funktion die Labels je nach anzahl der Datensätze zu erstellen
hast du noch eine Lösung für mich, wäre super.