Multiplayer-Excel

Hallo,
ich bin dabei, ein Tool zu bauen, mit dem das Schreiben von Artikeletiketten schneller von statten gehen soll.
Zu diesem Zweck habe ich eine doppelte Referenzdatenbank erstellt, in der alle Informationen betreffs des jeweiligen Artikels hinterlegt sind. Doppelt deshalb, weil sehr großer Wert darauf gelegt wird, ob die Artikelbezeichnung in Singular oder im Plural auf dem Etikett stehen soll.
Bisher habe ich es, auch mit Hilfe des Forums hier, geschafft, dass man die Etiketten drucken kann (über eine kleine Hilfstabelle, die nur kurz aufploppt und wieder zugeht, um die Daten dem Etikettenprogramm zur Verfügung zu stellen) und auch das Hinzufügen neuer Artikel in die Referenzdatenbanken klappt einwandfrei.
Mein Problem an der ganzen Geschichte ist, dass mein Chef begeistert von dem Tool ist (das ist nicht das Problem) und meine Kollegin ebenfalls damit arbeiten soll.
Bisher habe ich es so gelöst, dass ich das ganze Projekt komplett kopiert habe, damit sie damit arbeiten kann, und ihr den Button gesperrt habe, mit dem man neue Artikel in die Datenbank einfügen kann. Denn jetzt existieren zwei Versionen der gleichen Datenbank und das gibt ein heilloses Durcheinander.
Ich habe inzwischen die Datenbanken von den Tools gelöst, das Schreiben von Etiketten funktioniert auch problemlos. Nur das Eintragen neuer Artikel macht mir Schwierigkeiten. Innerhalb der selben Datei ist es kein Problem, aber in der nun externen Datenbank will es nicht klappen.
Hier mein Code (bisher):


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"'S:\Verwaltung\Etikettenabteilung\BarTender\Vorlagen\DQ Etikettentool.xlsm'"
For Each rngCell In Workbooks("'DQ Etikettentool.xlsm'").Range("Plural!a2:a10000")
If rngCell.Value  "" Then
i = i + 1
End If
Next rngCell
With ActiveWorkbook.Sheets("Plural")
With ActiveWorkbook.Sheets("Singular")
ThisWorkbook.Sheets("Plural").Cells(i + 2, 1) = TextBox23.Value
ThisWorkbook.Sheets("Singular").Cells(i + 2, 1) = TextBox23.Value
If CheckBox2.Value = True Then
ThisWorkbook.Sheets("Plural").Cells(i + 2, 13).Value = "Hersteller"
ThisWorkbook.Sheets("Singular").Cells(i + 2, 13).Value = "Hersteller"
End If
End With
End With
Application.ScreenUpdating = False
Hide
MsgBox ("Datensatz Nr. " & i + 1 & " erfolgreich an Position Nr. " & i + 2 & " eingepflegt.")
End Sub

Die Variable i ist in Modul 1 public deklariert und zählt die Anzahl der nicht leeren Zellen, damit der nächste Eintrag in die darauffolgende Zelle geschrieben werden kann.
Der Code ist für die Übersichtlichkeit auf jeweils ein Beispiel für Textbox und Checkbox gekürzt.
Ich weiß natürlich, dass man den Code eleganter gestalten könnte, aber darum kann ich mich später kümmern, jetzt soll es funktionieren.
Mit diesem Code werden die neuen Artikel immer noch in die internen Datenbanken geschrieben.
Irgendwo mache ich einen Fehler, aber ich weiß einfach nicht, wo.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hansueli,
erstmal danke für die Hilfsbereitschaft.
Das hier ist die Datenbank, in der die neuen Datensätze eingefügt werden sollen: https://www.herber.de/bbs/user/129075.xlsm
Und hier ist das Tool: https://www.herber.de/bbs/user/129077.xlsm
Beides natürlich massiv reduziert, da es ja nur Beispielmappen sein sollen.
Der Laufzeitfehler tritt in Zeile 10 auf, wo ich anfange mit For Each rngCell
Ich habe vorher lediglich den Sub des Moduls gepostet, der nicht so funktioniert hat, wie er sollte, Option Explicit habe ich immer als Codezeile 1 stehen.
Bei jedem Betätigen des Einfügen-Knopfes muss i neu bestimmt werden, war ich der Meinung. Momentan wird die Variable i auch noch zum Anzeigen eines Verlaufs verwendet, aber da kann ich auch eine andere Variable verwenden.
Im Regelbetrieb werden eben nicht haufenweise neue Artikel eingefügt, sondern nur mal sporadisch. Es geht, wie gesagt, sicherlich eleganter, aber für meine Bedürfnisse hat die Geschwindigkeit, mit der der neue Datensatz eingefügt wurde, durchaus genügt.
Bin aber offen für Verbesserungsvorschläge.

Option Explicit Private Sub CommandButton1_Click() Const dbName As String = "Beispiel DQ.xlsm" Dim bIsOpen As Boolean Dim lRow As Long Dim sErrMsg As String On Error GoTo Error_Handler sErrMsg = "Es kann kein leerer Datensatz eingefügt werden!" If TextBox1 = "" Then GoTo Error_Handler Application.ScreenUpdating = False On Error GoTo Error_Handler sErrMsg = "Datei " & dbName & " NICHT gefunden!" With Workbooks.Open(Filename:=dbName) bIsOpen = True sErrMsg = "Tabellenblatt [Plural] FEHLT!" With .Worksheets("Plural") lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lRow, 1) = TextBox1 If CheckBox1 Then .Cells(lRow, 2) = CheckBox1.Caption End With sErrMsg = "Tabellenblatt [Singular] FEHLT!" With .Worksheets("Singular") .Cells(lRow, 1) = TextBox1 If CheckBox1 Then .Cells(lRow, 2) = CheckBox1.Caption End With sErrMsg = "Datensatz konnte nicht gespeichert werden!" .Close SaveChanges:=True bIsOpen = False sErrMsg = "" End With Me.Hide Error_Handler: If sErrMsg "" Then MsgBox sErrMsg, vbCritical, "Fehler im Datensatz einfügen" If bIsOpen Then ActiveWorkbook.Close SaveChanges:=False bIsOpen = False End If Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Multiplayer-Excel

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread