Zelle füllen
27.02.2004 21:35:35
Kai
ich möchte in Tabelle1 E4, wenn der Wert <>0 ist, dann soll in Tabelle2 C19 die Zahl 0 automatisch eingetragen werden.
Nun habe ich das Problem, dass ich in Tabelle1 schon folgenden Code stehen habe.
Private Sub Worksheet_Change(ByVal Target As Range)
'Automatisch Doppelpunkt erzeugen!
Dim Zeit$
If Intersect(Target, Range("C7:D16,C23")) Is Nothing Or Target.Count > 1 Then Exit Sub
If Trim(Target) = "" Or Not IsNumeric(Target) Then Exit Sub
ActiveSheet.Unprotect Password:="*****"
Target.NumberFormat = "hh:mm:ss"
Zeit = Trim(Str(Target))
Zeit = Format(Zeit, "00:00:00")
Application.EnableEvents = False
Target = Zeit
Application.EnableEvents = True
ActiveSheet.Protect Password:="*****"
'End Sub
Wenn ich jetzt den Code:
' Wenn in Tabelle1 C7 oder C8 <>0, dann 0 in Tabelle2 C19
If Intersect(Target, Range("C7:C8")) Is Nothing Then Exit Sub
If Target.Value <> 0 Then
Sheets("Tabelle2").Select
Range("C19").Value = 0
End If
End Sub
noch zusätzlich eintrage, so wird durch ---If Intersect(Target, Range("C7:D16,C23")) Is Nothing Or Target.Count > 1 Then Exit Sub--- es nicht möglich, den unteren Code richtig auszuführen. Nun kann ich auch nicht einfach E4 mit in die Klammerwerte (Bezugszellen für autom. Doppelpunkt) eintragen, da es mir sonst auch in E4 den Doppelpunkt erzeugen will, was aber nur eine Zelle wäre, welche mit Zahl formatiert ist.
Das zweite Problem lässt auch nicht auf sich lange warten ;-),
wenn ich den oberen Code -mit dem Automatischen Doppelpunkt erzeugen- schon mal probeweise entferne, dann erhält die Tabelle2 nicht den Eintrag in C19=0 (WENN Tabelle1 E4<>0), weil offensichtlich der Code nicht die Zelle in Tabelle2 findet!? Und ich den Fehler nicht...!
Für eine Lösung bedanke ich mich im Voraus.
Viele Grüße
Kai
PS: Der Wert in Tabelle2 C19 soll anschließend noch zu überschreiben gehen (da weiterrechnen mit anderer Zahl).