Makro aus WENN-Funktion starten

Problemstellung:
In den Zellen einer beliebigen Anzahl Spalten und Zeilen stehen Euro-Beträge. Am Ende der Tabelle ist eine Leerzeile, dann folgen in der nächsten Zeile diverse Summierungen der darüberbefindlichen Werte.
Wird nun in die erste Zelle der freien Zeile zwischen Daten und Summen ein Wert eingetragen, soll beim Verlassen der Zelle die Summenzeile ´"heruntergeschoben" werden, also vor den Summen eine neue Leerzeile entstehen. Da die Zeilenanzahl variabel ist, wird es wohl über ein globales Makro nicht gehen. Ebenso nicht erwünscht ist ein Makro, dass erst gestartet werden muss. Deshalb die Frage, ob es nicht machbar ist, z.B. mit der WENN-Funktion zu prüfen, ob die Zelle einen Wert enthält und als Dann-Wert ein "En tireRow"-Makro aufzurufen.
Ich habe ein wenig im Archiv gestöbert und verschiedene Sachen ausprobiert. "Target" in Verbindung mit einer If-Abfrage funktioniert bei mir nicht. XP-Problem?
Tausend Dank.
HDS
Rundes Dreieck oder machbar?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count &gt 1 Then Exit Sub Application.EnableEvents = False If Cells(Target.Row + 1, Target.Column).HasFormula Then Rows(Target.Row + 1).Insert End If Application.EnableEvents = True End Sub

Hallo, Peter,
danke für die Prozedur. Sie funktioniert, jedoch nicht ganz korrekt. Das kann ich allerdings mit einem kleinen Trick umgehen. - Es geht um Lohnberechnungen. In den Spalten A bis C werden Datum, Anfangs- und Endezeit eingetragen. In den übrigen Spalten stehen diverse weitere Daten; und zwar als Ergebnis von Berechnungen. D.h., in den ersten drei Spalten sind keine Formeln für irgendwelche Berechnungen, in den nächsten schon. Deine Prozedur reagiert nun folgendermaßen: Fülle ich die Spalten mit Datum etc. aus, werden die restlichen Zellen der Zeile AUTOMATISCH gefüllt und die Prozedur bewirkt gar nichts. Setze ich jedoch einen Wert per Tastatur ein, klappt es. Das kann ich, wie gesagt, mit einem Trick lösen. Diese Rückmeldung als Dank an Dich und eventuellem Anreiz zur Optimierung. Ich komme mit der Prozedur jedoch auch so klar.
Danke, Hans-Dieter

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro aus WENN-Funktion starten

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

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread