Wert wird nicht eingelesen

Forumthread: Wert wird nicht eingelesen

27.05.2016 12:33:18

ter

Hallo ihr Lieben,
ich habe ein kleines Problem mit folgender Datei:

Die Datei https://www.herber.de/bbs/user/105822.xlsm wurde aus Datenschutzgründen gelöscht

Habe mein Problem umgeschrieben in Äpfel, damit es anonymisiert ist ;-)
Also, wenn ich das Programm ablaufen lasse, wird der Einzelpreis der Äpfel nicht eingelesen. Ich verstehe aber nicht ganz warum, liegt es daran, das ich mit einer intelligenten Tabelle arbeite? Gibt es da vielleicht noch andere Lösungen?
Außerdem läuft die Schleife nach dem 5. Durchlauf nicht weiter. Das verstehe ich auch nicht, da ja etwas in der Zelle steht.
Wäre tierisch nett, wenn ich ein paar Tipps bekommen könnte, sodass das Programm das tut, was es soll.
Ich hoffe ich habe es verständlich erklären können.
Liebe Grüße, Lisa
Ps. Bin leider am Wochenende nicht Online, aber ab Montag werde ich mich melden, ob es geklappt hat.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wert wird nicht eingelesen

27.05.2016 13:54:51

ter
AW: Wert wird nicht eingelesen

27.05.2016 13:56:25

ter
AW: Wert wird nicht eingelesen

27.05.2016 14:12:57

Michael
AW: Wert wird nicht eingelesen

30.05.2016 07:05:57

ter
freut mich,

30.05.2016 15:54:56

Michael

AW: Wert wird nicht eingelesen

27.05.2016 13:54:51

ter

Habe da nun noch etwas dran rumgedoktert, einige Variablendeklarationen waren falsch.

Dim Sorte As String
Dim Gewicht As Integer
Dim Lieferant As String
Dim PrEinz As Single
Dim Formel As Single
Dim Stück As Integer
Dim intZeile As Integer
Dim anzZeile As Integer

So, nun nimmt PrEinz auch einen Wert an. Allerding den aus der ungefilterten Tabelle. Kann er auch den Wert aus der gefilterten Tabelle annehmen? Wenn ja, wie?
Ich glaube im hochgeladenen Programm n(s.o.) muss noch eine weitere Zeile ausgetauscht werden.
Weil sonst wird immer der Wert in der Zeile der Zählvariablen angenommen.

Cells.Find("Preis").Select
ActiveCell.Offset(1, 0).Select
PrEinz = ActiveCell.Value

Ich hoffe ihr könnt mir weiterhelfen, wie ich diesen Wert einlesen kann und mir sagen warum das Programm trotz der Schleife nach dem 5. Durchlauf abbricht.
Schönes Wochenende, Lisa

AW: Wert wird nicht eingelesen

27.05.2016 13:56:25

ter

So, nun gilt sie auch noch als nicht beantwortet.

AW: Wert wird nicht eingelesen

27.05.2016 14:12:57

Michael

Hi Lisa,
hier beschleunigtes Makro anbei.
Ich habe alle select und activate rausgeworfen, aber abgesehen davon: daß nach 5 Werten Schluß war, lag daran, daß Du vor Deiner Schleife "With Tabelle3" stehen hattest, und das ist nun mal Aurelia.
Datei: https://www.herber.de/bbs/user/105823.xlsm
Schöne Grüße,
Michael

AW: Wert wird nicht eingelesen

30.05.2016 07:05:57

ter

Danke Michael,
läuft wir geschmiert und sieht auch viel schöner aus.
Fehler verstanden; manchmal sieht man den Wald vor lauter Bäumen nicht!
Liebe Grüße,Lisa

freut mich,

30.05.2016 15:54:56

Michael

Lisa,
wenn es Dir taugt.
Vielen Dank für Deine freundliche Rückmeldung.
Weiterhin happy Exceling & LG,
Michael

Beliebteste Forumthreads (12 Monate)

Forumthread: Wert wird nicht eingelesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread