Zellenwerte erhalten und Aktualisierungschleife

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Calculate() Dim dblWert As Double, i As Byte i = Sheets("B").Range("B11").End(xlUp).Row + 1 If i < 3 Then i = 3 dblWert = Sheets("A").Range("D1").Value If i <= 10 Then Sheets("B").Range("B" & i).Value = dblWert Else Sheets("B").Range("B3:B10").Clear i = 3 Sheets("B").Range("B" & i).Value = dblWert End If End Sub

Private Sub Worksheet_Calculate() Dim dblWert As Double, i As Byte i = Sheets("B").Range("B11").End(xlUp).Row + 1 If i < 3 Then i = 3 dblWert = Sheets("A").Range("D1").Value If dblWert <> Sheets("B").Range("B" & i - 1).Value Then If i <= 10 Then Sheets("B").Range("B" & i).Value = dblWert Else Sheets("B").Range("B3:B10").Clear i = 3 Sheets("B").Range("B" & i).Value = dblWert End If End If End Sub

Hallo Rüdiger,
. . .ABER! Wenn ich die Berechnung in dem anderen Blatt mache, dann werden die Daten des ersten Blattes nicht mit aktualisiert (vice versa geht es)erstaunlicherweise
Das liegt daran, dass das Makro eine blattgebundene Ereignisprozedur ist. Du kannst dir durchaus auch in das andere Blatt eine Prozedur reinschreiben, die arbeitet dann eben auch "nur" im anderen Blatt.
Zu deiner Zusatzfrage: Schreibe in Blatt"A" in A6 den Monat, in A7 das Jahr. Wechsle nun auf Blatt"B". Klicke mit der rechten Maustaste auf einen freien Platz der Menüzeile (z.B. rechts neben dem ?). Es müsste ein Kontextmenü aufgehen, in dem du u.a. "Steuerelement-Toolbox" anwählst. Fahr da mal vorsichtig mit der Maus drüber, bis du "Umschaltfläche" gefunden und aktiviert hast. Nun ziehe deinen Button an die von dir gewünschte Stelle in das Blatt"B".
Jetzt bitte doppelt auf auf "ToggleButton1" klicken; du landest in der Entrwicklungsumgebung und müsstest bereits das Gerippe des folgenden Makros sehen:


Private Sub ToggleButton1_Click()
With ToggleButton1
If ToggleButton1 Then
.BackColor = vbGreen
.Caption = "Monat"
Range("G3") = Sheets("A").Range("A6")
Else
.BackColor = vbRed
.Caption = "Jahr"
Range("G3") = Sheets("A").Range("A7")
End If
End With
End Sub

Wenn die Ausgabe nicht in G3 erfolgen soll oder dir die Farben nicht zusagen, dann je nach Gusto anpassen.
Viel Erfolg
Roland

Hallo Roland,
tja, je komplexer die Fragestellungen, umso schwieriger die Beschreibungen. Erst einmal vielen Dank für Deine Geduld.
Selbst auf die Gefahr hin, Dich mit meinen Anfragen tendenziell "überzustrapazieren" -was ich nicht hoffe - versuch ich das Ganze noch etwas zu konkretisieren.
A) Ist es (ohne allzu großen Aufwand) möglich, die Prozedur auf die gesamte Arbeitsmappe zu "portieren"? Ich kann ja theoretisch den Code auch in die Arbeitsmappe einfügen.
Hab ich auch versucht, geht aber nicht (zu blöd?)
B) Dieser Button soll eine Auswahl der "zur Berechnung herangeszogenen Formel" ermöglichen. Will sagen, bei "if" soll er die "Jahr Prozedur" (der Originalcode), und bei "else" die "Monatsprozedur" - also die "gleiche Prozedur, nur eben mit anderen
"Ranges" des Ursprungsblattes ausführen. Die restlichen "Aktionen" der
Ursprungsscripts sollen ein und dieselben bleiben.
Ich denke, der Buttoncode von Dir bezieht sich nur auf bestimmte Zellen, nicht aber
auf die Prozedur. Sorry, wenn ich mich da unklar ausgedrückt habe.

Na? Tut es Dir schon leid, überhaupt auf meinen Beitrag geantwortet zu haben? Ich
hoffe nicht, daß das alles schon zu viel ist ;-(

mfg
Rüdiger

Beliebteste Forumthreads (12 Monate)

Zellenwerte erhalten und Aktualisierungschleife

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenwerte erhalten und Aktualisierungschleife

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread