Ron001

Allen Ik maak sinds enige "automatisch" e-mails aan met onderstaande code. Nu zou ik graag hebben dat (identiek dezelfde) tabel uit bijlage mee in e-mail komt? Dat is dus mijn probleem, kan dit? Sub Vrijgave() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "<font size=""3"" face=""Calibri"">" & _ "Allen<br><br>" & _ "Wanneer kunnen we onderstaande machine " & _ 'BV HIER DE TABEL "<font color = #FF0000>" & _ " een ganse ploeg (8 uur) " & _ "</font>" & _ "onderhoud? " & _ "<br><br><br><br>Mvg " & _ "<br><br>Ron" On Error Resume Next With OutMail .To = "adressen" .CC = "adressenm" .BCC = "" .Subject = "Onderwerp" .HTMLBody = strbody .Display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub M2.xlsx

I know, maar ik geef dit niet in... 2 andere gebruikers, maar kom hier wel uit..... Bedankt!

Daarom dat ik dus nog steeds een VBA-stukje moet gebruiken...

Je hebt gelijk, ik ga het niet moeilijker maken dan nodig... Ga validatie behouden... Alleen was ik net aan het testen en krijg ik bij het kopiëren van een tweede snel/lak geen foutmelding....

Via VBA lukt me dit normaal wel... Maar VBA samen met gegevensvalidatie? Kan je mss een voorzetje geven?

Ik wil de gebruiker niet persoonlijk aanspreken, maar wel de naam weergeven in de foutmelding van de persoon die al aangeduid is... Hierboven was inderdaad beetje fout, gebruiker = medewerker

Jawel, maar kan ik iets aanpassen zoals in VBA? Hier kan ik enkel iets typen... bv:Gebruiker x (Range B is al reeds aangeduid als Lakstraat

Kan ook de loonnummer terug komen te staan wanneer men verandert van "snel/lak"?

@ Alpha Werkt inderdaad zeeeer goed en veel simpeler als VBA.... Top! Laatste vraag: Waar kan ik de foutmelding/foutmeldingstekst aanpassen? Normaal deed ik dat via MsgBox in Vba maar nu.... Alvast hartelijk bedankt!!!!!

Er kan in de range (per ploeg) maar één iemand Lakstraat doen en één iemand Sneldienst... Vanaf dat er iemand staat met die code, zou er geen tweede toegevoegd mogen worden...Want er wordt steeds maar één technieker voorzien...

Dit werkt inderdaad in de cellen ernaast (maar precies niet altijd)... Maar is VBA niet handiger (als de andere gebruikers per toeval wat aan de opmaak zitten ofzo, formule weg, resultaat weg...) Daarom dat ik via VBA er iets bij in zou willen van max 1 "SNEL" en "LAK" per range. Dat de tweede "SNEL" en "LAK" per range niet wordt bijgehouden... En een foutmelding (MsgBox): Gebruiker xxx is al aangeduid... Via VBA kan ik dan ook "SnEl", "snel", alle schrijfvormen opvangen (LCase...) Mvg Ron

Krijg foutmelding.... "U kunt geen matrixformules opgeven voor samengevoegde cellen."

Sorry....

Had ik al gedaan, want code staat in onderstaande... Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Maar blijft vastlopen op: Set myrange = Union(Range("A17:A26"), Range("A28:A35")) Morgen nog wat testen, ben het ff beu

Als ik de . voor de Range's weghaal, krijg ik deze foutmelding nimmer... Maar dan volgende foutmelding: te weining stackruimte... Nog wat proberen...