Daten automatisch übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim iRow As Integer Dim chkStr As String Dim wksSource As Object, wksTarget As Object Set wksSource = ThisWorkbook.Worksheets("Maske2") Set wksTarget = Workbooks("72950.xlsx").Worksheets(1) iRow = wksTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1 wksTarget.Cells(iRow, 3).Value = wksSource.Range("B4").Value 'Name wksTarget.Cells(iRow, 4).Value = wksSource.Range("E4").Value 'Vorname wksTarget.Cells(iRow, 5).Value = wksSource.Range("B9").Value 'Straße wksTarget.Cells(iRow, 6).Value = wksSource.Range("E9").Value 'PLZ wksTarget.Cells(iRow, 7).Value = wksSource.Range("F9").Value 'Ort wksTarget.Cells(iRow, 8).Value = wksSource.Range("B11").Value 'Neukunde wksTarget.Cells(iRow, 9).Value = wksSource.Range("H11").Value 'Alter Workbooks("72950.xlsx").Close SaveChanges:=True If ThisWorkbook.Name = "Formular.xltm" Then Exit Sub Else Dim vbc As Object With ActiveWorkbook.VBProject For Each vbc In .VBComponents Select Case vbc.Type Case 1, 2, 3: .VBComponents.Remove .VBComponents(vbc.Name) Case 100 With vbc.CodeModule .DeleteLines 1, .CountOfLines End With End Select Next End With End If End Sub

Hallo Heike,
bei deiner Aufgabenstellung gibt es noch etliche offene Fragen bzw. Probleme.
1. Sollen mehrere User die Datei Liste.xlsx via Formular mit Daten füllen?
Dann muss diese Datei in einem Verzeichnis stehen auf das alle User Schreib-Lese-Berechtigung haben.
Der Desktop-Ordner des Admin ist nicht der ideale Speicher-Ort, besser ist es (wenn es schon der Desktop sein soll) hier den Desktop des angemeldeten Users zu verwenden. Ideal wäre ein "normales" Verzeichnis. Auf dem Desktop würde ich nur einen Link anlegen.
Wenn mehrere User die Listendatei mit Daten befüllen, dann sollte die Datei Liste.xlsx erst unmittelbar vor dem Eintragen der Daten geöffnet werden und nicht schon beim Öffnen der Formulardatei. So ist die Wahrscheinlichkeit, dass 2 User gleichzeitig die Liste geöffnet haben.
2. Speichern der ausgefüllten Formular-Datei ohne Makros
Das löschen von VBA-Code setzt voraus, dass die Sicherheitseinstellungen von Excel reduziert/geändert werden müssen (Zugriff aufs VBA-Projekt muss erlaubt werden). Außerdem gibt es Probleme wenn das Modul des aktuell ausgeführten Codes gelöscht wird.
Besser ist es, ggf. den Speicherprozess umzulenken, so dass die Datei via Speichern unter im makrofreien xlsx-Format gespeichert wird. Ist aber nicht ganz einfach, dies im Schließen- und Speichern-Ereignis des Workbooks einzubauen.
3. Formular: Datum in Zelle H4
Diese Formel muss vor dem Speichern/Schließen des Formulars(ohneMakro) durch ihren Wert ersetzt werden, sonst ändert sich dieser in der xlsx-Datei bei jedem Öffnen. Alternativ könnte man das aktuelle Datum beim Öffnen der Formular-Datei eintragen.
4. Formular: Blattschutz
Es empfiehlt sich hier alle Eingabezelle zu entsperren und den Blattschutz zu aktivieren. Das erleichtert die Eingabe und verhindert unbeabsichtigte Änderungen am Formular.
5. Liste: fortlaufende Nummer/nächste freie Zeile
Die Formel in Spalte A würde ich nicht bis Zeile 200 vorgeben, sondern vom Ausfüllmakro eintragen lassen. Dann kann man die Spalte A zum ermitteln der nächsten freien Zeile benutzen.
Alternativ kann man die Spalten C (Name) oder H (Neukunde) zur Ermittlung der nächsten freien Zeile benutzen, da in diesen Spalten wohl immer Daten eingetragen werden.
6. Formular/Liste - PLZ/Ort
In der Liste sollen PLZ und Ort in getrennten Spalten eingetragen werden. Also sollten im Formular auch deutlich 2 Eingabezellen vorgegeben werden.
Da es PLZ mit führenden Nullen gibt sollten die Eingabezelle und die Spalte als Text formatiert sein.
Beim Eintragen der PLZ in die Liste würde ich sogar ein Hochkomma(') voranstellen, um Probleme mit Zahlenformaten zu minimieren
7. Code für Workbook-Ereignismakros
Dieser muss im VBA-Editor unter "DieseArbeitsmappe" eingefügt sein, nicht unter dem Tabellenblatt-Modul.
Ich werde mal versuchen, die Prozeduren in die oben beschriebene Richtung umzuschreiben.
Gruß
Franz

Jetzt weiß ich nicht, bei welchem Thread ich schreiben soll, da ich - keine Ahnung wie - diesen 2 Mal eingefügt habe. Sorry.
Hallo Franz,
aaaahhhh ja, da hast du natürlich Recht.
Sollen mehrere User die Datei Liste.xlsx via Formular mit Daten füllen?
Jeder Mitarbeiter hat eine eigene Liste (3 Mitarbeiter). Die Listen liegen zentral auf dem Server und sind nicht schreibgeschützt. Liste_Marion.xlsx, Liste_Klaus.xlsx und Liste_Heike.xlsx.
Und tatsächlich liegt jeweils eine Verknüpfung auf dem Desktop der jeweiligen Mitarbeiter und nur der jeweilige Mitarbeiter füllt SEINE Liste.
Speichern der ausgefüllten Formular-Datei ohne Makros
Also wäre es hier sinnvoll, über einen Button (wie Sepp es gemacht hat) zu speichern/schließen?
Formular: Datum in Zelle H4
OK, das habe ich verstanden. Habe gerade mal was gefunden, habe aber noch nicht ausprobiert ob es funktioniert:
Dim Datum As String
Datum = Format(Now, "dd.mm.yyyy")
Range("H4") = Datum
4. Formular: Blattschutz
OK, das kriege ich hin, Hauptsache die Daten werden trotzdem übertragen
5. Liste: fortlaufende Nummer/nächste freie Zeile
ooohhhh jeeeeee, keine Ahnung
6. Formular/Liste - PLZ/Ort
Hier habe ich gerade mal probiert, die Zelle benutzerdefiniert zu setzen: 00000, also in die Anführungsstriche eine Leerstelle. Das klappt. Ist das ok?
7. Code für Workbook-Ereignismakros
Das habe ich schon geändert.
Vielen Dank für die enorme Mühe
Viele Grüße

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread