Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem Userform

Problem Userform
06.12.2006 23:08:55
SteffenS
Hallo und guten Abend,
ich habe ein Problem mit einer Userform.
Und zwar möchte ich das die Userform automatisch fortgesetzt wird wenn eine bestimmte Bedingung zutrifft.
Mein Code dazu:
If ktozaehler = 9 Then
Me.Controls(kto_merke).Value = True
stati_aut = 1
fortsetzen_Click
stati_aut = 0
Unload Me
Else
Me.Controls(kto_merke).Value = False
End If
Das läuft auch soweit durch, aber es kommt immer der Fehler:
"Objektvariable oder With-Blockvariable nicht festgelegt."
Was mache ich falsch?
Danke Euch schonmal
MFG
Steffen Schmerler

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem Userform
06.12.2006 23:33:17
Uduuh
Hallo,
was ist kto_merke? ein String? ein Objekt?
wenn ein Objekt(chececkbox, Optionbutton) dann me.kto_merke=true/ false
Gruß aus’m Pott
Udo

kto_merke
06.12.2006 23:52:24
SteffenS
ja, das ist ein Objekt (ein Optionsbutton).
Den Frage ich nach dem Zustand ab.
Kann es daran liegen?
Weil nach Unload Me der Bezug weg ist?
MFG
Steffen Schmerler
AW: Problem Userform
07.12.2006 07:30:20
Oberschlumpf
Hi Steffen
Hast du denn den Vorschlag von Udo ausprobiert? Wir reagiert dein Programm darauf?
by the way...es heißt DAS Userform(ular) und nicht die Userform(ular)
Konnte ich helfen?
Ciao
Thorsten
Anzeige
kto_merke2
07.12.2006 08:55:24
SteffenS
ich habe kto_merke als String deklariert
Ich lasse vorher eine Schleife über das UF laufen und weise dann zu
'meine Schleife
For ma_h = 1 To 10
For Each mn In Me.Controls
If mn.Name Like "kto_" & ma_h Then
'Konten einsetzen
'MsgBox (WSKS.Cells(3, ma_h + 27).Value)
If WSKS.Cells(3, ma_h + 27).Value 0 And WSKS.Cells(3, ma_h + 27).Value "frei" Then
Me.Controls(mn.Name).Caption = WSKS.Cells(6, ma_h + 27).Value & " " & WSKS.Cells(3, ma_h + 27).Value & " " & WSKS.Cells(4, ma_h + 27).Value & " " & WSKS.Cells(5, ma_h + 27).Value
'Abfrage ob Verteilung möglich ist
'Abfrage nach Art der Verteilung (Planung, manuell)
If VertArt = 3 Then
If WSKS.Cells(berze, ma_h + 27).Value = "" Or WSKS.Cells(berze, ma_h + 27).Value = 0 Then
Me.Controls(mn.Name).Enabled = False
End If
If Cells(MA, hfkto).Value = WSKS.Cells(6, ma_h + 27).Value And Me.Controls(mn.Name).Enabled = True Then Me.Controls(mn.Name).Value = True
ElseIf VertArt = 4 Then
If WSKS.Cells(berV - 5, ma_h + 27).Value = "" Or WSKS.Cells(berV - 5, ma_h + 27).Value = 0 Then Me.Controls(mn.Name).Enabled = False
If Cells(maV, hfkto).Value = WSKS.Cells(6, ma_h + 27).Value And Me.Controls(mn.Name).Enabled = True Then Me.Controls(mn.Name).Value = True
End If
Else
Me.Controls(mn.Name).Caption = "Konto nicht belegt"
Me.Controls(mn.Name).Enabled = False
End If
'Zähler wegen automatischer Auswahl
If Me.Controls(mn.Name).Enabled = True Then kto_merke = mn.Name
If Me.Controls(mn.Name).Enabled = False Then
ktozaehler = ktozaehler + 1
End If
End If
Next
Next ma_h
Danke Euch nochmals
Steffen
Anzeige

Links zu Excel-Dialogen

OptionButton UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige