Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wertausgabe funktioniert nicht

Forumthread: Wertausgabe funktioniert nicht

Wertausgabe funktioniert nicht
22.11.2016 08:14:47
Gabi
Hallo zusammen,
ich weiß nicht mehr weiter...
Hier mein Code-Auszug:
Dim Step As Range
Dim Einsatzstunden As Double
Set Step = KundenZelle.Offset(1, 0)
Einsatzstunden = Step.Offset(0, 2).Value
Debug.Print Einsatzstunden
Debug.Print Step
Ich möchte den Inhalt einer Zelle mit Offset auslesen. Allerdings ist dafür ein Zwischenschritt notwendig, da Excel aufgrund von verbundenen Zellen sonst nicht die richtige Zelle ausliest. Dieser Zwischenschritt ist "Step". Die Zelle, die ich letztendlich auslesen möchte, ist ein Double-Wert. Deshalb habe ich die "Einsatzstunden" als Double deklariert. Allerdings kommt dann immer die Fehlermeldung "Typen unverträglich". Der gewünschte Wert wird anschließend zwar ausgegeben, jedoch nicht als Double. Was habe ich falsch gemacht?
Bin für jede Hilfe dankbar.
Liebe Grüße
Gabi
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wertausgabe funktioniert nicht
22.11.2016 09:14:58
baschti007
versuch es mal so
Einsatzstunden = cdbl(Step.Offset(0, 2).Value)
Gruß Basti
AW: Wertausgabe funktioniert nicht
22.11.2016 16:47:01
Gabi
Hallo Basti,
vielen Dank für deine schnelle Antwort, aber leider bleibt das oben beschriebene Problem bestehen.
Liebe Grüße
Gabi
AW: Wertausgabe funktioniert nicht
22.11.2016 17:22:05
Bastian
Dan lad mal eine Bsp Mappe hoch
Gruß Basti
Anzeige
AW: Wertausgabe funktioniert nicht
22.11.2016 17:49:49
Gabi
Hallo Basti,
anbei meine Beispielmappe. Allerdings musste ich einiges löschen. In der Datei funktioniert der Code nun nicht mehr und ich weiß auf die Schnelle nicht warum. Kannst du trotzdem etwas damit anfangen?
https://www.herber.de/bbs/user/109647.xlsm
Liebe Grüße
Gabi
Anzeige
AW: Wertausgabe funktioniert nicht
22.11.2016 21:26:54
Bastian
Du solltest vielleich noch erklären was du haben willst =D
So steige ich durch den code ned durch XD
Gruß Basti
AW: Wertausgabe funktioniert nicht
23.11.2016 08:08:32
hary
Moin Gabi
3,00 ist fuer Excel immer 3 ohne die Nullen.
Das was du siehst, ist nur das Format der Zelle nicht der Wert.
Du kannst das so machen: 
Dim Einsatzstunden As String
Einsatzstunden = Format(Step.Offset(0, 2), "0.00")
oder du formatierst die Zellen, in der die Eintraege erfolgen, vorher. Trotzdem bleibt der Wert 3 und nicht 3,00.
gruss hary
Anzeige
AW: Wertausgabe funktioniert nicht
23.11.2016 19:41:37
Gabi
Hallo Hary,
vielen Dank für deine Antwort. Jetzt funktioniert es wie gewünscht :-))
Liebe Grüße
Gabi
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Diagramm funktioniert nicht unter Ex 2007
Bernd

Hallo,
Nachdem ich eines meiner Probleme selbst gelöst habe, doch noch einmal zu dem Problem, dass ich einem Chart in Excel 2003 über VBA neue Bereiche zuordnen kann, wenn ich die Datei aber unter Excel 2007 öffne, bekomme ich eine Fehlermeldung.
Vielleicht findet sich ja doch noch jema...
20.08.2008 12:37:17
Thread-ID: 1003172
3 Beiträge
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Warum funktioniert der Code nicht ?
TomTom


Hi,
ich habe auf meinem Scheet 2 Textboxen untereinander (1 und 2)
Da werden nun daten reingeladen. Entsprechend der Texteingabe, werden auch die Textboxen entsprechend hoch. Mein Ziel war es, wenn in der Textbox1 so viel Text drin steht, dass die Untere Kante der Textbox1 über di...
10.09.2008 13:22:37
Thread-ID: 1008773
3 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
DisplayHeading funktioniert nicht für alle Sheets
Backblech

Hallo liebe Leute,
ich würde gerne in meiner Excel-Datei auf allen Sheets die Zeilen- und Spaltenbeschriftungen ausblenden. Normalerweise geht das ja ganz einfach mit:
Application.ActiveWindow.DisplayHeadings = False
Soweit, so gut, aber in meiner Datei werden bei Aufruf des Befehls...
22.09.2008 10:55:07
Thread-ID: 1011404
5 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige