AW: aus zelle wert bekommen
16.10.2006 10:23:57
Julia
also a ist als integer...
also das steht in meiner sub
If tmp = 6 Then
ThisWorkbook.Sheets("Berechnung").Cells(zeile, sp + 1) = UserForm1.Takt
m_bd(ThisWorkbook.Sheets("Berechnung").Cells(zeile, 2)) = False
count = 0
a = ThisWorkbook.Sheets("Berechnung").Cells(zeile, 2)
While a
If (ThisWorkbook.Sheets("Berechnung").Cells(zeile, sp + 1) = "BD") Then
count = count + 1
End If
Wend
If count = 0 Then
m_white (ThisWorkbook.Sheets("Berechnung").Cells(zeile, 2))
End If
new_NBD = True
End If
und das ist die funktion m_white die da aufgerufen wird...
Function m_white(m As Integer)
MsgBox ("Maschine " & m & " repariert")
Select Case m
Case 1: UserForm1.m1.BackColor = RGB(255, 255, 255)
Case 2: UserForm1.m2.BackColor = RGB(255, 255, 255)
Case 3: UserForm1.m3.BackColor = RGB(255, 255, 255)
Case 4: UserForm1.m4.BackColor = RGB(255, 255, 255)
Case 5: UserForm1.m5.BackColor = RGB(255, 255, 255)
End Select
End Function
also als ich das programm eben hab durchlaufen lassen hat er nur gearbeitet bis ich es anch 10 minuten abgebrochen hab, ich denk mal er ist in eine endlos schleife rein, aber warum wird mir grad nicht so klar... :(