UserForm

https://www.herber.de/bbs/user/124159.xlsm
Hallo Forum,
ich befinde mich gerade im Urlaub und habe mir vorgenommen täglich mindestens 1 Stunde VBA zu bimsen um endlich vom "nur Makrorekorder" auf Excel VBA-Grundlagen aufzusteigen.
Mein mir vorgenommenes Projekt erhebt keinen Anspruch auf große Sinnhaftigkeit und ist für die meisten Könner sicherlich pillepalle, für mich jedoch schon eine Herausforderung.
In einem UserForm sollen einige Flächenberechnungen durchgeführt werden.
Bei Initialisierung der UserForm wird ein Bild geladen und alle TextBoxen und Label angezeigt..
Mittels Checkboxen wird die geometrische Figur bestimmt, die berechnet werden soll.
Je nach Auswahl wird ein entsprechendes Bild neu geladen und nur die benötigten TextBoxen und Label angezeigt.
Fehler bei Falscheingaben sollen abgefangen werden.
Grundsätzlich funktioniert fast alles. Das ist für mich zunächst einmal die Hauptsache.
Da aber die ganze Ausblenderei und Verschieberei der TextBoxen sowie der Label ziemlich viel Handarbeit ist, habe ich versucht einiges in unterschiedliche Module auszulagern, sowie wie ich mir das in meiner bislang "Excel VBA-Unerfahrung" so denke.
Dabei gibt es jedoch Probleme.
1. Ich habe im Modul modPruefen versucht die Prüfung für zunächst der TextBoxA und der TextBoxB auszulagern. Dabei wird SelStart und SelLength
If Not IsNumeric(frmBerechnungen.TextBoxA) Then
MsgBox "Sie müssen einen numerischen Wert eingeben!", vbInformation
frmBerechnungen.TextBoxA.SelStart = 0
frmBerechnungen.TextBoxA.SelLength = Len(frmBerechnungen.TextBoxA.Value)
um das Verlassen der TextBoxen zu verhindern nicht ausgeführt. In der "normalen Prozedur funktioniert es wohl. Wo liegt mein Denkfehler?
2. Wenn die TextBoxA oder TextBoxB leer bleibt und die Berechnung soll ausgeführt werden, erscheint zwar die vorgesehene MsgBox, aber dann erhalte ich die Meldung Typen unverträglich. Was ist hier nicht in Ordnung?
3. Ich habe versucht die Änderung der Bilddateien ebenfalls auszulagern und erhalte hier ebenfalls Probleme.
Der Code im Modul BildPfad meldet fehler beim Laden der Bilddatei Laempel.jpg, was er in der "normalen Prozedur" nicht tut. Was mache ich hier falsch?
Angehängt ist jetzt nur die Datei ohne Bilder. Vielleicht kann mir troztdem jemand helfen.
Ich wäre natürlich sehr dankbar, wenn zum Aufzeigen meiner Fehler auch Erläuterungen, warum und wieso dabei wären, denn ich möchte ja lernen.
Vielen Dank schon mal im Voraus und Grüße aus der Türkei
Brigitte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm

22.09.2018 22:51:43

onur

AW: UserForm

22.09.2018 23:07:05

Dieter

AW: UserForm

23.09.2018 11:31:52

Brigitte

AW: UserForm

23.09.2018 12:02:03

onur

AW: UserForm

23.09.2018 15:25:14

Dieter

AW: UserForm

23.09.2018 16:40:07

Brigitte

AW: UserForm

23.09.2018 11:59:15

sigrid

AW: UserForm

23.09.2018 16:24:57

Brigitte

Function EingabeOK(Eingabe As String, _ Meldung As String) As Boolean EingabeOK = True If Len(Eingabe) = 0 Then Exit Function If Not IsNumeric(Eingabe) Then Meldung = "Sie müssen einen numerischen Wert eingeben!" EingabeOK = False Else If CDbl(Eingabe)

Private Sub TextBoxA_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim meld As String If Not EingabeOK(Me.TextBoxA, meld) Then MsgBox meld Me.TextBoxA.SelStart = 0 Me.TextBoxA.SelLength = Len(Me.TextBoxA.Value) Cancel = True End If End Sub

Hallo Brigitte,
deine Beschreibung meiner Prozedur ist komplett OK. Da du geschrieben hast, dass du VBA lernen willst, habe ich deine ursprüngliche Prüfidee noch einmal aufgegriffen. Diese Idee bringt ja nur etwas, wenn du nicht für jede TextBox eine eigene Prüfprozedur schreiben musst. Also schreibst du diese Prozedur nur einmal und übergibst ihr jeweils die zu prüfende TextBox in einem Parameter. In einem zweiten Parameter erhältst du das Ergebnis der Prüfung zurück, nämlich ob die TextBox verlassen werden darf oder ob das verhindert werden muss.
Das sieht dann so aus:

Sub Pruefung(txtBox As MSForms.TextBox, _
exitVerhindern As Boolean)
If Len(txtBox) = 0 Then Exit Sub
If Not IsNumeric(txtBox) Then
MsgBox "Sie müssen einen numerischen Wert eingeben!", vbInformation
txtBox.SelStart = 0
txtBox.SelLength = Len(txtBox)
exitVerhindern = True
Else
If CDbl(txtBox)

Die vorhandenen Exit-Prozeduren ersetzt du durch die folgenden:

Private Sub TextBoxA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim exV As Boolean
Pruefung txtBox:=TextBoxA, _
exitVerhindern:=exV
Cancel = exV
End Sub
Private Sub TextBoxB_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim exV As Boolean
Pruefung txtBox:=TextBoxB, _
exitVerhindern:=exV
Cancel = exV
End Sub

Welchen Vorschlag du von den beiden nimmst, ist im Endeffekt Geschmacksache. Ich finde eine Lösung mit einer Function, die einen booleschen Wert zurückgibt immer ganz gut lesbar. Die Darstellung der MsgBox und die Einstellung der Selektion in der TextBox könntest du auch noch in der Function unterbringen.
Das wäre dann die folgende Alternative

Function EingabeOK(txtBox As MSForms.TextBox) As Boolean
EingabeOK = True
If Len(txtBox) = 0 Then Exit Function
If Not IsNumeric(txtBox) Then
MsgBox "Sie müssen einen numerischen Wert eingeben!"
txtBox.SelStart = 0
txtBox.SelLength = Len(txtBox)
EingabeOK = False
Else
If CDbl(txtBox)

Neben dem Thema Parameterübergabe an eine Sub- oder Function-Prozedur spielt hier das Thema "Gültigkeitsbereich einer Variablen" eine Rolle.
Eine Variable "Cancel", die zwischen Sub und End Sub in deiner Prozedur "PruefungA" definiert ist, ist nur in dieser Prozedur bekannt und hat keinerlei Verbindung zu dem Parameter "Cancel" der Exit-Prozedur. (Das ist wie bei Herrn Meier aus der Buchhaltung und Herrn Meier aus dem Vertrieb, die haben nur den Namen gemeinsam.)
Ich wünsche dir noch viel Spaß im Urlaub und sende viele Grüße aus dem verregneten NRW.
Dieter

Sub BildpfadSetzen() Set frmBerechnungen.Image1.Picture = LoadPicture Dim Bildpfad As String Dim strName As String strName = "laempel" Bildpfad = ThisWorkbook.Path If Right(Bildpfad, 1) "\" Then Bildpfad = Bildpfad & "\" End If If frmBerechnungen.CheckBoxQuadrat = True Then strName = "Quadrat" ElseIf frmBerechnungen.CheckBoxRechteck = True Then strName = "Rechteck" End If Set frmBerechnungen.Image1.Picture = LoadPicture(Bildpfad & strName & ".jpg") End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread