Hallo Leute,
ich hab folgendes Problem mit dem ich nicht weiter komme:
ich habe ein Excel-Tabellenblatt, das in den Zellen A1:Cxxx mit Werten gefüllt ist
Spalte A: Zeitmessungen
Spalte B: Istwert
Spalte C: Sollwert
nun soll mit einem Makro, die ersten 5 Zeilen gelöscht werden (also nicht der Inhalt sondern wirklich die Zeilen - ist nur Text der nicht für die Auswertung wichtig ist).
Danach wird die Spalte C markiert und innerhalb dieser wird die erste Zeile, bei der der Wert 60 erreicht wird als Textbox angezeigt.
Soweit kein Problem.
Diese Zeile ist der Start für meine Auswertung. Ich möchte aber noch die 20 Zellen, bevor der Wert 60 erreicht wurde, mit auswerten. (Also z.B. Wert 60 in Zelle C90 erreicht springe in C71)
Der Rest oberhalb von beispielhaft Zeile 71 soll gelöscht werden und das bekomme ich irgendwie nicht hin. =/
Hier mal mein Makro:
Ich hoffe ihr könnt mir helfen =)
Grüße
ich hab folgendes Problem mit dem ich nicht weiter komme:
ich habe ein Excel-Tabellenblatt, das in den Zellen A1:Cxxx mit Werten gefüllt ist
Spalte A: Zeitmessungen
Spalte B: Istwert
Spalte C: Sollwert
nun soll mit einem Makro, die ersten 5 Zeilen gelöscht werden (also nicht der Inhalt sondern wirklich die Zeilen - ist nur Text der nicht für die Auswertung wichtig ist).
Danach wird die Spalte C markiert und innerhalb dieser wird die erste Zeile, bei der der Wert 60 erreicht wird als Textbox angezeigt.
Soweit kein Problem.
Diese Zeile ist der Start für meine Auswertung. Ich möchte aber noch die 20 Zellen, bevor der Wert 60 erreicht wurde, mit auswerten. (Also z.B. Wert 60 in Zelle C90 erreicht springe in C71)
Der Rest oberhalb von beispielhaft Zeile 71 soll gelöscht werden und das bekomme ich irgendwie nicht hin. =/
Hier mal mein Makro:
Visual Basic:
Sub Zelle_Konvertierung_Click()
'
' Zellen_Konvertierung Makro
'
'
Sheets("Rohdatei").Select
ActiveSheet.Rows("1:5").Select
Selection.Delete Shift:=xlUp
'Sollwert in Spalte C suchen
Sheets("Rohdatei").Select
ActiveSheet.Columns("C:C").Select
With ActiveSheet.Range("C1:C10000")
Set c = .Find(What:="60")
End With
MsgBox c.Row
ActiveSheet.Rows("1:c").Select
Selection.Delete Shift:=xlUp
End Sub
Ich hoffe ihr könnt mir helfen =)
Grüße
Zuletzt bearbeitet von einem Moderator: