AW: Fehler in der vbe6.dll
10.02.2004 11:41:47
Alex
Ich kann die leider nicht schicken die Firewall lässt die hier nicht raus. Aber evt. kannst Du mal einen Blick auf das nächste Makro machen. Wäre super ich mach ein Bild davon.
Mercy, so sieht die Userform aus mit makro
Die Suche am Ende geht ein Worksheet nach dem anderen ab von Januar bis Dezember und beschriftet die button ggf. neu.
Private Sub CommandButton1_Click()
Dim TN, gefunden, zeile
Urlaub_Kontolle
TN = UserForm2.Kal_Name
With Worksheets("Daten").Range("A3:A500")
Set gefunden = .Find(TN)
End With
zeile = gefunden.Row
UserForm2.Hide
Jahresplanung
End Sub
Private Sub MultiPage1_Change()
Dim zeile
Dim y, x, m, z, c
zeile = Worksheets("Daten").Cells(1, 33)
With UserForm2
Select Case MultiPage1.Value
Case 0
y = 1
x = "31"
m = "Jan"
' Jan
Case 1
y = 2
x = "29"
m = "Feb"
' Feb
Case 2
y = 3
x = "31"
m = "Mär"
' Mär
Case 3
y = 4
x = "30"
m = "Apr"
' Apr
Case 4
y = 5
x = "31"
m = "Mai"
Case 5
y = 6
x = "30"
m = "Jun"
Case 6
y = 7
x = "31"
m = "Jul"
Case 7
y = 8
x = "31"
m = "Aug"
Case 8
y = 9
x = "30"
m = "Sep"
Case 9
y = 10
x = "31"
m = "Okt"
Case 10
y = 11
x = "30"
m = "Nov"
Case 11
y = 12
x = "31"
m = "Dez"
End Select
For z = 1 To x
c = Worksheets(m).Cells(zeile, 5 + z) 'Inhalt der Zelle
If c = "" Then
.Controls("ToggleButton" & z & "_" & y).Caption = z 'Dem Toggle den Wert geben
End If
If c <> "" Then
.Controls("ToggleButton" & z & "_" & y).Caption = z & "/" & c 'Dem Toggle den Wert geben
End If
Next z
End With
End Sub