Clever-Excel-Forum

Hallo Grüß euch

Ich habe mit Hilfe eines anderen User , mir eine Liste erstellt. Ich habe eine Tabellenblatt als Eingabemaske erstellt.

Funktioniert Super.
Ein paar kleinigkeiten sind mir noch aufgefallen im zuge des erweiterns (dies fäll immer erst im nachhinein ein)

Jetzt habe ich so einiges dazu gebastelt und es funktioniert Super. Ein paar kleingkeiten hätte ich noch gebraucht.

Kann ich die MSG BOX ( MsgBox kommt wenn ich auf den Button "alle Eingetragene Werte überprüfen"drücke wenn alles passt kommt nichts ist Ok wenn nicht dann==) so definieren das nicht nur "F30 enthält keinen Wert"anzeigt sondern eventuell mit Zusatz wie Bsp."F30(Ammoniak Tank1) enthält keinen Wert" usw.

Was mir noch aufgefallen ist wenn ich alle Werte hole, Es sind alle Werte in den Zellen übertragen aber dies macht er zweimal???

Bezüglich löschen: besteht die möglichkeit das Datum in den Spalten auch zu löschen habe es Versucht hat soweit ja auch funktioniert aber beim löschen öffnet er immer einen Kalender.

Wenn ich auf die den Register mit der Spalte S oder Zeile Tipe öffnert er mir auch den Kalender, kann man das unterbinden.

Siehe Screenshot im Anhang

meine letzte Version habe ich auch hochgeladen.

Hallöchen,

mal step by step ...

Deine Meldung beschwert sich, dass in F30 nix steht. Jetzt wäre die Frage, woher das Makro wissen soll, was da zu melden ist. EIn Ansatz wäre, ein Array mit den Meldungen für die einzelnen Spalten zu bilden, z.B. so

Code:
Dim iCnt%, arrMsg

'...

    arrMsg = Array("Dies", "Jenes", "...")'hier so viele Meldungen definieren wie Bereiche im rng sind

    For Each var In rng

        If var = "" Or IsEmpty(var) Then msg = msg & var.Address(0, 0) & vbLf & arrMsg(iCnt) & " enthält keinen Wert" & vbCrLf

        iCnt = iCnt + 1

    Next

Servus

Danke dir

werde es mal Testen

lg

Crossposting ?

http://www.office-loesung.de/p/viewtopic.php?f=166&t=760494#p3126983

nickchris8

schauan

nickchris8

snb