hää? Excel streikt oder wie?

Billy · 29.04.2005

Guten Tag ;D

öhm... kann ja sein dass ich fett bin, kann ja sein dass ich hässlich bin aber wieso streickt das doofe Excel bei diesem Befehl:

Code:

Private Sub UserForm_Initialize()
Dim temp As Long, x As Long
Me.zeile.Caption = c_zeileende
Me.fname.Caption = Cells(ActiveCell.Row, 1)
temp = ActiveCell.Row - 1
Dim i As Long, name As String, l As Long, fkurz As String
name = Me.fname.Caption
l = Len(name)
For i = 1 To l
 If Asc(Mid(name, i, 1)) = 32 Then
 i = i - 1
 Me.split.Caption = LCase(Left(name, i))
 Me.fkurz.Caption = LCase(Left(name, i))
 fkurz = LCase(Left(name, i))
 Exit For
 End If
Next
For x = 3 To c_zeileende
 If Cells(x, ActiveCell.Column) = fkurz Then
  Me.found.Caption = Cells(x, ActiveCell.Column).Address(rowabsolute:=False, _
  Columnabsolute:=False)
  temp = x + 1
  Me.maschine.Caption = Cells(temp, 1)
  Exit For
 End If
Next
End Sub

wäre mir ja scheiss egal wenn ich net ferien hätte und ich das ding fertig machen müsste ^^

kann mir wer sagen wieso es net geht? dangö

mfg billy

Matjes · 30.04.2005

Hi billy,

welchen Befehl meinst Du denn ? Ich hab mal auf blauen Dunst geschaut.

Zugriff auf Zellinhalte müssen in der Form Cells(1,2).Value erfolgen.

Code:

Private Sub UserForm_Initialize()
Dim temp As Long, x As Long
Dim i As Long, name As String, l As Long, fkurz As String


Me.zeile.Caption = c_zeileende
Me.fname.Caption = Cells(ActiveCell.Row, 1).Value
temp = ActiveCell.Row - 1
name = Me.fname.Caption
l = Len(name)
For i = 1 To l
If Asc(Mid(name, i, 1)) = 32 Then
  i = i - 1
  Me.split.Caption = LCase(Left(name, i))
  Me.fkurz.Caption = LCase(Left(name, i))
  fkurz = LCase(Left(name, i))
  Exit For
End If
Next
For x = 3 To c_zeileende
  If LCase(Cells(x, ActiveCell.Column).Value) = fkurz Then
    Me.found.Caption = Cells(x, ActiveCell.Column).Address(rowabsolute:=False, _
    Columnabsolute:=False)
    temp = x + 1
    Me.maschine.Caption = Cells(temp, 1).Value
    Exit For
  End If
Next
End Sub

Gruß Matjes

Billy · 30.04.2005

hab ich geändert

nun steht eine kleine süse Fehlermeldung:

Projekt oder Bilbiothek nicht gefunden. und unterlegt ist Private Sub UserForm_Initialize()

heisst das soviel wie ich kann auf meinem Laptop keine dialoge machen oder wie?

Matjes · 30.04.2005

Hi Billy,

die function sollte innerhalb der Code-Seite deiner Userform stehen.

Geh mal im Project-Fenster auf die Userform, rechte Maustaste ->Code anzeigen. Es geht die Code-Seite deiner Userform auf.
Dann wählst Du in der Auswahlbox links oben Userform und in der Auswahlbox rechts oben->Initialize'.
Der Cursor müßte dann in einer Sub stehen, die folgenden Rumpf hat:

Code:

Private Sub UserForm_Initialize()

End Sub

Das ist die Funktion, die beim Laden der Userform aufgerufen wird.
Der Name ist für alle Userformen gleich, egal welchen Namen deine Userform hat.

In diesem Rumpf müßten dann die Code-Zeilen plaziert werden, die beim Laden der Userform ausgeführt werden sollen.

Gruß Matjes

Billy · 30.04.2005

hab ich gemcht

aber naja egal

wie sagte doch Peter Lustig Abschalten ^^

ich geh jetzt einwenig Konstanz unsicher machen.

danke trotzdem =)

hää? Excel streikt oder wie?

Billy

Matjes

Billy

Matjes

Billy

hää? Excel streikt oder wie?

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums