Formel nur einmal berechnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Const Bereich = "A4:A52,B4:B52,H4:H52" 'Bereich, der überwacht werden soll (anpassen) Dim rng As Range, z As Range Set rng = Intersect(Target, Range(Bereich)) If Not rng Is Nothing Then If rng(1).Value "" Then 'damit man die Zelle nicht durch die Entf-Taste sperren kann Me.Unprotect Password:="feuer1" rng.Locked = True Me.Protect Password:="feuer1" End If End If On Error GoTo ErrExit If Target.Column = 2 And Target.Count = 1 Then Application.EnableEvents = False Target.Offset(0, 2) = Sheets("Preisentwicklung").Range("D5") End If ErrExit: Application.EnableEvents = True End Sub

Hallo Andre,

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Const Bereich = "A4:A52,B4:B52,H4:H52" 'Bereich, der überwacht werden soll (anpassen)

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo ErrExit
  If Not Intersect(Target, Range(Bereich)) Is Nothing Then
    Application.EnableEvents = False
    With Target
      If .Count = 1 Then
        If .Value <> "" Then 'damit man die Zelle nicht durch die Entf-Taste sperren kann
          Me.Unprotect Password:="feuer1"
          Target.Locked = True

          If .Column = 2 Then .Offset(0, 2) = Sheets("Preisentwicklung").Range("D5")

          Me.Protect Password:="feuer1"
        End If
      End If
    End With
  End If
  ErrExit:
  Application.EnableEvents = True
End Sub

Gruß Sepp

Hi
dabei ist mein Vorschlag genau das richtige für dich.
Lieder kann ich es auf Grund des Schreibschutzes und des fehlenden Passwortes die Datei nicht ändern, aber wenn du in dem Tabellenblatt "Preisentwicklung" in der Spalte A das Datum als richtiges Datum einträgst (also nur "1.7.2005" und nicht "1.7.2005 bis 31.12.2007") dann kannst du im Tabellenblatt "Strom" und "Verbrauch" die zum Datum gehörigen Preise problemlos mit dem SVERWEIS aus der Preisentwicklungstabelle lesen.
falls du doch lieber einen Fix-Wert für den Strompreis haben willst und zu faul bist, diesen von Hand aus der Liste zu kopieren und lieber uns damit belästigts, würde ich einfach dieses Makro in die Tabellenblätter "Strom" und "Verbrauch" kopieren, dann wird per Doppelklick in die Zelle der aktuelle Strompreis eingetragen:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(3, Target.Column).Value = "Preis pro KWh in €" Then
Target.Value = Sheets("Preisentwicklung").Range("D5").Text
Cancel = True
End If
End Sub

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel nur einmal berechnen

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread