Hallo Pete, siehe meine Antwort zu deinem Schreiben vom 21.03.
Holger schrieb am 21.03.2009 20:22:23:
Hallo Holger,
ich scheitere immer beim Einfügen deines Prgrammes. Es erstellt zwar das neue Tabellenblatt aber die Spaltenüberschrift sowie die Auswertung wird nicht angezeigt.
Der grüne Bereich im Orginal tabellenblatt soll weiterhin erhalten bleiben.
Ich hab ja dein Programm geringfügig geändert. Hier das von mir abgeänderte Orginal, welches einwandfrei funktioniert.
Vielleicht siehst du den Fehler eher mit deinem geschulten Blick. Bin gespannt an was es liegt.
Sub Eingeben(text, wert)
Static t
t = text
Do
wert = InputBox(t, Messwerte, wert)
t = text + vbCrLf + "Geben Sie einen vernünftigen Wert ein!"
Loop While wert = ""
End Sub
Sub messungen()
Eingeben "Geben Sie den MinGrenzwert ein!", ming
ming = CDbl(Replace(ming, ".", ","))
Eingeben "Geben Sie den MaxGrenzwert ein!", maxg
maxg = CDbl(Replace(maxg, ".", ","))
Do
Eingeben "Geben Sie ein Datum Zeitraum von bis ein! (Format: tt.mm.jjjj - tt.mm.jjjj)", Datum
Loop Until InStr(Datum, "-")
Do
Eingeben "Geben Sie Uhrzeit Zeitraum von bis an! (Format: hh:mm - hh:mm)", uhr
Loop Until InStr(uhr, "-")
Eingeben "Bitte geben Sie die Spalte an, in der Messwerte überprüft werden sollen.", sp
dvon = CDate(Trim(Left(Datum, InStr(Datum, "-") - 1)))
dbis = CDate(Trim(Mid(Datum, InStr(Datum, "-") + 1)))
uvon = CDate(Trim(Left(uhr, InStr(uhr, "-") - 1)))
ubis = CDate(Trim(Mid(uhr, InStr(uhr, "-") + 1)))
Cells.Interior.ColorIndex = xlNone
sp = Columns(sp).Column
For i = 1 To Cells(Rows.Count, sp).End(xlUp).Row
a = Cells(i, 1)
b = Cells(i, 2)
If a >= dvon And a = uvon And b = ming And Cells(i, sp) <= maxg Then
Cells(i, sp).Interior.Color = vbGreen
Else
Cells(i, sp).Interior.Color = vbRed
End If
Next i
End Sub
Grüße Pete |