Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zellinhalt gelöscht, dann Formel

Wenn Zellinhalt gelöscht, dann Formel
16.01.2018 19:15:06
Leo
Hallo ihr Lieben,
ich habe eine Tabelle aus der Formatvorlage (Klickbutton: Als Tabelle formatieren) erstellt.
Nun möchte ich folgendes:
Wann immer man den Inhalt einer Zelle löscht, soll dort bspw. folgende Formel erscheinen: =1+1
Und das soll für jede Zelle einer Spalte möglich sein (bemerke: man soll die Tabelle zeilenmäßig erweitern können und für die neuen Zeilen gilt das selbe Prinzip)
Ist soetwas Verrücktes mit VBA möglich?
Liebe Grüße
LEO

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zellinhalt gelöscht, dann Formel
16.01.2018 19:18:55
Hajo_Zi
Hallo Leo,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target = "" Then
Application.EnableEvents = False
Target.Formula = "=1+1"
Application.EnableEvents = True
End If
End Sub


Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Wenn Zellinhalt gelöscht, dann Formel
17.01.2018 13:55:23
Leo
Hallo Hajo,
das ist schon ein super Anfang.
Zwei Sachen noch:
Geht das mit der letzt Spalte der Tabelle?
Also im Arbeitsblatt wäre die Spalte im Bereich E und in der Tablle ("Tabelle13") steht sie an fünfter Stelle. Die Spaltenzahl variiert nicht.
Zweiter Punkt:
Wenn ich eine Zeile erhöhe in der "Tabelle13" dann kommt eine Fehlermeldung:
Laufzeitfehler '13':
Typen unverträglich
Liebe Grüße
AW: Wenn Zellinhalt gelöscht, dann Formel
17.01.2018 17:13:51
Hajo_Zi
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
keine Ahnung was "Wenn ich eine Zeile erhöhe in der "Tabelle13" dann kommt eine Fehlermeldung:" ist.
Gruß Hajo
Anzeige
AW: Wenn Zellinhalt gelöscht, dann Formel
17.01.2018 17:37:18
Hajo_Zi
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
keine Ahnung was "Wenn ich eine Zeile erhöhe in der "Tabelle13" dann kommt eine Fehlermeldung:" ist.
Gruß Hajo
Anzeige
AW: Wenn Zellinhalt gelöscht, dann Formel
17.01.2018 18:01:12
Leo
Hallo Hajo,
also der erste Punkt ist bereits gelöst:
Wenn man in deinem Code die Zahl hinter "If Target.Column" ändert, dann werden auch andere Spalten angesprochen. Alles soweit wunderbar.
Der zweite Punkt ist leicht und schnell selbst nachzuvollziehen:
Kreiere eine Tabelle mit Hilfe einer Tabellenformatvorlage (unter Reiter "Start" auf "Als Tabelle formatieren" klicken): Sagen wir mal 3 Spalten und 6 Zeilen soll diese Tabelle haben.
Soweit funktioniert dein Code für alle 6 Zeilen der ausgewählten Spalte von dieser Tabelle ganz gut.
Wenn ich nun eine weitere Zeile hinzufügen möchte (also diese Tabelle auf 7 Zeilen erhöhe), dann kommt die Fehlermeldung. Kann man ganz schnell selbst ausprobieren ohne viel eingeben zu müssen.
Anzeige

318 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Anzeige
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Wenn Wert gleich dann Buchstabe ausgeben
Thomas

Hallo,
ich steht gerade total auf dem Schlauch.
Ich habe eine Spalte (A) mit über 300 Werten (ganze Zahlen), diese möchte ich nun mit einer anderen Spalte (E) vergleichen um hier Einträge zu finden, welche in der ersten Spalte ggü der 2ten Spalte nicht vorhanden sind.
Dann sollte ic...
24.11.2009 12:25:40
Thread-ID: 1119703
3 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
VBA: WENN bestimmte Zahl, DANN Zahl, SONST Eingabe
ernst

Hallo VBA Experten
Ich bin Lehrer und kenne mich mit xls recht gut aus, kann jedoch leider kein VBA. Ich habe nun ein Problem, dass m.M. nach nur mit VBA zu lösen ist. Vielleicht kann mir ja wer von Euch helfen:
Ich habe 2 Tabellenblätter (es geht um Skikursteilnahme und -verwaltung):<...
22.12.2009 14:26:44
Thread-ID: 1125569
9 Beiträge
Beginnt mit mit Zahlen | Herbers Excel-Forum
Scicchitano
Hallo,
ich habe ein Problem mit dem Autofilter im VBA-Modus. Ich möchte mit Eingabe in eine TextBox eine Zahl Filtern. Das Ziel ist wenn ich eine 3 eintippe, dass alles was mit 3 beginnt gefiltert wird.
Habe folgender Code:
Dim SpNr As Integer
SpNr = 2 'SuchSpalte A=1
Selection....
21.01.2010 07:47:23
Thread-ID: 1131593
3 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
3
6
11
2
4
9
2
2
8
2
2
6
4
2
2
3
2
4
5
2
9
2
7
8
2