Messagebox wenn Datum überschritten

[Exceluser1]

Hallo liebe Community,


habe hier mal ein Code:


Private Sub Worksheet_Activate()
 
 Dim Bereich As Range
 Dim Zelle As Range
 
 Set Bereich = Range("J1:J500")
 
 For Each Zelle In Bereich
     If Zelle = "" Then
     'keine Aktion erforderlich
     ElseIf Zelle <= Date And Zelle.Offset(0, 1) = "" Then
         MsgBox "Achtung: Frist zur Maßnahmenumsetzung überschritten - siehe Zelle " & Zelle.Address(False, False)
     End If
 Next
 End Sub


Soweit alles klar. Wie bekomme ich nur hin, dass jetzt die Msgbox nicht die zugehörige Zelle ausgibt, sondern den Inhalt der Zelle (Bei mir D4) bei dem das zugehörige Datum (Spalte J1) überschritten wurde?

Vielen Dank für Eure Hilfe!

[chris-ka]

Hi,

Zelle.value

         MsgBox "Achtung: Frist zur Maßnahmenumsetzung überschritten - siehe Zelle " & Zelle.Address(False, False) & " mit Inhalt: " & Zelle.Value

ok Spalte D ;)
MsgBox "Achtung: Frist zur Maßnahmenumsetzung überschritten - siehe Zelle " & Zelle.Address(False, False) & " mit Inhalt in D: " & Zelle(1, -5).Value

ohne Offset

[Kuwer]

Hallo,

MsgBox "Achtung: Frist zur Maßnahmenumsetzung überschritten - siehe Zelle " & Zelle.Offset(, -5).Value

Gruß Uwe

[Exceluser1]

Hi,

Zelle.value

         MsgBox "Achtung: Frist zur Maßnahmenumsetzung überschritten - siehe Zelle " & Zelle.Address(False, False) & " mit Inhalt: " & Zelle.Value

Hi Chris, danke aber dann kommt das dazugehörige Datum (das überschritten wurde). Ich möchte aber Anzeigen lassen, bei welchem Lieferanten (das steht in der selben Zeile wie das Datum nur in Spalte 4)

[Exceluser1]

hat funktioniert danke!