Hallo, ich habe erneut ein Problem, welches für euch wahrscheinlich garkeins ist.

Und zwar habe ich ein Programm geschrieben welches beim klicken auf einen Button, eine SAP Nummer im Feld über dem Button, kopiert in eine Liste und die Anzahl der entnommenen Artikel um 1 erhöhen soll. Bevor man zu dieser UserForm kommt habe ich eine UserForm in der man seinen Namen und die Maschine, für die die Teile benötigt werden, einträgt. Dies stehen dann im Blatt "ID_Speicher" in der Zelle G2 und H2.

Mein Problem ist nun, das die Liste beim ersten Benutzer der etwas auf der Liste einträgt (Name z.B. Thomas) die Liste schön um 1 erhöht..
Beispiel:

Thomas scannt für Maschine1:

123456
123456
123456
111111
222222
222222

nun sieht die Liste wie folgt aus:


soweit so gut. Beendet man nun Excel und startet es neu (um einen neuen Name / Maschine) einzugeben und startet es neu und beginnt wieder einzutragen,

Beispiel Fortsetzung:

David scannt für Maschine2

123456
123456
111111
111111
333333

dann sollte die Liste so aussehen:


nun kann das Programm wieder beendet werden und der nächste kann wieder Scannen, scannt Thomas jetzt wieder 123456 für Maschine 2 soll dies auch wiederum 1 mal in eine nächste Zeile eingetragen werden, scannt er allerdings 123456 für MAschine 1 soll es oben um eins erhöht werden.

Hier mein Code für den Buttonklick:



Ich hoffe ihr versteht mein Problem wenigstens ein bisschen.

Danke für eure Antworten!

Gruß David!

Erzeuge dir (meinetwegen in einer gesonderten Spalte) einen Schlüssel aus den Feldern, die für einen eindeutigen Update notwendig sind.
Wird der Schlüssel gefunden, wird hochgezählt, wird er nicht gefunden, wird ein neuer Eintrag erzeugt.

Danke für die schnelle Antwort,

du meinst das ich in einer Spalte neben den Zellen eine Kombination aus SAP Nummer, Name, Maschine usw zusammenstelle? Zum Beispiel:


oder wie? (Sorry, wie gesagt, bin absoluter Anfänger in VBA)

d4vidh4ll3r schrieb:

zusammenstelle

zusammenstellen lasse (durch eine Excel-Formel) =A1&"_"&A3&"_"&A4

Klingt schonmal sehr gut, funktioniert auch, der Schlüssel wird erzeugt.

Wie realisiere ich dies jetzt im VBA Code?

Du erzeugst aus den Daten, die du eintragen willst, den Schlüssel.
Den suchst du in der Tabelle (analog zu Zeile 18).

also so:



dann bekomme ich einen Laufzeitfehler 91 "Objektvariable oder with-Blockvariable nicht festgelegt" in folgender Zeile:

Set Cell = Worksheets("Ausgetragen").Range("I:I").Find(TextBox1.Text & "_" & Worksheets("ID_Speicher").Range("F2").Text & "_" & Worksheets("ID_Speicher").Range("G2").Text)

Danke, hätte ich auch selbst drauf kommen können.

Fehlermeldung ist weg, aber er trägt trotzdem noch alles Untereinander ein (Menge 1)


Hier nochmal der Code:

Und deine Schlüsselspalte ist I?

Ja, die Schlüsselspalte ist I

Dann musst du mit dem Debugger durch und schauen warum nach dem .Find Cell Nothing ist.
Evtl. musst du beim Find noch LookIn:=xlValues und LookAt:=xlWhole angeben.
Aber das dürfte bei dem von dir geschilderten Effekt eigentlich nicht die Ursache sein.
Ich denke eher, dass der FindString nicht richtig zusammengebaut wird.

So funktionierts jetzt, bereits vorhandene werden um 1 erhöht,
aber bei neuen bringt er einen "Anwendungs oder objektorienterten Fehler" in der Zeile



erstellt jedoch trotzdem eine neue Zeile, aber mit Anzahl 0 statt 1..

Klar.
Wenn Cell gefunden wird, zeigt sie auf Spalte 9.
Wenn sie nicht gefunden wird, suchst du die letzte Zelle in Spalte 1.
Damit stimmen deine Offsets nicht mehr.

Entweder du verwendest ​Set Cell = Worksheets("Ausgetragen").Cells(Rows.Count, 9).End(xlUp).Offset(1) und passt die Offsets im If-Zweig an.
Oder du verwendest einen Else-Zweig für den "gefunden"-Fall und setzt den Wert von Spalte 2 im If-Zweig auf 1.

d4vidh4ll3r schrieb:

Visual Basic-Quellcode

1. Private Sub CommandButton1_Click()
3. If TextBox1.Text = "" Then
4. MsgBox "Bitte SAP-Nummer eintragen!", vbInformation, "Hinweis"
5. Else
7. Set Cell = Worksheets("Ausgetragen").Range("I:I").Find(TextBox1.Text & "_" & Worksheets("ID_Speicher").Range("F2").Text & "_" & Worksheets("ID_Speicher").Range("G2").Text, LookIn:=xlValues)
10. If Cell Is Nothing Then
11. Set Cell = Worksheets("Ausgetragen").Cells(Rows.Count, 1).End(xlUp).Offset(1)
12. Cell.Value = TextBox1.Text
13. Cell.Offset(0, 1).Value = 0
14. Cell.Offset(0, 6).Value = Worksheets("ID_Speicher").Range("F2").Value
15. Cell.Offset(0, 7).Value = Worksheets("ID_Speicher").Range("G2").Value
16. End If
17. Cell.Offset(0, -7).Value = Cell.Offset(0, -7).Value + 1
19. TextBox1.Text = ""
20. TextBox1.SetFocus
22. End If
24. End Sub

So funktionierts jetzt, bereits vorhandene werden um 1 erhöht,
aber bei neuen bringt er einen "Anwendungs oder objektorienterten Fehler" in der Zeile

Visual Basic-Quellcode

1. Cell.Offset(0, -7).Value = Cell.Offset(0, -7).Value + 1

erstellt jedoch trotzdem eine neue Zeile, aber mit Anzahl 0 statt 1..

d4vidh4ll3r schrieb:

If Cell Is Nothing Then

Set Cell = Worksheets("Ausgetragen").Cells(Rows.Count, 1).End(xlUp).Offset(1)

Cell.Value = TextBox1.Text

Cell.Offset(0, 1).Value = 0

Cell.Offset(0, 6).Value = Worksheets("ID_Speicher").Range("F2").Value

Cell.Offset(0, 7).Value = Worksheets("ID_Speicher").Range("G2").Value

End If

Cell.Offset(0, -7).Value = Cell.Offset(0, -7).Value + 1

d4vidh4ll3r schrieb:

So funktionierts jetzt, bereits vorhandene werden um 1 erhöht,

wenn cell = nothing, dann kann man sich schwerlich auf cell beziehen, der Offset geht ins Leere

ausserdem wird Cell.Offset(0, -7).Value = Cell.Offset(0, -7).Value + 1 immer ausgeführt,
ob cell = (nothing or (not nothing))

das scheint eine neuartige Logik zu sein ...
denn das hat einen fehler zur folge, wenn cell nicht bestimmt ist

im übrigen würde ich auch mal versuchen, "cell" als irgendwas zu deklarieren, vielleicht als range
und das pattern kann man auch in eine variant-variable setzen und nicht so in die suchzeile klatschen

ausserdem habe ich etwas zweifel, ob deine Beschreibung dessen, was da zuletzt vorgehen soll, dasjenige korrekt widerspiegelt, was durch deinen zuletzt geposteten code repräsentiert ist

rx13 schrieb:

im übrigen würde ich auch mal versuchen, "cell" als irgendwas zu deklarieren, vielleicht als range

Im Original war Cell meines Wissens als Range deklariert.
Das ist aber nicht das Problem, da .Find automatisch einen Range zurückgibt.

rx13 schrieb:

und das pattern kann man auch in eine variant-variable setzen und nicht so in die suchzeile klatschen

Einverstanden, aber dann bitte nicht als Variant, sondern als String.
Aber wie ich das sehe, ist der TE damit noch überfordert.
Diese Art von Unschönheiten ziehen sich durchs ganze Programm.

Richtig, ich bin damit überfordert, wie gesagt --> Anfänger.

Aber ich wills trotzdem ein wenig verstehen. Hier der Code wie ich ihn aktuell geändert habe, jedoch geschieht jetzt gar nichts mehr.. weder Fehlermeldung noch wird die TextBox wieder geleert, oder übertragen.

Wahrscheinlich hast du mir da wieder absichtlich nen Fehler rein gebaut, mal sehn ob ich ihn finde, wenn nicht darfst du mir gerne weiterhelfen.

ausserdem wird Cell.Offset(0, -7).Value = Cell.Offset(0, -7).Value + 1 immer ausgeführt, ob cell = (nothing or (not nothing))

Stimmt doch auch, egal ob der Schlüssel nicht gefunden wurde, oder gefunden wurde, soll VBA beim Ergebnis (wenn nicht gefunden in der nächsten Zeile eben) die entnommene Anzahl um +1 erhöhen.

Also ist dies keine neuartige Logik, sondern einfach richtig.

Egal was bei der Suche rauskommt, immer beim Ergebnis +1 - Kann aber auch sein das ich dich gerade falsch verstehe.

Edit:

So konnte ich den Fehler beheben, das die SAP Nummer nicht ausgetragen wird:


Jedoch schreibt er die Liste nicht von oben weiter, sondern ab da, wo ich keine Formel für den Schlüssel hinterlegt hab.

Edit 2:



So funktioniert es jetzt, außer das er bei bereits vorhandenen also Wenn Cell = Not Nothing, immer die Spalte 9 überschreibt, nicht Spalte 2 um 1 erhöht..

Wie bestimme ich jetzt das das Offset von Spalte 1 aus gezählt wird?

Das Problem ist, dass du hier mit Zelladressen und Textbox-Inhalten arbeitest, von denen ich nur ahnen kann, was sich dahinter verbirgt.
Da kann man schon mal den Überblick verlieren, wenn man sich das Ganze im Kopf abbilden muss.
Wie schon angedeutet, wären da sprechende Variablennamen ein echter Segen.

Aber im Gegensatz zu mir hast du ein Excel zur Verfügung, hast die Funktionalität und kannst alles Schritt für Schritt im Debugger durchsteppen.
Da müsste sich ganz doch schnell rausstellen, wo etwas nicht so tut wie von dir erwartet.

d4vidh4ll3r schrieb:

Jedoch schreibt er die Liste nicht von oben weiter, sondern ab da, wo ich keine Formel für den Schlüssel hinterlegt hab.

Das ist mir heute morgen noch zu hoch, vielleicht magst du erklären, was du mit diesem Satz meinst?

Ich kann dir am besten vielleicht einfach mal die Excel Datei schicken? Irgendwie? Dann hast dus vor Augen...

Ich hab den Code jetzt genau so:



Jetzt bekomme ich ständig irgendwelche Fehlermeldungen, ich glaub jetzt hab ichs zerstört ..

Vielleicht ist es echt das beste, wenn ich dir die Datei schicke..

d4vidh4ll3r schrieb:

Vielleicht ist es echt das beste, wenn ich dir die Datei schicke..

Kannst du machen, hänge sie einfach an einen Post an.
Ich bin allerdings derzeit unterwegs und habe kein Excel zur Verfügung.
Ich kann höchstens am Wochenende mal reinschauen und eine elegante Lösung einbauen.