title image


Smiley Re: Dialogfeld zeigen
Hallo Daniel,mit dem Problem habe ich mich auch schon rumgeärgert.Ich hab's zwar irgendwie hinbekommen, aber ich weis nicht mehr wie.Vielleicht geht's aber auch so.Dabei gehe ich davon aus, daß das Programm mit dem OK-Button aktiviert wird (der Button darf nicht das Schließen-Attribut haben).Sub OK()Dim Check1, Check2 As ObjectSet Check1 = ThisWorkbook.Sheets("Dialog1").[Bearbeitungsfeld 13]Set Check2 = ThisWorkbook.Sheets("Dialog1").[Bearbeitungsfeld 7] If (Check1.Text = "") Or (Check2.Text = "") Then GoTo Show Worksheets("Cost_elements").Select Range("D6").Select MsgBox "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 " Sheets("Dialog1").Hide Exit SubShow: MsgBox "Bitte Daten eingeben" & (Chr(13) & Chr(10)) & "Data missing "End SubGrussThomas
Gruß
Thomas


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: