Hallo!
Vielleicht könnte mir jemand helfen beim folgenden (VBA) - Problem :
Das Calculate_Ereignis wird dadurch ausgelöst, wenn die jeweilige Zeit (Minuten, Spalte „A“)
der aktuellen Zeit (Minute, Spalte „B“) entspricht.
Somit ist eine Zeile bzw. ein Datensatz immer dann aktuell (ActiveCell.Value), wenn aktuelle Zeit ist.
Die Aufgabe ist die, dass Makro automatisch in die aktuelle Zeile reingehen soll und in dem ganzen
Datensatz (Spalten „B“, „C“, „D“ etc.) die vorhandenen Formeln durch Werte
(ActiveCell.Offset(0, 1).Formula = ActiveCell.Offset(0, 1).Value) ersetzen soll.
Das Problem ist, das in der ersten Zeile ein anderer Wert (neuer Wert) rein soll, damit die endlose Schleife vermieden wird.
D.h., ActiveCell.value = "0" And _ nächste Spalte:
ActiveCell.Offset(0, 1).Formula = ActiveCell.Offset(0, 1).Value And _
ActiveCell.Offset(0, 2).Formula = ActiveCell.Offset(0, 2).Value And _
etc.
UND DAS TUT MEIN KLEINES MAKRO NICHT !!!
ES ERSETZT ENTWEDER DIE ALLERERSTE ZEILENSPALTE (0 REIN) ODER NUR DIE ZWEITE FORMEL!!!
Wie könnte man es richtig codemäßig ausformulieren?
Ich wäre für Ihre / Eure Lösungsvorschläge sehr dankbar!!!
PS: Hier ist das ganze makro
Private Sub Worksheet_calculate() range("A1").Select Dim datewert As Single datewert = range("B1").Value Do Until ActiveCell.Value = "" If ActiveCell.Value = datewert Then _ ActiveCell.Value = 0 ActiveCell.Offset(0, 2).Formula = ActiveCell.Offset(0, 2).Value ActiveCell.Offset(0, 3).Formula = ActiveCell.Offset(0, 3).Value ActiveCell.Offset(0, 4).Formula = ActiveCell.Offset(0, 4).Value Else: ActiveCell.Offset(1, 0).Activate Loop End Sub