MsgBox mit bezug auf Zellen

Forumthread: MsgBox mit bezug auf Zellen

20.05.2008 11:29:06

Thomas

hallo ihr!
Ich habe früher schon mal sehr gute Erfahrung mit diesem forum gemacht und dachte deshalb ich versuche mein Glück nochmal :)
Ich habe folgendes Problem. Ich habe ein Excell Formular mit einigen Pflichtfeldern erstellt. Sagen wir einfach mal A1, A2 & A3 sind die angesprochenen Pflichtfelder, welche vom Nutzer ausgefüllt werden MÜSSEN...Wenn alle ausgefüllt sind wird ein Mail an eine definierte Mail Add geschickt....bis dahin hab ich schon mal.
So jetzt brauch ich aber eine Funktion die eben Überprüft ob alle Pflichtfelder ausgefüllt sind und eine MsgBox aufruft falls eines der Felder nicht ausgefüllt ist. Diese MsgBox soll sich allerdings eben genau auf die nicht ausgefüllte Zelle beziehen
also wenn A1 leer bleibt soll stehen "Sie haben keinen Namen angegeben"
wenn A2 leer bleibt "Sie haben keine Telefonnummer angegeben"
usw.
Würde mich sehr freuen wenn ihr mir da weiterhelfen könnt, danke!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox mit bezug auf Zellen

20.05.2008 11:46:52

Worti
AW: MsgBox mit bezug auf Zellen

20.05.2008 12:42:00

Gerd
AW: MsgBox mit bezug auf Zellen

20.05.2008 15:17:48

Thomas
AW: MsgBox mit bezug auf Zellen

20.05.2008 15:58:22

Rudi

AW: MsgBox mit bezug auf Zellen

20.05.2008 11:46:52

Worti

Hallo Thomas,
zB. so:


Sub Test
Do
UserForm1.Show
If [a1] = "" Then
MsgBox "Name fehlt"
UserForm1.TextBox1.SetFocus
Else
If [a2] = "" Then
MsgBox "Telefonnummer fehlt"
UserForm1.TextBox2.SetFocus
Else
If [a3] = "" Then
MsgBox "Was auch immer fehlt"
UserForm1.TextBox3.SetFocus
End If
End If
End If
Loop Until [a1]  "" And [a2]  "" And [a3]  ""
End Sub

Gruß Worti

AW: MsgBox mit bezug auf Zellen

20.05.2008 12:42:00

Gerd

Oder so, Thomas ?


Sub test()
Const TextA1 = "Name fehlt in A1" & vbCrLf
Const TextA2 = "Adresse fehlt in A2 " & vbCrLf
Const TextA3 = "Telefonnummer fehlt in A3 " & vbCrLf
Dim strText As String
With Tabelle2.Columns(1)
If Len(.Cells(1)) * Len(.Cells(2)) * Len(.Cells(3)) = 0 Then
If Len(.Cells(1)) = 0 Then strText = strText & TextA1
If Len(.Cells(2)) = 0 Then strText = strText & TextA2
If Len(.Cells(3)) = 0 Then strText = strText & TextA3
MsgBox strText
Exit Sub
End If
End With
End Sub

Gruß Gerd

AW: MsgBox mit bezug auf Zellen

20.05.2008 15:17:48

Thomas

Vielen Dank für die Antworten und entschuldigung für die mehrfachen beiträge, war nicht beabsichtigt.
Kann es sein das man ein Textfeld welches ich über die Grafikleiste von Excel eingefügte habe (nicht über die Steuerelement-Toolbox) über VBA nicht greifen kann. Habe nämlich auch nirgends eine Funktion gefunden bei der ich dem Textfeld einen Namen geben könnte.
Ich hätte nämlich gerne das der User beim öffnen der Datei mit deaktivierten Makros dieses Textfeld zur Hilfe stellung bekommt. Wenn die Makros aktiviert sind sollte es allerdings eben ausgeblendet sein
Textfeld.visible = False
funktioniert hier aber irgendwie nicht, und ich nehme an deswegen weil es kein textfeld aus der toolbox ist...nur ich kann bei dem textfeld der toolbox den Text nicht individuell formatieren...hmm?

AW: MsgBox mit bezug auf Zellen

20.05.2008 15:58:22

Rudi

Hallo,


Habe nämlich auch nirgends eine Funktion gefunden bei der ich dem Textfeld einen Namen geben könnte.

Textfeld anklicken und im Namenfeld ändern (txtHinweis).
Sheets(1).shapes("txtHinweis").visible=false/ true
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Forumthread: MsgBox mit bezug auf Zellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread