wenn Du die Inhalte der Textboxen an Integer-Variable übergibst, solltest Du auch prüfen, ob Integer-Werte bzw. zumindest numerische Angaben drin stehen. Ansonsten gibt Dir Excel eine Fehlermeldung aus.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Hallo André vielen Dank für den Tipp habe das ganze nur mal schnell zusammengeschraubt und werde es (wenn ich mal wieder etwas mehr Zeit habe) erweitern / verbessern. Ich habe des öffteren mit Forms zu tun, in welchen viele Textfelder / checkboxen usw. eingebaut werden müssen. das ganze "Namen usw. vergeben hat immer ne Menge zeit gekostet und da dachte ich mir....... Danke nochmals für Deinen Tipp :100: Gruß Klaus
Hallo Uwe, vielen Dank für Deine Überarbeitung Da man machmal z.B. zu einem Textffeld vielleicht auch noch ein Beschreibungsfeld brauch habe ich die Zeile .Frame1.Controls.Clear in If MsgBox("Soll der Frame geleert werden", vbYesNo) = vbYes Then .Frame1.Controls.Clear geändert
2 Sachen / Fragen hätt ich aber noch 1. Du hast die Zeile " If Spal * Zeil then" Hier wird doch gar nix abgeprüft also nur "Wenn Spal mal Zeil dann". was bringt das / soll das ? Gibts da nen tieferen Hintergrund ? 2. Bei nem Label gibt es nur Caption , kein Value. Also hab ich die Zeile .value = Tex
Nochmals Danke für Deine MegaHilfe, denn einiges war mir neu:100
Gruß Klaus in If strProgID = "Forms.Label.1" then .Caption = Tex else .value = Tex
" If Spal * Zeil then" prüft, ob sie beide Werte größer null enthalten. Ausgeschrieben sähe es so aus: If Spal * Zeil <> 0 then 0 (Null) ist False, alles andere ist True. Das war noch von den vorherigen InputBox-Abfragen drin, könnte jetzt also entfallen, da das ja schon vorher geprüft wird.
