@Matthias G und andere: Warnhinweis
02.09.2005 09:35:32
Daniel
Matthias G hatte mir letzte Wochen den unten stehenden Code fertig gestellt.
Nun möchte ich, dass ein Warnhinweis in Form einer Messagebox kommt, wenn in einem der Blätter das aktuelle Datum nicht gefunden wird.
Der Text soll so sein wie: "Achtung in Blatt XXX wurde das Datum nicht gefunden"!.
Wie mache ich das. Wo muss das sein?
Hier noch der Code:
'...
'...
'...
'Summe in Tabelle eintragen:
Dim lz As Long
With Sheets("Gesamtauswertung")
'Suche Datum in Spalte A von Gesamtauswertung
Set z = .Range("A:A").Find(What:=dat)
If z Is Nothing Then
'nicht gefunden, dann neue Zeile anlegen
lz = .Cells(Rows.Count, Ergebnisspalte).End(xlUp).Row + 1
.Cells(lz, 1) = dat
Else
'gefunden, dann diese Zeile verwenden
lz = z.Row
End If
.Cells(lz, Ergebnisspalte) = Summe
End With
End Sub
Danke,
Daniel