Hallo Uwe
danke für Deinen Code
Hat sehr geholfen
@ALLE
Ich hab mal da was zusammengestellt (erster Wurf) (siehe Anhang)
Verbesserungen , Erweiterungen , Ideen sind Willkommen:05
Gruß
DeBabba - Klaus
Hallo Klaus,
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.
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 Klaus,
ich habe die Textboxenüberprüfung eingebaut und das Ganze ein wenig verschlankt.
Gruß Uwe
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
Hallo Klaus,
" 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.
Gruß Uwe
Ah so,
heißt also wenn Du gegen 0 prüfst braucht man das nicht komplett auszuschreiben
Ok.-...
wieder was dazugelernt
Gruß
klaus