MsgBox mit bezug auf Zellen

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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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?

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox mit bezug auf Zellen

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread