Office: Erste Zelle mit bestimmten wert suchen

Hallo zusammen,

ich habe bereits über Google und auch hier im Forum nach einer Lösung für mein sehr spezielles Problem gesucht, leider aber nichts gefunden.

Ich hoffe, ihr könnt mir helfen =)

Um einen Prozess zu optimieren, soll eine Qualitätsregelkarte erstellt werden.

Hierfür habe ich eine Tabelle A1:Cxx mit

Spalte A:Zeitmesspunkte
Spalte B: Istwert
Spalte C: Sollwert

Nun kann die Spalte C Werte von 0 bis zum Sollwert enthalten ( hier: 60)

Ich möchte gerne ein Makro erstellen, das

1. mir die allererste Zeile,bei dem der Sollwert erreicht ist, sucht.

2. die oberen 20 Zeilen über der Sollwerterreichung noch als Messdaten erhalten bleiben - die überschüssigen Zeilen darüber sollen gelöscht werden.

3. Markiere B1:C2085

4. In Diagrammvorlage einfügen (C2*biggrin.gif*2086)


Woran ich mir die Zähne ausbeiße, ist diese Sollwerterreichung-Suche. Ich hab schon Erfahrung mit VBA, aber ich krieg´s einfach nicht hin.

Ihr würdet mir sehr helfen mit einer Lösung*Smilie

Grüße

:)

 

bei mir wird es schon in C5 gefunden. was bedeutet dies

Soll das Suchergebnis von C5 auf C20 geändert werden?

 

Hallo Hajo,

So meinte ich das =)

und alle Zeilen die darüber sind sollen gelöscht werden. (1-75)

 

Ein Bild in Excel geöffnet sieht anders aus als das Bild.
Ich habe kein Tool um ein Bild in Excel zu importieren.
Ich bin dann raus, da ich dieses Tool nicht habe.

 

Hallo Ikaner,

teste es mal damit:

Code:

 

Hallo Uwe,

danke für die schnelle Antwort.=)

hab die Namen der Blätter angepasst, doch leider kommt Laufzeitfehler 1004

"Die Match-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"

Hast du ne Idee, was angepasst werden muss?

noch ne kleine Bemerkung, die wichtig sein könnte: das Diagramm befindet sich auch in der Arbeitsmappe, nur auf einem anderen Blatt

Option Explicit

Sub Zelle_Konvertierung_Click()
Dim lngSoll As Long
With ActiveSheet
lngSoll = Application.WorksheetFunction.Match(60, .Columns(3), 0) - 20
If lngSoll > 0 Then
.Rows("1:" & lngSoll).Delete
End If
Worksheets("Diagramm").Range("C2*biggrin.gif*2086").Value = .Range("B1:C2085").Value
End With
End Sub

 

Hallo,

vielleicht stimmt das Format nicht. Versuche es mal mit

lngSoll = Application.WorksheetFunction.Match("60", .Columns(3), 0) - 20

Oder es gibt keine 60 in Spalte C.

 

Es existiert auf jeden Fall der Wert 60 in Spalte C, die erste Zeile die diesen Wert erreicht und alle C-Zeilen darunter haben ihn.

Hab das in Gänsefüßchen gesetzt jedoch kommt immer noch der Fehler.

Der Konvertierungsbutton befindet sich in einem eigenen Arbeitsblatt.

Im Anhang findest du Bilder dazu kann die Datei leider nicht hier einfügen ist zu groß

 

Also ich hab das ganze jetzt mal ohne Command Button ausprobiert und dann klappt es wunderbar

Echt komisch würde es halt schon gerne über einen Button ansteuern, aber so ist es auch gut =D

Danke für deinen Code ohne dich hätte ich das nie geschafft

 

Hallo,

Du hattest geschrieben, Du hättest die Worksheetnamen angepasst!! ;-)

So sollte es gehen:

Code:

 

Noch ne kleine Ergänzung und die Auswertung noch schneller zu machen:
Wie sag ich dem Programm jetzt noch das er mir in dem Arbeitsblatt "Diagramm" in die Zelle J2 geht (da ist der Wert, der mich interessiert) und diesen kopiert (also so als wenn ich den über Rechtsklick kopiere) ?

 

Application.Goto Worksheets("Diagramm").Range("J2")
ActiveCell.Copy *frown.gif*

 

Vielen vielen Dank *biggrin.gif*

Mit diesem Makro spare ich mir eine Menge Zeit werde es gleich morgen ausprobieren

Also dann gute Nacht*Smilie