Macro Sprung zu Ziel und Aktion

Hallo VBA-Profis,
leider breche ich bei einer meines Erachtens recht übersichtlichen VBA-Programmierung ab. Der Stand ist folgender:
Eine externe App trägt in Blatt1 einer Datei Name1 der Reihe nach fünf Werte, als letztes ein Datum ein. Die jeweils aus den 5 Werten bestehenden Datensätze werden untereinander gesetzt.

Lagerplatz Artikel Entnahme Einlagerung Datum
G2 15 FALSCH WAHR 28.10.2020
B5 11 FALSCH WAHR 28.10.2020
E2 8 FALSCH WAHR 28.10.2020
D1 5 FALSCH WAHR 28.10.2020
C3 WAHR FALSCH 28.10.2020
R7 25 FALSCH WAHR 29.10.2020

Danach springt der Cursor automatisch in die nächste Zeile und wartet auf den nächsten Datensatz. Das Datum selbst ist gleichgültig, nur der Status des Eintrages an sich spielt als Trigger für das Macro eine Rolle (Worksheet Change, Range ("A2:E1000")):
Meine Aufgabe ist nun:
1) Wenn sich eine Zelle im Blatt1 Name1 in einem Bereich konkret A2:E1000, zB Zelle E3 durch Eintrag eines Datums (von leer ausgehend) ändert, soll das Makro an den in der Zelle A3 eingegebenen Ort=Zellbezeichnung in Blatt2 Name2 springen. Wenn also in Zelle A3 der Wert G2 steht, springt das Makro auf Blatt2 Name2, Zelle G2.
2) Dort im Blatt2 Name2, soll dann das Macro je nach Wahrheitsgehalt der Spalte C oder D in Blatt1 Name1 eine Aktion durchführen. Es ist gesichert, dass nur eine der beiden Zellen WAHR ist. Die andere Zelle hat dann Status FALSCH:
Wenn Zelle zB C3=WAHR, dann Eintrag Leer
Wenn Zelle zB D3=WAHR, dann den Wert aus Blatt1/Zelle B3 eintragen, hier im Beispiel "15"
Sollten dazu noch Fragen bestehen, einfach noch mal melden. Ansonsten bedanke ich mich schon mal sehr für Eure Hilfe.
Volker der Bastler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Ereignismakro im Code-Modul von Blatt "Name1" Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZiel As Range Dim varLagerplatz, varArtikel, bolEntnahme As Boolean, bolEinlagerung As Boolean, varDatum Dim Zeile As Long If Target.Row > 1 And Target.Cells.Count = 1 Then Zeile = Target.Row Select Case Target.Column Case 5 'Spalte E If Cells(Zeile, 5) "" Then 'Datum ist eingetragen varLagerplatz = Cells(Zeile, 1).Value Set rngZiel = ActiveWorkbook.Worksheets("Name2").Range(varLagerplatz) 'Blattname ggf. _ anpassen varArtikel = Cells(Zeile, 2).Value bolEntnahme = Cells(Zeile, 3).Value bolEinlagerung = Cells(Zeile, 4).Value varDatum = Cells(Zeile, 5).Value If bolEntnahme = True Then rngZiel.Value = "leer" ' oder rngZiel.ClearContens End If If bolEinlagerung = True Then rngZiel.Value = varArtikel End If End If End Select End If End Sub

'Ereignismakro im Code-Modul von Blatt "Name1" Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZiel As Range Dim Zeile As Long If Target.Row > 1 And Target.Cells.Count = 1 Then Zeile = Target.Row Select Case Target.Column Case 5 'Spalte E If Cells(Zeile, 5) "" Then 'Datum ist eingetragen Set rngZiel = ActiveWorkbook.Worksheets("Name2").Range(Cells(Zeile, 1).Value) ' _ Blattname ggf. anpassen If Cells(Zeile, 3).Value = True Then rngZiel.Value = "leer" ' oder rngZiel.ClearContens End If If Cells(Zeile, 4).Value = True Then rngZiel.Value = Cells(Zeile, 2).Value End If End If End Select End If End Sub

'Ereignismakro im Code-Modul von Blatt "Bewegungen" Private Sub Worksheet_Change(ByVal Target As Range) Dim rngZiel As Range Dim varLagerplatz, varWein, bolEntnahme As Boolean, bolEinlagerung As Boolean, varDatum Dim Zeile As Long If Target.Row > 1 And Target.Cells.Count = 1 Then Zeile = Target.Row Select Case Target.Column Case 5 'Spalte E If Cells(Zeile, 5) "" Then 'Datum ist eingetragen varLagerplatz = Cells(Zeile, 1).Value Set rngZiel = ActiveWorkbook.Worksheets("Regal").Range(varLagerplatz) 'Blattname ggf. _ anpassen varWein = Cells(Zeile, 2).Value bolEntnahme = Cells(Zeile, 3).Value bolEinlagerung = Cells(Zeile, 4).Value varDatum = Cells(Zeile, 5).Value If bolEntnahme = True Then rngZiel.Value = "Leer" ' oder rngZiel.ClearContens End If If bolEinlagerung = True Then rngZiel.Value = varWein End If End If End Select End If End Sub

Hallo Franz,
vielen Dank für Deine Antwort. Dein genannten Problemvarianten 1 und 2 sind es nicht, weil mit Prog-start schon mal ein Makro mit Begrüßungsbildschirm startet. Aus Langeweile löschte ich dann zunächst eines des bereits eingegeben Datums und gab es neu ein: BINGO. Nun tätigte ich eine neue Datenübertragung mit der App(Scan-IT to office). Die kommt sofort rein, es erfolgt aber keine Datenübertragung.
Nun gab ich das Datum als simple Reaktion in Form F_=wenn(E_="";"";E_) an die Spalte F weiter und änderte das Macro wie beigefügt (Änderung bei: Case 6 'Spalte F, If Cells(Zeile, 6)): Keine Datenübertragung, aber auch nicht mehr, bei manueller Eingabe in Spalte E!

'Ereignismakro im Code-Modul von Blatt "Bewegungen"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZiel As Range
Dim varLagerplatz, varWein, bolEntnahme As Boolean, bolEinlagerung As Boolean, varDatum
Dim Zeile As Long
If Target.Row > 1 And Target.Cells.Count = 1 Then
Zeile = Target.Row
Select Case Target.Column
Case 6 'Spalte F
If Cells(Zeile, 6)  "" Then 'Datum ist eingetragen
varLagerplatz = Cells(Zeile, 1).Value
Set rngZiel = ActiveWorkbook.Worksheets("Regal").Range(varLagerplatz) 'Blattname ggf. _
anpassen
varWein = Cells(Zeile, 2).Value
bolEntnahme = Cells(Zeile, 3).Value
bolEinlagerung = Cells(Zeile, 4).Value
varDatum = Cells(Zeile, 5).Value
If bolEntnahme = True Then
rngZiel.Value = "Leer" ' oder rngZiel.ClearContens
End If
If bolEinlagerung = True Then
rngZiel.Value = varWein
End If
End If
End Select
End If
End Sub

Irgendwie sperrt also eine unbekannte Zeit die App die Makrofunktion oder meine Änderung stimmt eher nicht, da die manuelle Aktualiserung hier auch nicht funktioniert. Würdest Du die Änderung bitte mal prüfen? Wenn meine Änderung stimmt und hinsichtlich meiner Überlegung von Dir bestätigt wird, würde ich zunächst am Montag den Lieferanten der App in Österreich kontaktieren. Käme ich da nicht weiter, müsste ich über den manuellen Button entscheiden oder mir eine andere Lösung überlegen. Die Datei Dir zuzusenden, wäre nicht das Thema. Problem wäre dann, dass Du die Dateneingabe mit der App wohl realisieren müsstest(Dauert mit meiner Anleitung 30 Minuten, brauchst aber ein Android-Gerät. Wenn Du da mitspielen würdest, wollte ich Dir dann Deinen Aufwand erstatten und nicht nur verbales Dankeschön zusenden ;-)
LG
Volker

Private Sub Workbook_BeforeClose(Cancel As Boolean) Call UebertragenStopp End Sub Private Sub Workbook_Open() UserForm1.Show Call Uebertragen MsgBox "Makro zum Übertragen der Werte von ""Bewegungen"" nach ""Regal"" wurde aktiviert.", _ _ vbOKOnly, "Makro: Workbook_Open" End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Macro Sprung zu Ziel und Aktion

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread