Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

rechnen beim Verlassen einer Zelle per Makro

rechnen beim Verlassen einer Zelle per Makro
16.03.2013 18:33:39
Peter
Hallo Leute,
ich komme mal wieder nicht weiter !
Ich möchte im VBA Project "DieseArbeitsmappe" eine Funtion schreiben die mir nach verlassen einer Zelle einen Rechenvorgang auslöst.
z.B. A1 * B1 (Return) = C1, Courser - wechselt in die nächte Zelle
Ich habe versucht mit "Workbook_SheetSelectionChange(...)" etwas zu erreichen aber es klappt nicht so ich ich möchte. Der Rechenvorgang findet in der nächsten Zelle statt und nich in der verlassenen Zelle.
Vielleicht habt Ihr einen Tipp für mich.
Gruß, Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Ja, jedes Mal die verlassene Zelle merken, ...
16.03.2013 19:04:32
Luc:-?
…Peter; ;-)
allerdings ist nicht ganz klar, wie die Zellberechnung ausgelöst wdn soll — unmittelbar nach Eintrag in die Zelle, also ihrer Änderung (Workbook_SheetChange bzw zum jeweiligen Blatt Worksheet_Change)? Sonst wäre die Vorzelle bei Eingabeabschluss mit [Return] unter _SelectionChange idR Target.Offset(0, -1), aber das ist zu unsicher. Besser Target in Globalvariabler merken bei _Change und Berechnung auslösen bei _SelectionChange oder gleich bei _Change (ohne merken).
Gruß + schöSo, Luc :-?

AW: rechnen beim Verlassen einer Zelle per Makro
16.03.2013 19:44:26
Tino
Hallo,
vieleicht so?!
kommt als Code in die Tabelle 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rng As Range, varErgebnis, lngOffset& 
Set rng = Intersect(Range("A:B"), Target) 
If rng Is Nothing Then Exit Sub 
 
Application.EnableEvents = False 
Application.ScreenUpdating = False 
On Error Resume Next 
For Each rng In rng.Cells 
    With rng 
        lngOffset = IIf(.Column = 1, 1, -1) 
        If .Value <> "" And IsNumeric(.Value) Then 
            If .Offset(, lngOffset).Value <> "" And IsNumeric(.Offset(, lngOffset).Value) Then 
 
'                'oder als Formel ******************************* 
                varErgebnis = "=RC[-2]*RC[-1]" 
 
'                'als Ergebnis *********************************** 
'                varErgebnis = .Value * .Offset(, lngOffset).Value 
                 
                If Err.Number <> 0 Then varErgebnis = "Error": Err.Clear 'Fehler 
             
            End If 
        End If 
        Cells(.Row, 3).FormulaR1C1 = varErgebnis 
        varErgebnis = Empty 
    End With 
Next rng 
 
Application.EnableEvents = True 
Application.ScreenUpdating = True 
End Sub
Gruß Tino
Anzeige

40 Forumthreads zu ähnlichen Themen

Format beim verlassen
Christian

Hallo,
kann mir jeman sagen warum
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = Format(Time, "hh:mm:ss") End Sub
nicht funktioniert ?
Erhalte Meldung "Falsche Anzahl an Argumenten oder ungültige Zuweisung" !
Christian
05.09.2008 14:42:00
Thread-ID: 1007692
11 Beiträge
Anzeige
alle Blätter beim verlassen in Zelle A1
S.

Hallo zusammen,
ich möchte gern, dass beim Verlassen meiner Excel-Datei alle Blätter
nach oben und links gescrollt werden und zusätzlich alle Blätter in Zelle A1 springen.
Die Anzahl der Blätter ist variabel und ändert sich.
Für eine kurze Hilfe bin ich sehr Dankbar.
Gruß
11.12.2009 14:35:09
Thread-ID: 1123335
5 Beiträge
Replace beim verlassen einer Zelle
Ingrid

Hallo Leute,ich habe eine Excel Tabelle mit Adressen und Problemen.
In dieser Tabelle gibt es Adressen für den deutschen Sprachraum mit umlauten und Adressen für den englischen Sprachraum ohne Umlaute.
Wie kann ich beim Verlassen der Zellen mit einer Adresse für den englischen Sprachraum...
10.04.2002 14:42:58
Thread-ID: 112109
6 Beiträge
Anzeige
Aktion beim Verlassen des Feldes
Riccardo

Hallo Leute,
ich habe da mal eine Frage. Wie kann ich es realisieren, dass eine Aktion erst dann stattfindet, wenn ich eine Zelle geändert habe und diese verlassen will?
Also derzeitige Problemstellung:
Ich habe 2 Felder, die sich gegenseitig beeinflussen. Zusammen dürfen sie Maxima...
07.01.2013 12:50:51
Thread-ID: 1293153
4 Beiträge
Makro beim Verlassen von Zellen bestimmter Spalten
Zellen

Guten Morgen liebe Forengemeinde,
ich steh momentan total auf dem Schlauch und hoffe, dass mir einer von euch schnell auf die Sprünge helfen kann.
Ich möchte gern beim Verlassen der Spalte "B" den Inhalt von Spalte "A" und Spalte "B" in Spalte "C" kombinieren. Das versuche ich mit folge...
21.01.2014 07:20:38
Thread-ID: 1346085
3 Beiträge
Makros aufrufen automatisch beim verlassen Tab.bla
Hepitus

Beim Verlassen eines Tabellenblattes sollen mehrere Makros (oder ein Makro) aufgerufen werden. Wie bekomme ich es hin, dass bei nach Beendigung des Makros, der Cursor sich in dem Arbeitsblatt befindet, welches ich bei Verlassen des bestimmten Arbeitsblattes angeklickt habe.Danke für die Hilfe i...
13.07.2002 11:46:46
Thread-ID: 136255
6 Beiträge
Beim Verlassen der Zelle Teilung durch 100
Ralf

Hallo,wir haben hier ein Problem auf einem Rechner.
Wenn man eine Zahl eingibt und die Zelle dann verläßt, wird der Wert durch 100 geteilt(Bsp.: Eingabe[6], Anzeige in Zelle[0,06]).
Nur die Anzeige ist nicht korrekt, intern rechnet EXCEL richtig.
Eine Neuinstallation, mit vorangegangen...
21.08.2002 11:55:07
Thread-ID: 151051
2 Beiträge
Makro beim Verlassen einer Zelle ausführen
Erich

Hallo,
ich habe folgendes Problem:
Ich möchte einer Zelle in einem bestimmten Bereich beim Auswählen ein bestimmtes Format (Text) zuweisen - das habe ich hinbekommen:
Private Sub worksheet_selectionchange(ByVal wahlzelle As Range) Dim makrobereich As Range Set makrobereich = Range...
15.01.2017 20:44:16
Thread-ID: 1535178
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
4
4
5
2
3
2
5
1
6
4
3
5
4
6
6
3
1
5
4
5
1
7
4
5