Daten von Eingabemaske in Datentabelle kopieren

Eingabemaske · 2016-11-19T16:35:55+00:00

Hallo zusammen https://www.herber.de/bbs/user/109553.xlsm In der Tabelle Dateneingabe, werden die Projektdaten und Stundenaufwendungen eingetragen. Mit den Button Speichern, sollen die Daten in die Tabelle Daten überführt werden. Zusätzlich soll der Projektname in die Tabelle Projektnamen geschrieben werden. Abschließend soll das Eingabeformular, die Zellinhalte der weissen Zellen gelöscht werden und eine MsgBox aufpoppen mit den Hinweis, dass die Daten erfolgreich gespeichert wurden. Wie kann ich das mit VBA umsetzen, Danke für jede Hilfe. Viele Grüsse, Peter

Uf ja =D
Hier

Option Explicit
Private Sub Button_Speichen_Click()
Dim WsDeingabe As Worksheet
Dim WsDaten As Worksheet
Dim WsPnamen As Worksheet
Dim Strarray(14) As Variant
Dim DatenArray() As Variant
Dim zell As Range
Dim LastCellWsDeingabe As Long
Dim LastCellWsWsDaten As Long
Dim LastcolumnWsDeingabe As Long
Dim LastCellWsPnamen As Long
Dim x As Long, r As Long, c As Long, cc As Long, rr As Long
With ThisWorkbook
Set WsDeingabe = .Worksheets("Dateneingabe")
Set WsDaten = .Worksheets("Daten")
Set WsPnamen = .Worksheets("Projektnamen")
End With
With WsDeingabe
For Each zell In .Range("B2:B9") 'B4:B7 zuvor
Strarray(x) = zell
x = x + 1
Next
With WsPnamen
LastCellWsPnamen = .Columns(1).Find("*", .Cells(1, 1), xlValues, xlWhole, , xlPrevious).Row + 1  _
'Cells(Zeile,Spalte).
On Error Resume Next
If Not Application.WorksheetFunction.Match(Strarray(0), .Columns(2), 0) Then
.Cells(LastCellWsPnamen, 2) = Strarray(0)
End If
End With
LastCellWsDeingabe = .Cells(.Rows.Count, 1).End(xlUp).Row
LastcolumnWsDeingabe = .Rows(10).Find("*", .Cells(10, 1), xlValues, xlWhole, , xlPrevious). _
Column
For r = 11 To LastCellWsDeingabe
For c = 1 To 3
Strarray(x) = .Cells(r, c)
x = x + 1
Next
For cc = 4 To LastcolumnWsDeingabe
Strarray(x) = .Cells(10, cc)
x = x + 1
If .Cells(r, cc) = "" Then GoTo Überspringen
Strarray(x) = .Cells(r, cc)
DatenArray = WsDaten.Range("A1").CurrentRegion
For rr = LBound(DatenArray, 1) To UBound(DatenArray, 1)
If DatenArray(rr, 1) & "_" & DatenArray(rr, 9) & "_" & DatenArray(rr, 12) = Strarray(0) & "_" &  _
Strarray(8) & "_" & Strarray(11) Then
If MsgBox("Soll der Datensatz >>" & DatenArray(rr, 1) & "_" & DatenArray(rr, 9) & "_" & Format( _
DatenArray(rr, 12), "MMM YY") & "

Gruß Basti

Hallo Peter,
die Punkte sind lösbar, und Dein Angebot wegen eines Obulus nehme ich gerne an (allerdings hat Basti ja sicher im Vorfeld schon mehr Zeit investiert als ich): meine E-Mail-Adresse findest Du hier in den Profilen: https://www.herber.de/cgi-bin/profile/call_profile.pl?user=1857094
Wenn wir schon dabei sind, möchte ich Dir aber anbieten, die Struktur von dat Janze mal zu zerpflücken, zumindest rein gedanklich.
Ich habe mich gefragt, wie die Eingabe denn "immer" funktionieren soll... Die "Dateneingabe" sieht ja recht nett und übersichtlich aus, und ich könnte mir vorstellen, daß es für nachträgliche Änderungen komfortabel wäre, die Daten für ein bestimmtes Projekt wieder in diese "Ansicht" (als "Formular") einzulesen, ggf. Änderungen vorzunehmen und sie dann wieder in die "Listenansicht" unter "Daten" zu überführen. Ob man dann bei jedem einzelnen, geänderten Wert noch eine mgsbox braucht? Das hält nur den Betrieb auf: vielleicht einen weiteren Button Änderungen übernehmen oder so, der alle vorhandene glattbügelt und nur dann schreit, falls ein alter, vorhandener Datensatz übrig bleiben würde (falls in der "Eingabe" ein Wert gelöscht wurde).
[Dazu könnte man bei allen in die Eingabe gelesenen Zeilen ein Kennzeichen in einer extra-Spalte setzen und hinterher z.B. durch das Datum der letzten Änderung ersetzen.]
[Hier ist ein Knackpunkt: es werden ja nur die Ressourcen-Gruppen in "Daten" geschrieben, bei denen auch Werte unterm Datum eingegeben wurden: sind die R-Gen immer gleich? Wenn nicht, müßte man die pro Projekt auch "irgendwo" mit speichern, damit die Blanko-Gruppen beim Einlesen ins "Formular" zur Verfügung gestellt werden können: z.B. Pack-Blister]
Ok, bis hierher ist das ja Dein letztgenannter Punkt "Abfrage".
Dann gibt es aber ein weiteres Thema: die linken Spalten in "Daten" stimmen pro Projekt ja überein: das schreit geradezu danach, in eine "normalisierte Datenbankform" überführt zu werden.
Das heißt, man könnte, anstatt einen kombinierten Schlüssel, der sich aus eingegebenen Daten zusammensetzt (wie Du schreibst z.B.: Projektname + Ressourcengruppe + Monat) eine "eindeutige" laufende Nummerierung verwenden (oder ist der Projektname eindeutig?) und statt einer dann ZWEI Tabellen: eine mit dem "Kopf" (also den linken Spalten) und eine mit den reinen (Monats-) Daten dazu. Um zwischen beiden Tabellen zu wechseln könnte man z.B. ein Doppelklickevent nehmen, das zu den jeweils passenden (= "verknüpften") Datensätzen (=Zeilen) hüpft.
Stichworte: "Vermeidung von Redundanzen", "Normalisierung von Datenbanken"
Ob man das umsetzen *muß*? Na, sagen wir mal so: angenommen, in den Kopfdaten würde sich was ändern, z.B. der Projektleiter (oder die Laufzeit, was sicher immer wieder mal vorkommen kann), dann müßtest Du so, wie es ist, in diversen Zeilen (in "Daten") Änderungen vornehmen (wobei es eben vorkommen kann, daß man dabei Fehler macht, z.B. nicht alle dazugehörigen Zeilen ändert oder auch eine zu viel); wenn man das "sauber" in zwei Tabellen zerpflückt, muß die Änderung nur in *einer* Zeile vorgenommen werden, nämlich in der zweiten Tabelle - die ja übrigens schon angedacht ist: "Projektnamen" - die heißt dann eben "Projektdaten".
Was ich noch viel wichtiger finde, ist die Verbesserung der Übersichtlichkeit: Wenn nur der eindeutige Projektname (wenn er das denn ist) dasteht und die Zeiten, bleibt dem Anwender der Anblick immer gleicher Spalten erspart.
Um das alles zu durchdenken und sich für eine bestimmte Vorgehensweise zu entscheiden, sollten wir vielleicht auch mal telefonieren.
Wenn Du mir mailst, melde ich mich morgen nachmittag.
Schöne Grüße,
Michael

Daten von Eingabemaske in Datentabelle kopieren

Forumthread: Daten von Eingabemaske in Datentabelle kopieren

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial