Lösche Spalte, wenn Wert sich ändert (2 Tabellen)

Forumthread: Lösche Spalte, wenn Wert sich ändert (2 Tabellen)

12.01.2017 18:35:07

Michael

Hallo Profis,
Ich habe ein Excel Dokument erstellt und bin auf eure Hilfe angewiesen.
Problem:
Ich will, wenn ich in Tabelle 1 (Zelle B6) den Wert ändere (zum Beispiel von 20 auf 35), dann soll Excel automatisch in Tabelle 2 die erste Spalte (Spalte A) löschen.
Beste Grüße
MIchael

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Lösche Spalte, wenn Wert sich ändert (2 Tabellen)

12.01.2017 19:18:19

Hajo_Zi
Ein kurzes VBA

12.01.2017 19:21:40

lupo1
AW: Ein kurzes VBA

12.01.2017 20:23:26

Michael
AW: Lösche Spalte, wenn Wert sich ändert

13.01.2017 08:05:44

Michael
AW: Lösche Spalte, wenn Wert sich ändert

13.01.2017 09:40:42

Peter

Lösche Spalte, wenn Wert sich ändert (2 Tabellen)

12.01.2017 19:18:19

Hajo_Zi

Hallo Michael,
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.Address = "$B$6" Then
Worksheets("Tabelle2").Columns("A:A").Delete
End If
End Sub

Ein kurzes VBA

12.01.2017 19:21:40

lupo1


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then Worksheets("Tabelle2").Columns(1).Delete
End Sub

AW: Ein kurzes VBA

12.01.2017 20:23:26

Michael

Einen schönen Danke an Hajo und Lupo für die schnellen Antworten.
Werde die Codes morgen ausprobieren und eine Rückmeldung geben ob alles funktioniert hat.
BG
Michael

AW: Lösche Spalte, wenn Wert sich ändert

13.01.2017 08:05:44

Michael

Guten Morgen
Habe die Formeln von Ihnen jetzt getestet. Beide funktionieren grundsätzlich.
Besteht die Möglichkeit nur den Inhalt der Spalte und nicht die gesamte Spalte zu entfernen.
Da sonnst meine Formel den Bezug verliert. (Formel bildet Summe aller Zahlen in Spalte A)
BG
Michael

AW: Lösche Spalte, wenn Wert sich ändert

13.01.2017 09:40:42

Peter

Hallo Michael,
probier mal

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then Worksheets("Tabelle2").Columns(1).ClearContents
End Sub

Gruß
Peter (hpo)

Beliebteste Forumthreads (12 Monate)

Lösche Spalte, wenn Wert sich ändert (2 Tabellen)

Forumthread: Lösche Spalte, wenn Wert sich ändert (2 Tabellen)

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread