Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Plausicheck über WorksheetChange vereinfachenß

Forumthread: Plausicheck über WorksheetChange vereinfachenß

Plausicheck über WorksheetChange vereinfachenß
20.06.2024 15:05:08
Martin
Ich habe für verschiedene Tageszeiten eines jeden Wochentags jeweils ein Tabellenblatt, in denen jeweils in einer Spalte zeilenweise zu mehreren Artikeln deren Inventurwerte in Form eines Anfangsbestands eingegeben werden müssen. Bei jeder Eingabe soll geprüft werden, ob der Wert identisch mit dem Endbestand des Vortags ist.
Für einen einzelnen Artikel kriege ich das so hin:

Private Sub Worksheet_Change(ByVal Target As Range) 

If Worksheets("Dienstag Tag").Range("D2") > "" And Worksheets("Dienstag Tag").Range("D2") > Worksheets("Montag Nacht").Range("E2") Then

    MsgBox "Der eingegebene Anfangsbestand entspricht nicht dem letzten Endbestand", vbCritical

    Worksheets("Dienstag Tag").Range("D2") = ""

    Worksheets("Dienstag Tag").Range("D2").Select

End If



End Sub

Ich müsste jetzt analog die Prüfung für D3 gegen E3, D4 gegen E4 etc. mit entsprechenden Bedingungen duplizieren. Mir stellt sich die Frage, ob das nicht einfacher geht, da zumindest innerhalb eines Tabellenblatts die Namen der beiden Blätter ja immer gleich sind.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Plausicheck über WorksheetChange vereinfachenß
20.06.2024 18:51:02
ralf_b
mach das über Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) in DieseArbeitsmappe dann brauchst du den Code nur einmal.

sh ist die Referenz auf das geänderte Blatt und Target kennste scheinbar nicht.

Um auf das passende Vortagesblatt zu referenzieren wirst du noch ein bissel mit den Tagen spielen müssen.
Anzeige
AW: Plausicheck über WorksheetChange vereinfachenß
21.06.2024 11:21:58
GerdL
Hallo Martin,

als Zwischenschritt für das eine Blatt mit neuen Anfangsbeständen.
Für Weitere müsstest Du die Namen der zusammengehörenden Blätter mit Anfangsbeständen - Endbeständen mitteilen.


Gruß Gerd



AW: Plausicheck über WorksheetChange vereinfachenß
21.06.2024 11:28:21
Onur
"Ich habe für verschiedene Tageszeiten eines jeden Wochentags jeweils ein Tabellenblatt," ? Für Lagerbestände ? Echt ? Wieviele Blätter hast du denn?
Excel soll die Arbeit erleichtern, aber so, wie du das machst, erschwerst du Excel das. Da hast du wohl irgendwo irgendwie den Faden verloren.
Anzeige
AW: Plausicheck über WorksheetChange vereinfachenß
21.06.2024 11:26:45
GerdL
Upps 

'Ins Blattmodul von 'Dienstag Tag' kopieren

Private Sub Worksheet_Change(ByVal Target As Range)



'Eintrag in Spalte D unterhalb von D1 und ohne Mehrfachauswahl

If Target.Row > 1 And Target.Column = 4 And Target.CountLarge = 1 Then

If IsNumeric(Target.Text) Then 'Zahl eingetragen

'Abgleich mit Endbestand vom Vorblatt

If Target.Value > Worksheets("Montag Nacht").Range(Target.Offset(0, 1).Address) Then

    MsgBox "Der eingegebene Anfangsbestand entspricht nicht dem letzten Endbestand", vbCritical

End If

End If

End If
Anzeige
AW: Plausicheck über WorksheetChange vereinfachenß
24.06.2024 10:34:33
Martin
Danke Gerd,
genauso habe ich mir das vorgestellt! Funktioniert perfekt. Mit den Anpassungen für die übrigen Tabellenblätter komme ich nun selbst zurecht.
Gruß
Martin
;

Forumthreads zu verwandten Themen

Makro aus Worksheet über ein Addin ansprechen
Florian

Guten Morgen,
ich habe ein Addin erstellt, dass automatisch eine Symbolleiste erstellt! Alles OK soweit!
1.
Ich möchte über diese Symbolleiste (aus dem Addin) auf einen Code des geöffneten Worksheets zugreifen. Wie kann ich über die Sybolleiste des Addin`s den Code/das Makro des akt...
05.02.2009 08:23:14
Thread-ID: 1047280
2 Beiträge
.jpg-dateien in worksheet per Makro?
Florian

Hallo zusammen,
ist es möglich jpg-Fotos per Makro in einem Worksheet zu speichern? Will eine Art Produktkatalog machen, dh. habe für alle Bestellnummern ein Foto in einem Ordner liegen (Name jeder Datei XXXX.jpg, wobei XXXX = Bestellnummer). Nun will ich jedem Artikel in einer Liste ein Fo...
14.02.2009 15:25:00
Thread-ID: 1050743
2 Beiträge
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Anzeige
Verlassen eines Worksheets verhindern
Frank

Guten Morgen,
ich möchte verhindern, daß das aktive Worksheet "Tabelle 1" verlassen werden kann wenn in Zelle A1 ein Wert 0 steht. Wenn also zum Beispiel der Reiter für "Tabelle 2" angeklickt wird soll eine Messagebox erscheinen mit dem Hinweise "aktuelles Worksheet kann nicht verlassen we...
14.10.2009 11:16:28
Thread-ID: 1109544
3 Beiträge
In Worksheet erstelltes Chart per VBA ansprechen
lorenz1980

Hi miteinander,
ich habe folgenden Code für Charts, die ein eigenes Worksheet darstellen - und dieses läuft: Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _ As Long) Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arr...
25.10.2009 13:29:53
Thread-ID: 1112009
2 Beiträge
ActiveSheet.Unprotect - Bei Drehfeld
Heinz

Hallo Leute
Im unteren Code wird mir der Blattschutz nicht aufgehoben.
Hätte bitte jemand eine Lösung ?
Danke & Gruß
Heinz H
Option Explicit
Sub Drehfeld1_BeiÄnderung() ActiveSheet.Unprotect Application.Calculate ActiveSheet.Protect End Sub
16.11.2009 22:08:26
Thread-ID: 1117774
5 Beiträge
2 Suchfenster 2 Bedingungen - Worksheet_Change
miss18

Hallo liebes Forum.
ich habe ein kleines Problem und komme einfach nicht weiter. Ich hoffe Ihr könnt mir weiterhelfen.
Ich habe auf meiner Übersicht zwei Suchfelder definiert (AL8:AN8 & AL9:AN9):
Im oberen Suchfeld kann man nach Zahlen, im unteren nach Namen suchen - daneben sin...
04.02.2010 14:34:09
Thread-ID: 1135782
3 Beiträge
Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Daten in Worksheet, ohne Anzeige zu wechseln?
Volker

Hallo zusammen,
mit u.a. Makro ermittele ich in einem Worksheet Zeilen, die ich löschen will (Zeile wird leer gemacht, wenn da in der betreffenden Spalte ein Wert aus dem Array "BekannteGr()" drin steht).
Ich muss aber zu Kontrollzwecken alles, was ich lösche, in einem anderen Worksheet...
25.08.2010 16:05:06
Thread-ID: 1174208
3 Beiträge
Private Sub Worksheet_Change in Modul auslagern
Claudia

Hallo zusammen,
möchte folgenden Code aus Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _ _ ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _ Werte im genannten I-Bereich noch Änderungen / Ergän...
12.09.2010 21:11:38
Thread-ID: 1177131
3 Beiträge
Brauche Hilfe bei meinem Code: WorkSheet Change
Holger,

Guten Morgen Forum,
kurz und knackig:
Ich habe einen Code geschrieben zur Worksheet Überwachung.
Mein Ziel: Abfragen, ob ein Zellinhalt gelöscht wird.
Funktioniert leider nicht, da der Code anspringt, sobald man eine Zelle mit
leerem Inhalt auswählt.
Könnt ihr mir bitte...
20.01.2011 09:43:04
Thread-ID: 1196547
3 Beiträge
ActiveSheet.Protect löscht Zwischenablage
Wolfgang

Hallo Forum,
ich hoffe Ihr könnt wieder helfen.
Ich habe ein geschützes Excel Sheet mit wenigen editierbaren Zellen.
Ich habe in VBA ein Zeilenmarkierung programmiert. Mit dem Event 'Selection_Change' wird die jeweils aktive Zeile 'hervorgehoben'. Nachdem die Zellen teilw. geschützt...
06.07.2011 23:03:57
Thread-ID: 1221109
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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