Thema Datum  Von Nutzer Rating
Antwort
Rot Wertprüfung und Korrektur über userform
 21.09.2016 09:11:20 Mike
NotSolved
21.09.2016 17:59:53 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Mike		 Datum:
21.09.2016 09:11:20		 Views:
1058		 Rating:
     
Antwort:
  Ja
Thema:
Wertprüfung und Korrektur über userform
Hallo zusammen, ich habe ein Problem bei einer Wertüberprüfung: 'Setzt alle Werte auf Hoehe' Tabelle6.Range(KonZyl & PlateauAnfangsZelle, KonZyl & PlateauEndZelle).Value = PlateauHoehe 'Überprüft ob Plateauhöhe < Stopperhöhe' If PlateauHoehe > Sheets("Deckblatt").Cells(2, 14) Then UserForm1.Show Else 'Setzt und schreibt Ue-Faktor' Tabelle8.Range(FaktZyl & PlateauAnfangsZelle, FaktZyl & PlateauEndZelle).Value = UFaktor * -1 Tabelle8.Range(KonZyl & PlateauAnfangsZelle, KonZyl & PlateauEndZelle).Value = (PlateauHoehe - Sheets("Ueberhoehung").Cells(4, 8)) * UFaktor * -1 End If Wir hatten das Problem, dass wir falsche Ergebnisse bekommen, wenn bei obiger Formel ein negative Wert ausgegeben wird. Darum will ich über die IF- Schleife eine Wertprüfung durchzuführen und ggfls. den Wert über ein UserForm zu korrigieren. Private Sub CommandButton1_Click() Tabelle2.Range("B14") = CInt(TextBox1.Value) Unload Me End Sub startet man jetzt das Makro, läuft die Prüfung und das Form öffnet sich. Klickt man den CommandButton Popt aber direct ein neues UserForm hoch und das restliche Makro läuft nicht mehr. Kurze Info nebenbei: Sheets("Ueberhoehung").Cells(4, 8) bezieht via Verweis seinen Wert von Tabelle2.Range("B14"). Da ich mich erst seit geraumer Zeit mit VBA beschäftige würde ich mich über eure Hilfe sehr freuen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wertprüfung und Korrektur über userform
 21.09.2016 09:11:20 Mike
NotSolved
21.09.2016 17:59:53 Gast70117
NotSolved