Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA wenn Zellen sich ändern, dann

VBA wenn Zellen sich ändern, dann
09.02.2016 23:12:33
steffi-gott
Hallo
ich bin auf der Suche nach folgenden VBA Code
wenn in den Zellen K9:K700 eine Veränderung eintritt, es ändert sich der Text, also der Inhalt dann ...
in diesem Fall lege ich ein Backup von der Excel Tabelle an
kann mir da jemand weiterhelfen
Danke BG

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

Betreff
Datum
Anwender
Anzeige
AW: VBA wenn Zellen sich ändern, dann
09.02.2016 23:33:21
MatthiasG
Hallo Steffi,
ins Modul des Tabellenblattes: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
If Not Intersect(Target, Range("K9:K700")) Is Nothing Then
MsgBox "Geändert"
'hier Code oder Prozeduraufruf
End If
End Sub

Gruß Matthias

AW: VBA wenn Zellen sich ändern, dann
09.02.2016 23:55:51
steffi-gott
Hallo Matthias
Danke für die schnelle Antwort,
Funktioniert sehr gut,
aber ein kleines Problem,
wenn ich eine ganze neue Zeile einfüge oder eine löschen wird dieses Makro auch ausgeführt und dadurch auch ein Backup erstellt,
lässt sich dieses abstellen oder so,
Danke BG

Anzeige
AW: VBA wenn Zellen sich ändern, dann
10.02.2016 21:06:09
MatthiasG
Hallo,
wie verändert sich denn der Bereich K9:K700, wenn Zeilen (oder auch Spalten?) eingefügt/entfernt werden?
Gruß,
Matthias

AW: VBA wenn Zellen sich ändern, dann
11.02.2016 05:29:06
steffi-gott
Hallo Mattias,
ich kann dir diese Frage nicht beantworten.
hier noch einmal DEIN Code mit MEINER Erweiterung
If Not Intersect(Target, Range("R9:R700")) Is Nothing Then
UserId = Environ("Username")
BackUpName = "E:mein speicherort" & ThisWorkbook.Name & "_" & _
Date & "_" & Format(Time, "hhmmss") & "_" & UserId & "_" & ".xlsm"
ThisWorkbook.SaveCopyAs Filename:=BackUpName
'Application.ScreenUpdating = True
End If
im Anschluß MEIN Code um neue Zeile einzufügen
Application.ScreenUpdating = False
Dim rngC As Range
Dim LCol As Long
With ActiveSheet
LCol = .Cells(5, Columns.Count).End(xlToLeft).Column
.Rows(4).Hidden = False
.Rows(4).Copy
Selection.Insert Shift:=xlDown
For Each rngC In Intersect(Selection, _
.Columns("A:" & Chr(LCol + 64)))
If Not rngC.HasFormula Then
rngC.ClearContents
End If
Next
.Rows(4).Hidden = True
End With
Application.ScreenUpdating = True
Zeile löschen ganz normal über rechte Maus und dann Kontexmenü
und auch hier werden dann immer Backups angelegt, weil eben eine neue "K-Zelle" hinzu kommt oder gelöscht wird
Danke für deine Hilfe

Anzeige
AW: VBA wenn Zellen sich ändern, dann
11.02.2016 23:10:51
MatthiasG
Hallo Steffi,
Meine Frage ist: wenn eine Zeile eingefügt oder gelöscht wird, muss dann der Bereich angepasst werden (also beim Einfügen dann "K9:K701")?
Es gibt kein Event für Zeilen/Spalten einfügen oder löschen, das zuverlässig abzufragen ist kompliziert und übersteigt meine Fähigkeiten... und lohnt sich auch nicht, oder? Offenbar werden sehr oft Backup-Dateien erzeugt, bei jeder Änderung in Spalte K. Da kommt's doch auf die paar unnötiger zusätzlicher Backups nicht an, oder? :-)
Gruß
Matthias

19 Forumthreads zu ähnlichen Themen

VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Anzeige
Wenn berechneter Zellwert sich ändert dann Makro
Stefan

Hallo liebe Leute,
ich hänge seit Tagen fest, komme nicht weiter, langsam frage ich mich ob das überhaupt funktioniert? Aufgabe: Wenn sich ein Zellwert (A3) ändert, soll ein Makro aufgerufen werden. Das Besondere, der Zellwert A3 wird berechnet (=A1+A2). Ich habe mit "Worksheet_Calculate" r...
16.11.2014 07:20:33
Thread-ID: 1392614
9 Beiträge
VBA Wenn Datum in Zelle, dann summieren...
Susanne

Hallo,
in Spalte A habe ich Rohdaten mit Datum (ein Datum kommt immer mehrmals vor). In einem zweiten Tabellenblatt habe ich das Datum für jeweils einen Tag in einer Spalte aufgelistet.
Nun möchte ich, dass wenn z.B. der 20.10.2014 mehrmals im ersten Tabellenblatt ist, diese Zeilen gezä...
18.12.2014 10:36:32
Thread-ID: 1398826
6 Beiträge
Anzeige
Hintergrund ändern wenn sich Wert ändert
Oisse

Hallo Zusammen,
mir stellt sich folgendes Problem:
Wenn sich der Einzelpreis ändert (Spalte J) dann soll sich die Hintergrundfarbe ändern in Spalte S.
Das funktioniert soweit auch gut.
Der Code: If Target = Range("J" & Target.Row) Then Range("S" & Target.Row).Interior.C...
30.05.2016 13:02:33
Thread-ID: 1495902
7 Beiträge
Wenn sich Wert ändert, Datum in Zeile eintragen
T1M0

Hallo liebe Community,
in einer Exceltabelle möchte ich in Spalte FF automatisiert das Datum eintragen lassen, sobald ein neuer Wert in Spalte D eingetragen wird oder sich der Wert in Spalte D ändert. Die Eintragung sollte zeilenscharf erfolgen: ändert sich der Wert in Spalte D4 sollte das...
16.05.2017 17:12:56
Thread-ID: 1558695
3 Beiträge
VBA WENN Datenüberprüfung sich ändert DANN
DJRidoo

Hallo,
ich habe mittels Daten -- Datenüberprüfung -- Liste (Werte werden dort ins Feld eingegeben und werden nicht aus Zellenbezug übernommen) eine Auswahlliste erstellt. Zur Auswahl stehen:
vorhanden
nicht vorhanden
wird gekauft
Nun möchte ich, dass wenn ich eines der drei...
23.05.2018 22:45:29
Thread-ID: 1625425
7 Beiträge
VBA wenn bestimmter Wert in Zelle dann schreiben
Florian

Hallo Zusammen,
ich benötige eure Hilfe. Ich bin in VBA leider nicht mehr wirklich fit und stehe nun echt auf dem Schlauch bei meiner Excel Tabelle.
Zur Erläuterung:
Ich habe eine Tabelle in welcher ich Daten aufnehmen will, ähnlich wie ein Ticketsystem. Bekomme ich also ein Ticket...
15.10.2018 13:36:38
Thread-ID: 1651295
2 Beiträge
VBA Wenn Zelle belegt dann nächste...
Erik

Hallo zusammen,
ich habe folgenden Code:
Sub Rueckgabeantrag() Dim Rueckgabe As String Dim intLZ As Integer Dim i As Integer Dim j As Integer Dim Finish As String Dim Menge As String Dim Zähler As Long With Sheets("Kundenteile") intLZ = .Cells(Rows.Count, 16).End(xlUp).Row For i = 1 To...
03.05.2019 10:27:22
Thread-ID: 1690518
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
2
1
8
5
2
6
2
6
1
2
10
6
4
4
5
2
7
7
10