title image


Smiley Dialogfeld zeigen
Hi Folks,über den folgenden Code wird ein Dialogfeld geschlossen. Gleichzeitig werden 2 Felder auf Einträge überprüft.Sollte nichts eingetragen sein, so erfolgt eine Fehlermeldung (GoTo Show). Ist das Programm dann in Zeile 'DialogSheets("Dialog1").Show angelangt kommt immer wiederFehlermeldung 1004.Hat jemand ne Idee warum bzw. weiß jemand wie ich den Dialog noch anders aktivierenkann als mit 'DialogSheets("Dialog1").Show***************************************************************************Sub OK()Dim Check1, Check2 As ObjectSet Check1 = ThisWorkbook.Sheets("Dialog1").[Bearbeitungsfeld 13]Set Check2 = ThisWorkbook.Sheets("Dialog1").[Bearbeitungsfeld 7]If Check1.Text = "" ThenGoTo ShowElseIf Check2.Text = "" ThenGoTo ShowElseWorksheets("Cost_elements").SelectRange("D6").SelectMsgBox "Kost in lokaler Währung" _& (Chr(13) & Chr(10)) & "Cost in local Currency" _MsgBox "Nur kumulierte Wert eingeben " _& (Chr(13) & Chr(10)) & "Cumulative Numbers only "End IfShow:MsgBox "Bitte Daten eingeben" _& (Chr(13) & Chr(10)) & "Data missing " DialogSheets("Dialog1").Show***************************************************************************Danke Daniel

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: