VBA - Werte suchen und Datentabelle überschreiben

SvenW · 2016-10-10T13:56:06+00:00

Hallo Excel-Freunde, ich als Laie habe ein Problem, bislang konnte ich mir alles herleiten, doch das funktioniert jetzt leider nicht mehr... =( Mein Problem: Ich habe ein Tabellenblatt "Datenbank" und ein Tabellenblatt "Änderung". In "Änderung" werden mir unterschiedliche Informationen aus der "Datenbank" angezeigt. Ich möchte mir aus der "Datenbank" die Zeile ausgeben lassen, die auf zwei Variablen zutrifft (Zelle B2 und A5-A) und anschließend aus "Änderung" Zelle B5-B dann an entsprechenden Zeilen in der "Datenbank" Spalte C überschreiben. Eigentlich möchte ich ausschließlich eine neue Bewertung abgeben, welche auf die Variablen zutrifft und in die Datenbank übertragen. Sollte meine Fragestellung etwas kryptisch formuliert sein, fragt bitte einfach nach. Hier die Datei zum Verständnis. https://www.herber.de/bbs/user/108697.xlsx Vielen Dank für eure Mühe!!! SvenW

…Sven,
nicht ihr Zusammenspiel. Das lässt dann Raum für FehlInterpretationen.
Prinzipiell ist es doch so, dass eine DB, hier dann also das Blatt Datenbank, PrimärDaten enthält, die aus der DB abgerufen und extern geändert wdn können. Ist Letzteres der Fall, will man die Änderungen idR auch wieder in die DB zurückschreiben. Daraus ergibt sich, dass eine echte DB Fmln nur unter ihren Metadaten als Merkmal von berechnet gespeicherten Kennziffern führen wird. Die Rückspeicherung geänderter/aktualisierter PrimärDaten erfolgt auf einem anderen Weg, für den sich hier VBA anbieten würde, wenn zuvor geklärt ist, ob es sich beim Blatt Änderung um eine generelle ErfassungsMaske für Datenbank handelt oder eher ein kombiniertes Auswertungs-/KorrekturBlatt. Davon hängt ab, ob und wo Fmln zum Einsatz kommen können. Wenn außerdem noch direkt in Datenbank geändert wdn kann, hätten wir hier einen Fall von bilateraler Eingabe/Darstellung u.ggf Auswertung, der Fmln als ungünstig erscheinen ließe.
Diese Fragen sollten geklärt wdn bevor irgendwer Fmln u/o VBA-Prozeduren entwickelt. Insofern sind Margaretes Anmerkungen durchaus und verstehbar angebracht.
Gruß, Luc :-?
Besser informiert mit …

…mich anstelle eines Buttons für einen Rechtsklick auf B4, den Titel der NeuBewertung entschieden, Sven;
außerdem habe ich diese Tabelle (in Änderung) auf 4 Spalten verkürzt, denn die Hilfsspalten benötigst du ja nicht wirklich. Aber deren GrundIdee war nicht verkehrt, weshalb ich die in Fmln für die verbliebenen Spalten C (aktBewertung) und D (DB-Zeile) eingearbeitet habe:
C5[:C8]:{=ERSETZEN(SVERWEIS(B$2&[@Tätigkeit];Tabelle15[Lieferanten]&Tabelle15[[Tätigkeit]:[Bewertung]];2;0);1;LÄNGE(B$2);"")}
D5[:D8]:{=VERGLEICH(B$2&[@Tätigkeit];Tabelle15[Lieferanten]&Tabelle15[Tätigkeit];0)+1}
Im Dokument-Klassenmodul dieses Blattes (steht für die Ereignisse desselben) muss dann nur noch nachfolgende EreignisProzedur angelegt wdn:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Const relDBfeld As Long = 3, lzETabZeile As Long = 8, relDBZeileSp As Long = 4, _
adEintragDB$ = "B4", naBlattDB$ = "Datenbank"         'ggf anpassen!
Dim relETabBer As Range, xZeile As Range
On Error GoTo fx
Cancel = Not Intersect(Target, Me.Range(adEintragDB)) Is Nothing
If Cancel Then
Set relETabBer = Me.Range(Me.Cells(Target.Row + 1, Target.Column), _
Me.Cells(lzETabZeile, relDBZeileSp))
For Each xZeile In relETabBer.Rows
If Not IsEmpty(xZeile.Cells(1)) Then
Sheets(naBlattDB).Cells(xZeile.Cells(relDBZeileSp - 1), _
relDBfeld) = xZeile.Cells(1)
xZeile.Cells(1) = Empty
End If
Next xZeile
fx:     If CBool(Err.Number) Then
MsgBox Err.Description, vbCritical, "Fehler-Abbruch"
Set xZeile = Nothing
End If
Set relETabBer = Nothing
End If
End Sub

Außerdem sollte die GültigkeitsRegel in Spalte B von Änderung Leerzellen zulassen, denn die NeuBewertungen wdn bei Übernahme in die DB gelöscht.
Bei dieser Organisation kann der Vorgang mehrfach wiederholt wdn (falls man sich mal geirrt hat, was dann in der NachbarSpalte sofort zu sehen ist).
Um das einigermaßen zufriedenstellend testen zu können, hatte ich die DB übrigens um einen weiteren Lieferanten erweitert.
Gutes Gelingen! Luc :-?

VBA - Werte suchen und Datentabelle überschreiben

Forumthread: VBA - Werte suchen und Datentabelle überschreiben

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA - Werte suchen und Datentabelle überschreiben

Forumthread: VBA - Werte suchen und Datentabelle überschreiben

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread