VB - MsgBox med flere fejlmeddelelser

Start med at udføredet første check. Hvis der skal gives en meddelelse, gemmer du denne i en streng-variabel. I modsat fald lader variablen stå tom. Fortsæt med næste check på samme måde.

Når alle check er udført, lader du en IF funktion gennemløbe variabler og undersøge om de er tomme, og derefter skriver du de ikke tomme til din MSGBOX.

Nu kender jeg ikke så meget til VB.

If Worksheets("Grund").Range("h16") =  1 Then
  $fejl1 = "Du skal udfylde navn"
End If
If Worksheets("Grund").Range("h17") =  1 Then
  $fejl1 = "Du skal udfylde adressen"
End If

Men hvordan jeg så tjekker variablerne for indhold og derefter lister dem i MsgBox ved jeg ikke. Jeg er mere hjemme i PHP.

If Worksheets("Grund").Range("h16") =  1 Then
  $fejl1 = "Du skal udfylde navn"
End If
If Worksheets("Grund").Range("h17") =  1 Then
  $fejl2 = "Du skal udfylde adressen"
End If
If Len($fejl1) <> 0 Then medtxt = $fejl1
If Len($fejl2) <> 0 Then medtxt = medtxt & vbCrlf & $fejl2

Msgbox medtxt, vbOkOnly + vbCritical

Jeg har rettet lidt, da variablerne åbenbart defineres uden $-tegnet.
Men hvis der ingen fejl er, så vises en tom MsgBox.
Mangler der noget "End if". Jeg har prøvet lidt, men har ikke kunnet løse det.
Koden ser sådan her ud:

Sub Skift_til_Efterløn()
If Worksheets("Grundoplysninger").Range("a47") = 1 Then
  FEJL1 = "Du skal udfylde navn"
End If
If Worksheets("Grundoplysninger").Range("a48") = 1 Then
  FEJL2 = "Du skal udfylde adressen"
End If
If Worksheets("Grundoplysninger").Range("a49") = 1 Then
  FEJL3 = "Du skal udfylde tlfnr."
End If
If Len(FEJL1) <> "" Then medtxt = FEJL1
If Len(FEJL2) <> "" Then medtxt = medtxt & vbCrLf & FEJL2
If Len(FEJL3) <> "" Then medtxt = medtxt & vbCrLf & FEJL3
MsgBox medtxt, vbOKOnly + vbCritical
  Sheets("Grundoplysninger").Visible = True
  Sheets("Grundoplysninger").Select
  Exit Sub
End Sub

Så fik jeg det til at køre, ved nogle mindre omskrivninger.
Koden ser sådan her ud nu:

If Worksheets("Grundoplysninger").Range("a47") = 1 Then
  FEJL1 = "Du skal udfylde navn" & vbCrLf
End If
If Worksheets("Grundoplysninger").Range("a48") = 1 Then
  FEJL1 = FEJL1 & "Du skal udfylde adressen" & vbCrLf
End If
If Worksheets("Grundoplysninger").Range("a49") = 1 Then
  FEJL1 = FEJL1 & "Du skal udfylde tlfnr."
End If
If FEJL1 <> "" Then
MsgBox FEJL1, vbOKOnly + vbCritical

  Sheets("Grundoplysninger").Visible = True
  Sheets("Grundoplysninger").Select
  Exit Sub
End If

Tak for bidragene og inspirationerne. Send venligst et svar.

Jeg mangler lige et svar - så jeg kan tildele point.

Så er det snart lukketid.

Et svar :_)

Det var fint - Tak for hjælpen