falscher Datentyp

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Set y = Sheets(1).Range("P:P").Find("") Set y = AZ_Ganzer Set y = Sheets(1).Range("Q:Q").Find("") Set y = EP_Ganzer Set y = Sheets(1).Range("R:R").Find("") Set y = "" Set y = Sheets(1).Range("S:S").Find("") Set y = AZ_Halber Set y = Sheets(1).Range("T:T").Find("") Set y = EP_Halber Set y = Sheets(1).Range("U:U").Find("") Set y = "" Set y = Sheets(1).Range("V:V").Find("") Set y = AZ_Wabe Set y = Sheets(1).Range("W:W").Find("") Set y = EP_Wabe Set y = Sheets(1).Range("X:X").Find("") Set y = "" Set y = Sheets(1).Range("Y:Y").Find("") Set y = Gesamt Set y = Sheets(1).Range("Z:Z").Find("") Set y = ""

Schönen Guten Morgen,
Eigentlich das Selbe wie der hier angeführte Code:
'Preise abfragen und in Tabelle eintragen

Sub CommandButton1_Click()  'auf UserForm2
Dim hier As Range                  'Datum eintragen
Dim Datumx
Dim Zeilennr
Datumx = Str$(Date)
Set hier = Sheets(1).Range("A:A").Find("")
Zeilennr = hier.Row
hier = Datumx
Dim y As Range
Dim x As Single
Dim GP_Ganzer As Single
Dim GP_Halber As Single
Dim GP_Wabe As Single
GP_Ganzer = CInt(Cells(2, 27))  '=AA2
GP_Halber = GP_Ganzer / 2
GP_Wabe = CInt(Cells(3, 27))    '=AA3
Set y = Sheets(1).Range("B:B").Find("")
y = GP_Ganzer
Set y = Sheets(1).Range("D:D").Find("")
y = GP_Halber
Set y = Sheets(1).Range("F:F").Find("")
y = GP_Wabe
Set y = Sheets(1).Range("C:C").Find("")
y = ""
Set y = Sheets(1).Range("E:E").Find("")
y = ""
Set y = Sheets(1).Range("G:G").Find("")
y = ""
UserForm2.Hide
UserForm1.Show
End 

Sub
Daten -wie Grundpreis (GP_Xxxx) oder Stückzahl (AZX...) werden per Userform abefragt und dann  _
der Reihe nach in die Tabelle eingetragen(

Sub Command ButtonX_Click.....).
Bei den Spalten A bis G funktioniert es tadellos.
Also habe ich diesen Teil des Codes kopiert und die Spalten P bis Z eingesetzt und die  _
Variablen die in diese Spalten gehören.
Die Crux an der Sache -> warum funktioniert der Code bei den einen Spalten und bei den Anderen  _
nicht. Beim ersten Durchlauf wird die Tabelle (Spalten A-G) schön gefüllt. Wie gewünscht.
Beim zweiten Mal bekomme ich gleich bei der ersten Spalte (P) eine Typenunverträglichkeit zurü _
ck.
Wieso nicht schon beim ersten Mal bei den Spalten A-G ? Wo es doch die selben Variablentypen  _
sind?
https://www.herber.de/bbs/user/128551.txt
_
mfg
Alfred Pfeiler

Hallo,
anscheinend wurde der Begleittext zum File schlampig durchgelesen. Nachdem ich meinen Beitrag gesendet habe, gönnte ich mehr einen Espresso mit Zigarette auf der Terrasse mit den Morgenliedern der Vögel als Aufmunterung.......und siehe da, die Ganglien funktionierten wieder.
Ganz einfach das "set" weglassen.Und Alles dreht sich, alles bewegt sich so wie man es wünscht.
Zur Schlampigkeit: ich habe klar und deutlich geschrieben, dass ich dieses sub schon mehrfach in Verwendung hatte. Ohne Probleme!!! Nur die Kopie lief nicht (war bei genauem hinsehn auch keine 1zu1-Kopie.Der große Komfort bei den heutigen Editoren verleitet zu Flüchtigkeitsfehlern).
Wenn man sich mit VBA und seinen Variablen ein ganz kleines bißchen auskennt, weiss man auch sofort, warum was nicht läuft. Man muss sich nur die Mühe nehmen und alles genau durchlesen: wenn man das set weglässt, wird der Variablentyp automatisch als Variant gesetzt und dann kann man damit tanzen, wie man will.Braucht zwar mehr Speicher, aber bei dem Miniprogramm ist das auch wurscht.Ich hoffe, ich habe das jetzt nicht auch so von oben herab erklärt.Ich bin halt nur Elektrotechniker in Rente und kein Überdrüberprofessor.
mfg
Alfred Pfeiler
https://www.herber.de/bbs/user/128570.txt

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

falscher Datentyp

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread