Schaltfläche "Nein" funktioniert nicht!

[turtle47]

Hallo User,

habe folgenden Code in einem Makro:

Code: Alles auswählen

sub FarbAenderung            'Füllt die Zellen mit Farbe
   oDoc = thisComponent      'das Dokument
   oSheet = oDoc.sheets(0)   'erstes Tabellenblatt

   If MsgBox ("Möchten Sie die Zellen wirklich mit Farbe füllen?", 36 ,        "Farbwechsel") = 7 Then
' Yes button pressed
Else
' No button pressed
End IF


   For ze = 4 to 12          'Zeilenzähler
   For sp = 2 to 12          'Spaltenzähler
   oCell = oSheet.getCellByPosition(sp,ze)
  
   if oCell.string = "" then oCell.CellBackColor = RGB(255,255, 255)     'keine Farbe
.
.
.

Wenn ich die Schaltfläche "Nein" betätige läuft das Makro trotzdem durch.
Wie kann ich es zum halten bringen. Oder steht die Messagebox an der falschen Stelle?

Vielen Dank für die Hilfe im voraus

Jürgen

[Stephan]

Dein Code ist etwas rudimentär gepostet und ich weiß nicht was denn nun bei "nein" getan werden soll. Ja, nicht das Gleiche wie Bei "ja" aber vielleicht doch was anderes? Oder Garnichts? Oder was sonst?
Allgemein:

Code: Alles auswählen

 If MsgBox ("Möchten Sie die Zellen wirklich mit Farbe füllen?", 36 , "Farbwechsel") = 6 Then 
' Yes button pressed
'hier steht der Code der bei "Ja" ausgeführt werden soll 
Else 
' No button pressed 
'hier der Code der bei "Nein" ausgeführt werden soll - soll garnichts getan werden (im ganzen Makro) dann einfach
exit sub
End IF 

Übrigens entsprich "Ja" = 6, wovon Dich das Folgende überzeugt:

Code: Alles auswählen

Sub Macro1
msgbox MsgBox ("Möchten Sie die Zellen wirklich mit Farbe füllen?", 36 , "Farbwechsel")
End Sub

Gruß
Stephan

[turtle47]

Hallo Stephan,

vielen Dank für die schnelle Hilfe.

Sorry, für das schlechte Posting.
Im Programmieren bin ich blutiger Anfänger.

Das Makro sollte abgebrochen werden wenn man die "Nein" Schaltfläche betätigt.

Folgender Code funktioniert bei mir einwandfrei:

Code: Alles auswählen

sub FarbAenderung            'Füllt die Zellen mit Farbe
   oDoc = thisComponent      'das Dokument
   oSheet = oDoc.sheets(0)   'erstes Tabellenblatt
   If MsgBox ("Möchten Sie die Zellen wirklich mit Farbe füllen?", 36 , "Farbwechsel") = 7 Then
' Yes button pressed

exit sub
' No button pressed
End IF

Frag mich aber bitte nicht warum es jetzt geht.
Oder kannst Du es mir erklären?

Nochmals Danke.

Jürgen

[Stephan]

Oder kannst Du es mir erklären?

Du prüfst ob "Nein" gedrückt wurde wenn das der Fall ist wird das Makro beendet.



Vorher hat Du geprüft ob "Nein" gedrückt wurde, Dein Makro hatte für diesen Fall keinen Code und falls nicht "Nein"(*) gedrückt wurde sollte etwas Anderes gemacht werden. Da nun für den "Nein"-Fall kein Code vorhanden war wurde doch anschließend hinter IF-Then-Else mit dem vorhandenen Code fortgesetzt, bei "Ja" und "Nein".

(*)das soll schon >nicht "Nein"< heißen, denn "Ja" wird in dem entsprechenden Code nicht explizit geprüft, macht aber an dieser Stelle praktisch keinen Unterschied. Im Falle von beispielsweise:

Code: Alles auswählen

 MsgBox ("Möchten Sie die Zellen wirklich mit Farbe füllen?", 35 ,"Farbwechsel")

schon, weil das >nicht "Nein"< könnte hier "Ja" oder "Abbrechen" bedeuten.


Gruß
Stephan

[turtle47]

Hi Stephan,

danke, glaube habs jetzt verstanden.

Wünsche Dir noch ein schönes Wochenende.


Jürgen