Ich bin zurzeit am Erstellen eines Formulars welches wir nutzen wollen um Informationen für ein Sourcing zu erhalten. Um den Benutzern einen Check zu erlauben, ob alle notwendigen Felder ausgefüllt sind, möchte ich ein Makro schreiben: Suche leere Felder mit HG = bestimmte Farbe, falls vorhanden, MsgBox 1, falls nicht vorhanden MsgBox 2. Hatte gedacht das selbst zusammen zu schustern können. Aber jetzt komme ich doch nicht weiter. Inzwischen ist der Code total simpel und ich habe nun durch try and error verstanden was passiert. Solange alle Felder leer sind, kommt die richtige Nachricht, jedoch reicht schon ein ausgefülltes Pflichtfeld, damit der andere Pfad eingeschlagen wird.
Danke für eure Hilfe.
PS. Wer gerade noch «schnell» einen Code zur Verfügung hat um die Mappe per Knopfdruck an E-Mailadressen (Outlook) zu verschicken, kann sich gerne auch melden (da klappt ebenfalls nichts mit aus den Foren zusammengebasteltem)
https://www.herber.de/bbs/user/142096.xlsm
Sub test()
ActiveWorkbook.Save
Sheets("SRF").Select
Dim c As Range
Application.FindFormat.Interior.Color = "16182237"
Set c = Cells.Find(What:="", lookAt:=xlPart, SearchFormat:=True)
If IsEmpty(c.Value) = True Then
MsgBox ("Please fill all required fields")
Else
MsgBox ("Looks well")
End If
End Sub