Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Commandbutton erst freigeben wenn Comboboxen befüllt
zurück: Feste Zeilenanzahl weiter: Makro in Shared Workbook nutzen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Timmey82
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2013, 14:37
Rufname:

Commandbutton erst freigeben wenn Comboboxen befüllt - Commandbutton erst freigeben wenn Comboboxen befüllt

Nach oben
       Version: Office 2007

Hallo,

ich habe über
Code:
Sub commandButtonCheck()
    CommandButton1.Enabled = (Len(ComboBox1) > 0 Or Len(ComboBox2) > 0) _
                             And Len(ComboBox3) > 0 _
                             And Len(ComboBox4) > 0 _
                             And Len(ComboBox5) > 0 _
                             And Len(TextBox1) > 0 _
                             And Len(TextBox2) > 0 _
                             And Len(ComboBox11) > 0 _
                             And Len(ComboBox12) > 0 _
                             And Len(ComboBox13) > 0 _
                             And Len(ComboBox14) > 0 _
                             And Len(ComboBox15) > 0 _
                             And Len(ComboBox16) > 0 _
                             And Len(ComboBox23) > 0 _
                             And Len(ComboBox24) > 0 _
                             And Len(ComboBox25) > 0 _
                             And Len(ComboBox29) > 0


und jeweils
Code:
Private Sub ComboBox1_Change()
    commandButtonCheck
end sub


den Commandbutton solange deaktiviert bis die Comboboxen befüllt sind.

Funktioniert auch, aber nur wenn ich die Comboboxen in angegebener Reihenfolge befülle.
Warum?
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2013, 14:48
Rufname:


AW: Commandbutton erst freigeben wenn Comboboxen befüllt - AW: Commandbutton erst freigeben wenn Comboboxen befüllt

Nach oben
       Version: Office 2007

Hi

ich würde den Commandbutton immer aktiv lassen und stattdessen die Prüfung zu Beginn des ButtonMakros ausführen und das Makro vorzeitig beenden (mt Exit Sub), wenn die Bediungungen nicht erfüllt sind.

das hast einfach den Vorteil, daß du die Prüfung nur 1x schreiben und ausführen musst (also nicht bei jedem Buttonklick) und der Fehler, daß der Commandbutton einen falschen Zustand hat, kann nicht vorkommen (bspw nach einem Fehlerabbruch)

Gruß Daniel
Timmey82
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2013, 15:35
Rufname:

AW: Commandbutton erst freigeben wenn Comboboxen befüllt - AW: Commandbutton erst freigeben wenn Comboboxen befüllt

Nach oben
       Version: Office 2007

wie sieht das aus?
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2013, 15:47
Rufname:

AW: Commandbutton erst freigeben wenn Comboboxen befüllt - AW: Commandbutton erst freigeben wenn Comboboxen befüllt

Nach oben
       Version: Office 2007

Hi
also wenn alle Comboboxen befüllst sein müssen, dann so:

Code:
Private Sub Commandbutton1_Click
If Len(Combobox1.Text) = 0 Then Exit Sub
If Len(Combobox2.Text) = 0 Then Exit Sub
If Len(Combobox3.Text) = 0 Then Exit Sub
...
usw für alle Comboboxen

hier dann der eigentliche Buttoncode
dieser Teil des Codes wird nur ausgeführt, wenn alle Comboboxen befüllt sind.
...
End Sub


wenn die Comboboxen durchnummeriert benamt sind, kannst du auch eine Schleife verwenden, um Tiparbeit zu sparen:

Code:
Private Sub Combobox1_Click()
dim i as long
for i = 1 to 10
If Len(Me.Controls("Combobox" & i).Text) = 0 Then
    Msgbox "Bitte alle Comboboxen ausfüllen"
    Exit Sub
End If

Hier dann der weitere Code.

End Sub


Gruß Daniel
Timmey82
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2013, 16:04
Rufname:

AW: Commandbutton erst freigeben wenn Comboboxen befüllt - AW: Commandbutton erst freigeben wenn Comboboxen befüllt

Nach oben
       Version: Office 2007

Hallo,

der Code für den Comand Button funktioniert.

Beim Code für die Combobox sagt er "For ohne Next"-Fehler!

Kann man den nicht auch weglassen und einfach beim klick of den commandbutton solange Bedinung "alle Comboboxen ausgefüllt" nicht erfüllt die Message-Box ausgeben?
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2013, 16:12
Rufname:


AW: Commandbutton erst freigeben wenn Comboboxen befüllt - AW: Commandbutton erst freigeben wenn Comboboxen befüllt

Nach oben
       Version: Office 2007

Hi
naja, wenn das Next fehlt, dann musst du es halt hinschreiben, um die Forschleife korrekt abzuschließen

du kannst es dir aussuchen, ob du jeden Button einzeln abfragst oder die Schleife laufen lässt.

im Prinzp hast du viele Möglichkeiten die Prüfung durch zu führen, da kannst du deiner Kreativität freien lauf lassen.

du kannst auch sowas machen (WAHR ist in Rechenoperationen wie -1):

Code:
dim Zähler as long
Zähler = Zähler - (Len(Combobox1.Text)<>0)
Zähler = Zähler - (Len(Combobox2.Text)<>0)
Zähler = Zähler - (Len(Combobox3.Text)<>0)
If Zähler < 3 Then
   Msgbox "Meldung"
   Exit Sub
End If

du kannst da deiner Kreativität freien lauf lassen.

Grß Daniel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zählen vom Buchstabe "A", aber erst ab den 5. 18 andys78 413 16. Feb 2012, 12:10
andys78 Zählen vom Buchstabe "A", aber erst ab den 5.
Keine neuen Beiträge Excel Formeln: erst rechnen wenn zelle Gelb makiert ist? 1 ReWe verbesserung 391 16. Dez 2011, 12:21
< Peter > erst rechnen wenn zelle Gelb makiert ist?
Keine neuen Beiträge Excel Formeln: nur eine Zelle in Spaltenabschnitt darf befüllt sein 2 MRecke 307 25. Okt 2011, 22:13
MRecke nur eine Zelle in Spaltenabschnitt darf befüllt sein
Keine neuen Beiträge Excel Formeln: Zellen freigeben wenn eine andere Zelle ausgefüllt sind ?? 1 xxEvigressxx 1226 18. Sep 2011, 08:41
neopa Zellen freigeben wenn eine andere Zelle ausgefüllt sind ??
Keine neuen Beiträge Excel Formeln: SVERWEIS - Ergebnis erst ausgeben wenn 2 Spaltenwerte gleich 8 Holodan 594 12. Mai 2011, 18:48
shift-del SVERWEIS - Ergebnis erst ausgeben wenn 2 Spaltenwerte gleich
Keine neuen Beiträge Excel Formeln: Wenn Funktion erst nach Eingabe von 2 Werten ausführen 5 kukaburra 190 04. Apr 2011, 14:19
kukaburra Wenn Funktion erst nach Eingabe von 2 Werten ausführen
Keine neuen Beiträge Excel Formeln: Felder erst ausfüllen wenn anderes Feld ausgefüllt. 1 dennis1313 1094 11. Dez 2010, 10:42
shift-del Felder erst ausfüllen wenn anderes Feld ausgefüllt.
Keine neuen Beiträge Excel Formeln: abhängige Comboboxen 0 Gast 394 12. Jan 2010, 15:53
Gast abhängige Comboboxen
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung erst aktivieren, wenn Zelle Wert hat 5 Gast 2215 31. Okt 2009, 22:25
l.key Bedingte Formatierung erst aktivieren, wenn Zelle Wert hat
Keine neuen Beiträge Excel Formeln: Erst SVERWEIS, dann ZÄHLENWENN??? 2 surfer6 280 08. Okt 2009, 07:44
surfer6 Erst SVERWEIS, dann ZÄHLENWENN???
Keine neuen Beiträge Excel Formeln: Vergleich erst wenn Feld nicht Leer 4 tim19 1412 20. Jun 2009, 18:30
tim19 Vergleich erst wenn Feld nicht Leer
Keine neuen Beiträge Excel Formeln: Wert erscheint erst nach Eingabe 2 schoenbaechler 607 25. März 2009, 17:36
Det Wert erscheint erst nach Eingabe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS