selbst in lesbarer Form fehlt mir hier jede Menge Input - vielleicht hat jetzt jemand eine Idee
LG
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.
|