|
Hallo zusammen,
ich arbeite an einem Auswertetool für eine dynamische Messung. Das heißt ich haben in meinem Sheet fortlaufende Uhrzeiten, die ich gerne per VBA suchen würde um einen Zeitraum von xx:00:00 Uhr bis yy:00:00 Uhr auszulesen. In meinen anderen Spalten sollen dann in diesem Zeitraum verschieden Funktionen und Berechnungen durchgeführt werden.
Nun bin ich bereits soweit, dass ich mir eine Start- und eine Endzeit (definiert als String) in einer Inputbox vorgebe. Allerdings gelingt es mir nicht, dass ich als Ausgabe die Zeilennummer im "Integer- oder Longformat" erhalte um damit diese dann für meine Rechnungen, z.B.:
1 2 3 4 5 | Sub Mittelwerte()
Cells(1, 3) = "=Average(C" & STARTZEILENNUMMER & ": C" & ENDZEILENNUMMER & ")"
End Sub
|
zu verwenden. Ich kann es mir die Zeilennummer nur über eine MsgBox ausgeben lassen. Könnte mir jemand erklären, wie ich diese also Variablen "STARTZEILENNUMMER" und "ENDZEILENNUMMER" definieren muss, um diese beispielhaft für die obige Rechnung zu verwenden. Ich habe mal meinen Code beigefügt, aber ich kann mir vorstellen, dass der auch absolut nicht zielführend ist.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | Sub Umwandlung1()
Dim STARTRANGE As Range
Dim ENDZEILENNUMMER As Long
With Sheets("Tabelle1").Range("A:A")
Set STARTRANGE = .Find(STARTZEIT, LookIn:=xlValues)
If Not STARTRANGE Is Nothing Then
STARTZEILENNUMMER = MsgBox(STARTRANGE.Row, vbOKOnly)
Umwandlung2
End If
End With
End Sub
Sub Umwandlung2()
Dim ENDRANGE As Range
Dim EENDZEILENNUMMER As Long
With Sheets("Tabelle1").Range("A:A")
Set ENDRANGE = .Find(ENDZEIT, LookIn:=xlValues)
If Not ENDRANGE Is Nothing Then
ENDZEILENNUMMER = MsgBox(ENDRANGE.Row, vbOKOnly)
Mittelwerte
End If
End With
End Sub
|
Bisher versteht Excel zwar, dass es einen Mittelwert bilden soll, allerdings nicht in dem von mir gewählten Bereich sondern bei C1 : C0. Entsprechend bekomme ich nur eine Fehlermeldung.
Ich möchte mich jetzt schon ganz, ganz herzlich bedanken und bin für jede neue Anregung dankbar.
Gruß Christoph
|