Meddelsesboks med tekst fra bestemt celle

Skal du bare kalde teksten fra en bestemt celle?

Så kan du måske bruge nedenstående:

Sub TekstFraCelle()
    MsgBox ("Hvem er den bedste? " & Range("B2").Text)
End Sub

Tusind tak - virker fint.
Hvis det er ok med et tillægsspørgsmål:

If ActiveSheet.Range("B14").Value = "" And Range("D14").Value > 1 Then
MsgBox ("Fejl i data i sektion: " & Range("C13").Text)
Exit Sub

Else
    Range("H22").Select
End If
End Sub

....vil jeg gerne undersøge flere celler end B14 (B15, B16, B17) for value ="", men stadig kun D14 for value > 1

Det kan helt sikkert gøres smartere...hvis man er smartere, men kan du ikke bare tilføje de ekstra betingelser?

Sub test()

If ActiveSheet.Range("B14").Value = "" _
    And Range("B15").Value = "" _
    And Range("B16").Value = "" _
    And Range("B17").Value = "" _
    And Range("D14").Value > 1 Then
    MsgBox ("Fejl i data i sektion: " & Range("C13").Text)
Exit Sub

Else
    Range("H22").Select
End If
End Sub

Ok, men det var for at slippe så nemt om ved det som muligt, da dette kun er et af 20 "steder" i regnearket.
Tak for hjælpen - lægger du et svar?

Dette kunne være et alternativ:

Sub test()

If WorksheetFunction.CountIf(Range("B14:B17"), "") = 4 And Range("D14").Value > 1 Then
    MsgBox ("Fejl i data i sektion: " & Range("C13").Text)
Exit Sub

Else
    Range("H22").Select
End If
End Sub

Så må du selv afgøre om du synes det er nemmere...

Fint, kan også bruges - lægger du et svar?

Det var et svar...:-)