AW: Ergänzung/Korrektur
27.02.2007 13:46:00
Fritz_W
Hallo Erich,
zunächst vielen Dank, dass Du mir nochmals Hilfe angeboten hast.
Leider funktioniert das nicht und ich hab jetzt auch ein etwas schlechtes Gewissen (weil ich nicht gleich auf den bereits vorhandenen WorksheetChange Code hingewiesen habe, siehe unten).
Der Code soll in das Modul der Tabelle, in dem neben dem "WorksheetCalculate-Ereignis" auch ein "WorksheetChange-Ereignis-Code" steht (übrigens auch von Dir). Ich hatte geglaubt ("gehofft" wäre vielleicht die zutreffendere Umschreibung), dass die Umsetzung meines letzten "Wunsches" durch die Integration im "WorksheetCalculate Code möglich wäre, was aber nicht der Fall war.
Da zwei WorksheetChangeEreignisse im gleichen Tabellenmodul natürlich nicht funktionieren bin ich nun wieder einmal mit meinem Latein am Ende und auf Deine (Eure) Hilfe angewiesen.
P.S. Weitere Erweiterungen/Änderungen im Modul dieser Tabelle wären dann aber nicht mehr erforderlich!
Gruß und an dieser Stelle nochmals vielen Dank für die Hilfe und das Verständnis!
Gruß
Fritz
Der aktuelle Code im Modul der Tabelle:
Option Explicit
Dim sngT As Single
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zz As Long
Application.EnableEvents = False
If Cells(1, 3) = 1 And sngT = 0 Then
sngT = Timer
ElseIf Cells(1, 3) = 2 And sngT > 0 Then ' C ist 3. Spalte
Cells(18, 13) = Application.Round(Timer - sngT, 1) ' M18 ist cells(18,13)
With Sheets("Tabelle2")
zz = Application.Max(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 5)
.Cells(zz, 1) = Cells(18, 3)
.Range(.Cells(zz, 2), .Cells(zz, 8)) = Range(Cells(18, 11), Cells(18, 17)).Value
End With
sngT = 0
ElseIf Target.Address = "$M$2" Then Range("M3").ClearContents
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Calculate()
Static check As Variant
If IsError(Range("C1")) Then check = 0: Exit Sub
If check <> 1 And Range("C1") = 1 Then Range("C18") = Range("M3")
check = Range("C1").Value
End Sub