Hallo pete,
ersetze
Eingeben "Bitte geben Sie die Spalte an, in der Messwerte überprüft werden sollen.", sp
durch
Eingeben "Bitte geben Sie die Spalte an, in der Messwerte überprüft werden sollen.", sp
nName = Inputbox("Geben Sie ggf. den Namen für ein neues Tabellenblatt für die gefundenen " + _
"Werte ein. Wird kein Name eingegeben, wird kein neues Tabellenblatt angelegt")
If nName <> "" Then
aName = activesheet.Name
Set NewSheet = worksheets.Add
NewSheet.Name = nName
Columns(1).NumberFormat = "m/d/yyyy"
Columns(2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
Cells(1, 1) = "Datum"
Cells(1, 2) = "Uhrzeit"
Cells(1, 3) = "Messwert"
Sheets(aName).Activate
End If
und
If Cells(i, sp) >= ming And Cells(i, sp) = ming And Cells(i, sp) <= maxg Then
Cells(i, sp).Interior.Color = vbGreen
c = Sheets(nName).Cells(Rows.Count, 1).End(xlUp).Row+1
Sheets(nName).Cells(c, 1) = Cells(i, 1)
Sheets(nName).Cells(c, 2) = Cells(i, 2)
Sheets(nName).Cells(c, 3) = Cells(i, sp)
Gruß
Holger
pete schrieb am 20.03.2009 16:18:19:
Hallo Holger,
spitzen Klasse, dass Programm läuft wie ne eins, musste es nur ganz minimal verändern.
Danke dafür!
Nun soll eine weitere Funktion eingebaut werden.
Der gün gefärbte Bereich aus der ersten Abfrage soll nun in einem neuen Tabellenblatt geöffnet werden. Im neuen Tabellenblatt soll das Datum, Uhrzeit und die Spalte die grün markiert ist bzw. die in der Abfrage eingeben(Inputbox) worden ist übernommen werden.
Beim anlegen des Tabellenblattes soll abgefragt(mit Inputbox) werden, wie das neue Tabellenblatt heißen soll.
Grüße und schönes Wochenende
Pete |