Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zellwert löschen bzw. rückgängig

Forumthread: VBA Zellwert löschen bzw. rückgängig

VBA Zellwert löschen bzw. rückgängig
13.06.2017 23:10:37
Boris
Hallo zusammen,
ich weiß gar nicht, ob mein Anliegen überhaupt umsetzbar ist; ich beschreibe es einfach mal.
In Zelle D3 wird ein Wert (eine Zahl) eingetragen. Nun soll der Wert in genau dieser Zelle gelöscht werden, wenn in Zelle K3 = "storniert" steht.
Soweit noch alles ok.
Nun möchte ich aber, falls man fehlerhaft "storniert" eingegeben hat, dass in der Zelle D3 wieder der ursprüngliche Wert eingetragen wird, sobald man "storniert" in K3 wieder löscht.
Kann man den Wert aus D3 per VBA irgendwie in einer anderen Zelle zwischenspeichern und für's wiederherstellen nutzen?
Wenn das geht, dann soll es auch noch für D3 bis D1007 gelten in Abhängigkeit zu K3 bis K1007.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellwert löschen bzw. rückgängig
14.06.2017 06:23:25
fcs
Hallo Boris,
mit einem Ereignismakro,das Eingaben in Zellen überwacht kann man dies bewerkstelligen.
LG
Franz 
'Ereignismakro - Im VBA-Editor im Code-Modul des Tabellenblatts einfügen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Dim SpaMerker As Long, SpaZahl As Long
Dim StatusCalc As Long
Dim Zeile As Long
SpaMerker = 12 'Spalte L - Spalte in der Werte aus Werte-Spalte gemerkt werden, ggf.  _
anpassen
SpaZahl = 4    'Spalte D - Spalte mit zu stornierenden Werten, ggf. anpassen
Select Case Target.Column
Case SpaZahl
'Eingabewert in die Merk-Spalte übertragen
If Target.Row >= 3 Then
'Makrobremsen lösen
With Application
.EnableEvents = False
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
For Each rngZelle In Target.Columns(1).Cells
Zeile = rngZelle.Row
Me.Cells(Zeile, SpaMerker).Value = Me.Cells(Zeile, SpaZahl).Value
Next
'Makrobremsen zurücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End If
Case 11 'Spalte K - Spalte in der storniert wird
'Wert aus Wert-Spalte in Merkspalte übertragen und Inhalt in Zelle der Wert-Spalte  _
löschen
If Target.Row >= 3 Then
'Makrobremsen lösen
With Application
.EnableEvents = False
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
For Each rngZelle In Target.Columns(1).Cells
Zeile = rngZelle.Row
Select Case rngZelle.Value
Case ""
Me.Cells(Zeile, SpaZahl).Value = Me.Cells(Zeile, SpaMerker).Value
Case "storniert"
Me.Cells(Zeile, SpaMerker).Value = Me.Cells(Zeile, SpaZahl).Value
Me.Cells(Zeile, SpaZahl).ClearContents
Case Else
'do nothing
End Select
Next
'Makrobremsen zurücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End If
Case Else
'do nothing
End Select
End Sub

Anzeige
AW: VBA Zellwert löschen bzw. rückgängig
14.06.2017 22:43:08
Boris
Hallo Franz,
erst einmal vielen Dank für die Mühe und die rasche Antwort.
Leider klappt es irgendwie nicht.
Ich habe deinen Code so übernommen. Ich habe nur SpaMerker auf 14 gesetzt, da in Spalte L bereits Daten vorhanden sind.
Dann habe ich deinen Code ins Tabellenblatt 2 kopiert, wo die Berechnungen auch stattfinden.
Vielleicht mache ich hier etwas falsch. Ich habe ab "Option Explicit" alles kopiert und ins Code-Modul kopiert.
Frage: In deinem Code schreibst du an zwei Stellen Target.Columns(1).Cells. In Spalte 1 habe ich aber nichts stehen.
Habe es an den entsprechenden Stellen auch mal mit Target.Columns(4).Cells (Spalte D) versucht.
Geht auch nicht.
Anzeige
AW: VBA Zellwert löschen bzw. rückgängig
14.06.2017 22:55:05
Boris
Hallo noch einmal,
das Problem muss irgendwo in meiner Datei liegen.
Habe deinen Code in einer neuen Blanko-Excel Datei getestet und da klappt alles wie gewünscht.
Ich schau mal, ob ich den Fehler finde.
AW: VBA Zellwert löschen bzw. rückgängig
14.06.2017 23:07:39
Boris
Hallo Franz,
wende mich erneut an dich mit der Hoffnung auf Hilfe.
Ich habe in meiner Datei von Spalte C bis Spalte K den Autofilter aktiv.
Sobald ich eine Filter gesetzt habe, funktioniert deine Formel leider nicht mehr.
Ich hoffe du hast noch eine Idee ;-)
Gruß
Boris
Anzeige
AW: VBA Zellwert löschen bzw. rückgängig
15.06.2017 00:18:09
fcs
Hallo Boris,
mit den folgenden Anpasungen funktioniert es auch mit gesetztem Autofilter.
Du musst den Bereich des Autofilers bis zur Spalte mit den gemerkten Werten erweitern. Sonst gibt es Probleme, wenn du Daten im Autofilter-Bereich sortierst.
Gruß
Franz
'Ereignismakro - Im VBA-Editor im Code-Modul des Tabellenblatts einfügen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Dim SpaMerker As Long, SpaZahl As Long
Dim StatusCalc As Long
Dim Zeile As Long
SpaMerker = 14 'Spalte N - Spalte in der Werte aus Werte-Spalte gemerkt werden, ggf.  _
anpassen
SpaZahl = 4    'Spalte D - Spalte mit zu stornierenden Werten, ggf. anpassen
Select Case Target.Column
Case SpaZahl
'Eingabewert in die Merk-Spalte übertragen
If Target.Row >= 3 Then
'Makrobremsen lösen
With Application
.EnableEvents = False
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
For Each rngZelle In Target.Cells
If rngZelle.Column = 11 Then
Zeile = rngZelle.Row
Me.Cells(Zeile, SpaMerker).Value = Me.Cells(Zeile, SpaZahl).Value
End If
Next
'Makrobremsen zurücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End If
Case 11 'Spalte K - Spalte in der storniert wird
'Wert aus Wert-Spalte in Merkspalte übertragen und Inhalt in Zelle der Wert-Spalte  _
löschen
If Target.Row >= 3 Then
'Makrobremsen lösen
With Application
.EnableEvents = False
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
For Each rngZelle In Target.Cells
If rngZelle.Column = 11 Then
Zeile = rngZelle.Row
Select Case rngZelle.Value
Case ""
Me.Cells(Zeile, SpaZahl).Value = Me.Cells(Zeile, SpaMerker).Value
Case "storniert"
Me.Cells(Zeile, SpaMerker).Value = Me.Cells(Zeile, SpaZahl).Value
Me.Cells(Zeile, SpaZahl).ClearContents
Case Else
'do nothing
End Select
End If
Next
'Makrobremsen zurücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = StatusCalc
End With
End If
Case Else
'do nothing
End Select
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Array benennen nach Zellwerten
chris

Hallo VBA Experten,guten morgen.
habe eine frage und zwar wie ist es möglich ein Array zu benennen ?
Momentan habe ich es so...
Dim kriterien(20)
Dann wenn ich in den Debugger gehe steht dort
kriterien(0)
kriterien(1)
kriterien(2)
usw...
Wie erreiche ich es...
13.08.2008 06:52:02
Thread-ID: 1001351
5 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Anzeige
Tb.Blatt nach Zellwert speichern
Peter

Guten Morgen allerseits,
mir raucht als VBA Neuling der Schädel, vielleicht könnt Ihr mir helfen. Ich versuche Tabelle 2 in Abhängigkeit einer Zelle in Tabelle 1 in einem bestimmten Ordner zu speichern, wobei das speichern erst
zulässig sein darf wenn alle einzugebenen Daten vorhanden s...
28.08.2008 09:50:00
Thread-ID: 1005302
3 Beiträge
Zellwerte zählen
Markus

Hallo,
ich habe folgendes Problem:
Spalte 1 Spalte 2
Probe 1 DAD
Probe 1 DAD
Probe 1 TIC
Probe 1 XIC
Probe 2 DAD
Probe 2 DAD
Probe 2 DAD
Probe 2 TIC
Probe 2...
29.08.2008 13:45:00
Thread-ID: 1005821
4 Beiträge
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Anzeige
Entspricht doppeltes Hochkomma Zellwert >0?
Jesko

Hallo an alle,
wer kann mir sagen, welchem Zellwert das doppelte Hochkomma entspricht.
Hier der Zusammenhang:
In Spalte K meiner Tabelle wird ein Liefertermin genannt (Format: TT.MM.JJJJ).
In Spalte S ist der tatsächlich erreichte Liefertermin aufgeführt (Format wie oben).
I...
15.09.2008 17:51:31
Thread-ID: 1009863
6 Beiträge
Zellwert übertragen
chrissey

Hallo Leut,
hab ne relativ allgemeine Excelfrage. Kann man bei Klick auf eine Zelle den Zellwert auf eine andere
Zelle übertragen. Also angenommen ich habe folgenden Zellbereich:
A
1 Hans
2 Peter
3 Klaus
4 Thomas
5...
30.09.2008 08:24:00
Thread-ID: 1013243
3 Beiträge
Datum in Abhängigkeit eines Zellwertes setzten
Tom

Guten Morgen,
Ich hab hier ein aktuelles Problem das ich schnellstens lösen muss.
Meine Tabelle besteht aus den Spalten A bis Q. In Spalte P wird ein "X" eingetragen was den Datensatz in ein neues Tabellenblatt kopiert was auch super funktioniert.
Nun möchte mein Chef das wenn das "...
07.10.2008 07:37:00
Thread-ID: 1014581
6 Beiträge
Excel-Zellwert in Word einfügen
Alexander

Hallo zusammen,
tolles Forum.
Ich habe folgendes Problem: Ich habe ein Word-Dokument mit Formular-Felder.
Diese sollen mit Werten aus einer Excel-Tabelle gefüllt werden.
Der VBA-Code muss im Word-Dokument stehen.
ActiveDocument.FormFields("text1").Result = workbooks("Mappe1....
23.10.2008 21:31:00
Thread-ID: 1018804
6 Beiträge
Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Zeilenwerte abhängig von Zellwert
Zellwert

Hallo Excelfreunde,
wie lässt sich folgendes bewerkstelligen?
Im Zellbereich A2:A13 stehen fortlaufend die Zahlen 1 bis 12. Wenn ich nun in die Zelle A1 die Zahl 1 eingebe, soll mir in B1 der Zellwert derjenigen Zelle der Spalte B aus derjenigen Zeile, in der in Spalte A die Zahl 1 steh...
31.12.2008 15:52:08
Thread-ID: 1036162
6 Beiträge
Zeilen löschen mit Zellwert über...
Norbert

Hallo,
habe folgende Frage:
Wie schreibt man als Makro: lösche alle Zeilen deren Inhalt in Spalte K kleiner 180 ist.
Besten Dank für RüA!
27.01.2009 17:46:00
Thread-ID: 1044330
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige