Gewollter Abbruch
07.04.2005 19:32:18
Bryan
über eine Schaltfläche wähle ich eine Datenübernahme aus, nun möchte ich wenn eins der Untenstehenden Tabellenblätter angewählt ist, dass der untenstehende Text der Box erscheint und dann der Vorgang abgebrochen wird. Das klappt aber noch nicht ganz. Kann mir jemand weiterhelfen, was ich hier vergessen hab?
Sub Extra()
If Worksheets("Start").Visible = True Or Worksheets("Parametereinstellung").Visible = True Then
MsgBox "Es ist kein Produkt ausgewählt," + _
"" + vbNewLine + _
"" + vbNewLine + _
"bitte abbrechen und zu bearbeitendes Produkt" + _
"" + vbNewLine + _
"" + vbNewLine + _
"über 'Produkt Auswahl' Schaltfläche auswählen!", 64, "Stabiberechnung R410/R420 Information"
End If
UsrDatenübernahme.Show
End Sub
Danke Bryan