Guten Abend
ich möchte gerne einen Wert aus einem anderen Tabellenblatt abholen und habe deshalb folgenden Code geschrieben:
Wert = Worksheets(Konto).cells(1,1).value
geht aber nicht. Was mache ich falsch?
Grüße
Nikodemo
Wert = Worksheets(Konto).cells(1,1).value
Hi, 
versuch mal den Namen des Worksheets (Also Konto) in " " zu schreiben.
Normalerweise. wird beim Aufrufen über namen ein String verlangt.
Grüezi Nikodemo
ich möchte gerne einen Wert aus einem anderen Tabellenblatt
abholen und habe deshalb folgenden Code geschrieben:Wert = Worksheets(Konto).cells(1,1).value
geht aber nicht. Was mache ich falsch?
‚Geht nicht‘ gibts nicht… 
Was genau passiert denn in diesem Falle?
Erhälst Du Fehlermeldungen - wenn ja welche?
Stimmt der ausgelesene Wert nicht - oder was ist das Problem?
Prinzipiell ist der Code in Ordnung - es fragt sich halt, welchen Inhalt die Variable ‚Konto‘ hat.
Gesuch wird mit obiger Zeile im aktivem Workbook, wenn das Tabellenblatt mit dem Namen des Inhalts der Variablen ‚Konot‘ nicht vorhanden ist gibt es einen Laufzeitfehler.
–
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Hi, Klein-Arthur,
das hab ich ja, trotzdem danke für deine Antwort.
es grüßt dich
Nikodemo
Guten Morgen Thomas,
so nett heute?
Also: in dem Tabellenblatt („Konto“) steht (Überraschung!) ein Geldbetrag,(„Wert“).
Gedimt habe ich „Wert“ as long
Kommst du so weiter?
es grüßt dich
Nikodemo
also bei mir siehts jetzt so aus:
Sub test()
Dim test as string
Test = Worksheets("Tabelle2").Cells(1, 1).Value
End Sub
Das funzt…
Artur
Hi Artur,
Das ist gut.
Bei mir handelt es sich jedoch nicht um einen String, sonder um einen Geldbetrag. und da funktioniert es einfach noch nicht.
Danke für deine Antwort.
es grüß dich Nikodemo
Moin, Nikodemo,
Also: in dem Tabellenblatt („Konto“) steht (Überraschung!) ein
Geldbetrag,(„Wert“).Gedimt habe ich „Wert“ as long
das scheppert, wenn in „Wert“ ein Dezimaltrennzeichen steht. Verwende lieber ein as currency.
Gruß Ralf
Grüezi Nikodemo
so nett heute?
…das bin ich doch immer…
Also: in dem Tabellenblatt („Konto“) steht (Überraschung!) ein
Geldbetrag,(„Wert“).Gedimt habe ich „Wert“ as long
Kommst du so weiter?
Hmm, so ganz antwortest Du leider nicht auf meine Frage(n).
Was genau ist denn ‚Konto‘?
Ist das eine Variable - wenn ja wie ist diese dimensioniert (müsste String sein) und welchen Wert enthält sie?
Oder ist ‚Konto‘ der Name eines Tabellenblattest?
Dann fehlen die Gänsefüsschen innerhalb der Klammern.
Womit wir wieder bei meinen Fragen wären
Was genau passiert denn in diesem Falle?
Erhälst Du Fehlermeldungen - wenn ja welche?
Stimmt der ausgelesene Wert nicht - oder was ist das Problem?
–
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Ich würds als Double machen. Hier mein Quelltext der ohne Weiteres Funzt. Allerdings wird das Wertzeichen (€, $, etc.) nicht übernommen:
Sub Test()
Dim Wert As Double
Wert = Worksheets("Tabelle2").Cells(1, 1).Value
MsgBox Wert
End Sub
Artur
Moin, Artur,
Allerdings wird das Wertzeichen (€, $, etc.) nicht übernommen:
das Währungszeichen ist Bestandteil der Formatierung, die wird bei Zuweisung per Value nie mitgenommen.
Gruß Ralf
Hi Ralf
Ich weiß war nur ein Hinweiß für evtl. nichtwissende
aber danke trzdm.
Artur