hää? Excel streikt oder wie?

Dieses Thema hää? Excel streikt oder wie? im Forum "Microsoft Office Suite" wurde erstellt von Billy, 29. Apr. 2005.

Thema: hää? Excel streikt oder wie? Guten Tag ;D öhm... kann ja sein dass ich fett bin, kann ja sein dass ich hässlich bin aber wieso streickt das...

  1. 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
     
  2. 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 :)
     
  3. 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?
     
  4. 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 :)
     
  5. hab ich gemcht

    aber naja egal

    wie sagte doch Peter Lustig Abschalten ^^

    ich geh jetzt einwenig Konstanz unsicher machen.

    danke trotzdem =)
     
Die Seite wird geladen...

hää? Excel streikt oder wie? - Ähnliche Themen

Forum Datum
haandbuch für zyxelrouter NBG5715 Sonstiges rund um den PC & Kaufberatung 14. Feb. 2012
haarig..... Windows XP Forum 5. Dez. 2005
was ist mit meinem pc los?!?! virus?!?! spyware?!?! häää!?!? Viren, Trojaner, Spyware etc. 17. Mai 2005
Graue Haare wegen SVCD Audio, Video und Brennen 19. Feb. 2005
Excel-Feature gesucht Microsoft Office Suite 11. Okt. 2016