Office: (Office 2013) Makro erst ausführen wenn Checkbox ausgefüllt (per Schalter gestartet)

Nzxt · 29. Januar 2014

Hallo zusammen

Ich hoffe ich bin hier richtig mit folgendem Problem:

Kurze Funktionserklärung:

Ich habe 5 Hauptkategorien die mittels Checkboxen den jeweiligen Wert (1-6) in den Zellen Q1-Q6 anzeigt, und diese Werte per Makro (Schaltergebunden) auf die nächste Tabelle verschiebt in sauberer Reihenfolge inkl. Text aus Active-X Textbox. Aus diesen Werten ergibt sich dann in der letzten Tabelle die Auswertung mittels Diagrammen. Zusätzlich zum Schalter besteht eine JA/NEIN Auswahl die bei JA das Makro laufen lässt und Überträgt, und bei NEIN das Makro abbricht mit entsprechender Nachricht. Zusätzlich vor Sub End werden die Checkboxen wieder zurückgesetzt auf 0 also keine ist angewählt.

Es funktioniert alles tadellos! Einziges Manko ist, ich möchte das wenn ich eben KEINE Checkbox anwähle eine Message aufpoppt mit der Meldung: "Bitte eine Auswahl treffen" und das Makro nicht gestartet wird, sondern erst wenn die Checkboxen ausgefüllt sind.

Ich hoffe Ihr könnt mir weiterhelfen, habe schon den ganzen Tag mit diversen Codes versucht das hinzukriegen.

Hier mal der Code und im Anhang noch das File selbst:
Code:

'Code in einem alllgemeinen Modul der Datei.
Sub Eingabe_in_Liste_eintragen()
Worksheets("Auswertung").Unprotect Password:="test"

Dim byWert As Byte
byWert = MsgBox("Daten korrekt und kontrolliert?", 4, "Datenübertragung")
If byWert = 7 Then
MsgBox "Datenübertragung abgebrochen", vbCritical, "Datenübertragung"
Exit Sub

ElseIf byWert = 6 Then
MsgBox "Übertragung abgeschlossen", vbInformation, "Datenübertragung"
End If

Dim wksEingabe As Worksheet
Dim wksListe As Worksheet
Dim lngZeile As Long, rngZelle As Range

Set wksEingabe = Worksheets("Eingabe") 'Eingabetabellenblatt
Set wksListe = Worksheets("Auswertung") 'Tabellenblatt in das die Daten geschrieben werden _
sollen

With wksListe
'nächste freie Zeile in Liste
Set rngZelle = .Cells.Find(What:="*", after:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If rngZelle Is Nothing Then
lngZeile = 1
Else
lngZeile = rngZelle.Row + 1
End If

.Cells(lngZeile, 1).Value = wksEingabe.Range("Q1")
.Cells(lngZeile, 2).Value = wksEingabe.Range("Q2")
.Cells(lngZeile, 3).Value = wksEingabe.Range("Q3")
.Cells(lngZeile, 4).Value = wksEingabe.Range("R4")
.Cells(lngZeile, 5).Value = wksEingabe.Range("R5")
.Cells(lngZeile, 6).Value = wksEingabe.Range("Q6")
'usw.
Sheets("Eingabe").TextBox1.Text = "Hier bitte Referenz (Request Nr.), Land und Kommentar eintragen."
Dim myShape As Shape
Application.ScreenUpdating = False
On Error Resume Next
For Each myShape In ActiveSheet.Shapes
If myShape.FormControlType = xlCheckBox _
Or myShape.FormControlType = xlOptionButton Then _
myShape.OLEFormat.Object.Value = 0
Next

Worksheets("Auswertung").Protect Password:="test"

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schon mal vielen Dank und ein schönes Wochenende!

:)

Beverly · 31. Januar 2014

Hi,

nach diesem Prinzip:

Code:

If ActiveSheet.CheckBox1 = False And ActiveSheet.CheckBox2 = False Then
MsgBox "Bitte Auswahl treffen"
Exit Sub
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Frage: weshalb verwendest du 2 CheckBoxen und keine OptionButton? Da kann man doch nur entweder oder auswählen.Außerdem würde ich am Ende immer eine als Standard aktivieren.

Nzxt · 31. Januar 2014

Hallo und danke erstmal für die schnelle Antwort!

Was meinst du mit 2 Checkboxen? Sind alles "Optionsfeld (Formularsteuerelement) von dem her heissen die auch "Optionsfeld 44" z.B.

Bin auch noch neu auf dem Gebiet, also falls ich mist zusammen labere einfach melden *biggrin.gif*

Könntest du mir bitte anhand meines Codes zeigen wo ich das einfügen sollte?

Vielen Dank *Smilie

Beverly · 31. Januar 2014

Hi,

in deinem Beitrag stand nur etwas von CheckBoxen, nichts von OptionButton...

Soll je Spalte geprüft werden, ob kein OptionButton aktiviert wurde oder insgesamt für alle OptionButton?

Nzxt · 31. Januar 2014

Sorry dann hab ich das falsch angegeben.

Es soll insgesamt für alle geprüft werden, also wenn kein Eintrag kein Start des Makros (Übertragung auf andere Tabelle)

Danke *Smilie

Beverly · 31. Januar 2014

Wenn es für alle insgesamt zutreffen soll dann reicht aus, wenn du prüfst, ob die Summe Q1:Q6 = 0 ist

Code:

If Application.Sum(Range("Q1:Q6")) = 0 Then
MsgBox "Bitte eine Auswahl treffen"
Exit Sub
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am Ende deines Codes kannst du dir die gesamte Schleife über die Steuerelement sparen, einfach den Bereich Q1:Q6 wieder mit 0 füllen und damit alle zurücksetzen:

Code:

Range("Q1:Q6") = 0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nzxt · 31. Januar 2014

Super vielen Dank! Dachte nicht das es so einfach ist xD vor lauter Bäumen den Wald nicht sehn... mal wieder *Smilie

Vielen Dank und gutes Wochenende!

Office: (Office 2013) Makro erst ausführen wenn Checkbox ausgefüllt (per Schalter gestartet)

Makro erst ausführen wenn Checkbox ausgefüllt (per Schalter gestartet)

Makro erst ausführen wenn Checkbox ausgefüllt (per Schalter gestartet)

Makro erst ausführen wenn Checkbox ausgefüllt (per Schalter gestartet)

Makro erst ausführen wenn Checkbox ausgefüllt (per Schalter gestartet) - Similar Threads - Makro ausführen Checkbox

Makro nur ausführen wenn in einer Spalte ein spezieller Text nicht vorkommt

Makro nur in einer Datei ausführen.

Probleme Marko Ausführung

Makros nach wenn dann prüfen und durchführen

Makro nur ausführen wenn wenigstens eine Zelle gefüllt

Eintragung in mehrere Tabellen

Makro neu ausführen wenn Daten gefiltert werden