Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1132to1136
1132to1136
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler aufgrund #DIV/0 bzw #WERT | Herbers Excel-Forum

Forumthread: Laufzeitfehler aufgrund #DIV/0 bzw #WERT

Laufzeitfehler aufgrund #DIV/0 bzw #WERT
27.01.2010 13:17:13
Gegga

Hallo zusammen
Bekomme beim einlesen von Werten aus einem Excelsheet in eine UF folgenden Laufzeitfehler.
-214735271 (8002005)
Eigenschaft Value konnte nicht gesetzt werden. Typenkonflikt
Habe durch F8 drücken geschaut wo er aussteigt. Dies geschieht immer an Zellen in denen der Wert enteder #DIV/0 oder #WERT enthalten ist.
Sorge ich dafür das dies verschwindet, kommt dieser Laufzeitfehler nicht.
Ist es möglich per VBA diesen Fehler zu umgehen? Aufgrund der Grösse und des Umfangs der Liste wäre es sehr Zeitraubend in jedes berechnungsfeld =WENN(ISTFEHLER... einzubauen da mit festen Zellbezügen gearbeitet wird und deshalb "Formel Anklicken, nach unten ziehen" nicht funktioniert.
Wer kann mir da auf die schnelle und unkompliziert helfen?
Vielen Dank!!!
Gruss Gegga

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If Not IsError(Cells(lngZeile, lngSpalte)) Then
27.01.2010 13:22:17
NoNet
Hall Gegga,
verwende z.B. anstatt diese Version :
Msgbox Cells(lngZeile,lngSpalte)
die fehlerüberpüfte Version :
If Not IsError(Cells(lngZeile, lngSpalte)) Then
    Msgbox Cells(lngZeile,lngSpalte)
End If

Gruß, NoNet
AW: If Not IsError(Cells(lngZeile, lngSpalte)) Then
27.01.2010 13:28:09
Hajo_Zi
Hallo NoNet,
warum markierst Du den Beitrag als offen?
Du hast doch eine Lösung vorgeschlagen, lasse doch den Fragesteller die Frage als offen kennzeichnen.
Man kann in diesem Forum offnen Beiträge nur rausnehmen durch einen neuen Beitrag, früher ging das einfacher.

Anzeige
AW: If Not IsError(Cells(lngZeile, lngSpalte)) Then
27.01.2010 13:34:18
Gegga
Wennich dich also richtig verstanden habe (ich füge mal den kompletten Initialize Vorgang ein:
Private Sub UserForm_Initialize()
Dim lngCurRow&, I&
Dim wks As Worksheet
Set wks = Sheets("Startsheet")
lngCurRow = wks.Range("A7:A" & Rows.Count).SpecialCells(12).Row
With UF_SAETZE_BEARBEITEN
.TB_TEILEFAMILIE = wks.Cells(lngCurRow, 2)
.TB_PPSNUMMER = wks.Cells(lngCurRow, 3)
.TB_TEILENUMMER_KUNDE = wks.Cells(lngCurRow, 4)
.TB_BEZEICHNUNG = wks.Cells(lngCurRow, 5)
.CBO_KUNDE = wks.Cells(lngCurRow, 6)
.CBO_BRANCHE = wks.Cells(lngCurRow, 7)
.TB_ARTIKELCODE = wks.Cells(lngCurRow, 8)
.TB_JAHRESTEILER = wks.Cells(lngCurRow, 9)
.TB_ANZAHL_RESTMONATE = wks.Cells(lngCurRow, 10)
.TB_ANZAHL_FERTIGUNGSLOSE = wks.Cells(lngCurRow, 11)
.TB_PLANUNGSGRUNDLAGE = wks.Cells(lngCurRow, 12)
.TB_MIN = wks.Cells(lngCurRow, 13)
.TB_MAX = wks.Cells(lngCurRow, 14)
.TB_EINGABEDATUM_STÜCKZAHLEN = wks.Cells(lngCurRow, 15).Text
.TB_SICHERHEIT = wks.Cells(lngCurRow, 16)
.TB_INTERN_GEPLANTE_MENGE = wks.Cells(lngCurRow, 17)
.TB_AUFTEILUNGSFAKTOR_MASCHINE = wks.Cells(lngCurRow, 18)
.TB_AUFTEILUNG = wks.Cells(lngCurRow, 20)
.TB_LOSGRÖSSE = wks.Cells(lngCurRow, 21)
.TB_1_MACHINE = wks.Cells(lngCurRow, 22)
.TB_1_TE = wks.Cells(lngCurRow, 23)
.TB_1_TR_ATR = wks.Cells(lngCurRow, 24)
.TB_1_H_LOS = wks.Cells(lngCurRow, 25)
.TB_1_H_MONAT = wks.Cells(lngCurRow, 26)
.TB_2_MACHINE = wks.Cells(lngCurRow, 27)
.TB_2_TE = wks.Cells(lngCurRow, 28)
.TB_2_TR_ATR = wks.Cells(lngCurRow, 29)
.TB_2_H_LOS = wks.Cells(lngCurRow, 30)
.TB_2_H_MONAT = wks.Cells(lngCurRow, 31)
.TB_3_MACHINE = wks.Cells(lngCurRow, 32)
.TB_3_TE = wks.Cells(lngCurRow, 33)
.TB_3_TR_ATR = wks.Cells(lngCurRow, 34)
.TB_3_H_LOS = wks.Cells(lngCurRow, 35)
.TB_3_H_MONAT = wks.Cells(lngCurRow, 36)
.TB_ZUSATZPROZESSE_ARBEITSPLATZ = wks.Cells(lngCurRow, 37)
.TB_ZUSATZPROZESSE_TE = wks.Cells(lngCurRow, 38)
.TB_ZUSATZPROZESSE_TR_ATR = wks.Cells(lngCurRow, 39)
.TB_ZUSATZPROZESSE_H_LOS = wks.Cells(lngCurRow, 40)
.TB_ZUSATZPROZESSE_H_MONAT = wks.Cells(lngCurRow, 41)
.TB_GESAMT_H_MONAT = wks.Cells(lngCurRow, 43)
.TB_MONAT01 = wks.Cells(lngCurRow, 47)
.TB_PREIS01 = wks.Cells(lngCurRow, 48)
.TB_SUMME01 = wks.Cells(lngCurRow, 49)
.TB_MONAT02 = wks.Cells(lngCurRow, 50)
.TB_PREIS02 = wks.Cells(lngCurRow, 51)
.TB_SUMME02 = wks.Cells(lngCurRow, 52)
.TB_MONAT03 = wks.Cells(lngCurRow, 53)
.TB_PREIS03 = wks.Cells(lngCurRow, 54)
.TB_SUMME03 = wks.Cells(lngCurRow, 55)
.TB_MONAT04 = wks.Cells(lngCurRow, 56)
.TB_PREIS04 = wks.Cells(lngCurRow, 57)
.TB_SUMME04 = wks.Cells(lngCurRow, 58)
.TB_MONAT05 = wks.Cells(lngCurRow, 59)
.TB_PREIS05 = wks.Cells(lngCurRow, 60)
.TB_SUMME05 = wks.Cells(lngCurRow, 61)
.TB_MONAT06 = wks.Cells(lngCurRow, 62)
.TB_PREIS06 = wks.Cells(lngCurRow, 63)
.TB_SUMME06 = wks.Cells(lngCurRow, 64)
.TB_MONAT07 = wks.Cells(lngCurRow, 65)
.TB_PREIS07 = wks.Cells(lngCurRow, 66)
.TB_SUMME07 = wks.Cells(lngCurRow, 67)
.TB_MONAT08 = wks.Cells(lngCurRow, 68)
.TB_PREIS08 = wks.Cells(lngCurRow, 69)
.TB_SUMME08 = wks.Cells(lngCurRow, 70)
.TB_MONAT09 = wks.Cells(lngCurRow, 71)
.TB_PREIS09 = wks.Cells(lngCurRow, 72)
.TB_SUMME09 = wks.Cells(lngCurRow, 73)
.TB_MONAT10 = wks.Cells(lngCurRow, 74)
.TB_PREIS10 = wks.Cells(lngCurRow, 75)
.TB_SUMME10 = wks.Cells(lngCurRow, 76)
.TB_MONAT11 = wks.Cells(lngCurRow, 77)
.TB_PREIS11 = wks.Cells(lngCurRow, 78)
.TB_SUMME11 = wks.Cells(lngCurRow, 79)
.TB_MONAT12 = wks.Cells(lngCurRow, 80)
.TB_PREIS12 = wks.Cells(lngCurRow, 81)
.TB_SUMME12 = wks.Cells(lngCurRow, 82)
.TB_ROHMATERIALPREIS = wks.Cells(lngCurRow, 84)
.TB_ROHMATERIALPREIS_DATUM = wks.Cells(lngCurRow, 85)
.TB_ROHMATERIALEINSATZ = wks.Cells(lngCurRow, 86)
.TB_AFTG_AG_01 = wks.Cells(lngCurRow, 87)
.TB_AFTG_AG_01_DATUM = wks.Cells(lngCurRow, 88)
.TB_AFTG_AG_1_EINSATZ = wks.Cells(lngCurRow, 89)
.TB_AFTG_AG_02 = wks.Cells(lngCurRow, 90)
.TB_AFTG_AG_02_DATUM = wks.Cells(lngCurRow, 91)
.TB_AFTG_AG_2_EINSATZ = wks.Cells(lngCurRow, 92)
.TB_AFTG_AG_03 = wks.Cells(lngCurRow, 93)
.TB_AFTG_AG_03_DATUM = wks.Cells(lngCurRow, 94)
.TB_AFTG_AG_3_EINSATZ = wks.Cells(lngCurRow, 94)
.TB_VERKAUFSPREIS = wks.Cells(lngCurRow, 96)
.TB_VERKAUSPREIS_DATUM = wks.Cells(lngCurRow, 97)
.TB_UMSATZ = wks.Cells(lngCurRow, 98)
TB_LOSGRÖSSE.Text = Format(TB_LOSGRÖSSE.Text, "#0")
TB_1_H_LOS.Text = Format(TB_1_H_LOS.Text, "#,##0.00 ")
TB_2_H_LOS.Text = Format(TB_2_H_LOS.Text, "#,##0.00 ")
TB_3_H_LOS.Text = Format(TB_3_H_LOS.Text, "#,##0.00 ")
TB_ZUSATZPROZESSE_H_LOS.Text = Format(TB_ZUSATZPROZESSE_H_LOS.Text, "#,##0.00 ")
TB_1_H_MONAT.Text = Format(TB_1_H_MONAT.Text, "#,##0.00 ")
TB_2_H_MONAT.Text = Format(TB_2_H_MONAT.Text, "#,##0.00 ")
TB_3_H_MONAT.Text = Format(TB_3_H_MONAT.Text, "#,##0.00 ")
TB_ZUSATZPROZESSE_H_MONAT.Text = Format(TB_ZUSATZPROZESSE_H_MONAT.Text, "#,##0.00 ") _
TB_GESAMT_H_MONAT.Text = Format(TB_GESAMT_H_MONAT.Text, "#,##0.00 ")
TB_PREIS01.Text = Format(TB_PREIS01.Text, "#,##0.00 €")
TB_SUMME01.Text = Format(TB_SUMME01.Text, "#,##0.00 €")
TB_PREIS02.Text = Format(TB_PREIS02.Text, "#,##0.00 €")
TB_SUMME02.Text = Format(TB_SUMME02.Text, "#,##0.00 €")
TB_PREIS03.Text = Format(TB_PREIS03.Text, "#,##0.00 €")
TB_SUMME03.Text = Format(TB_SUMME03.Text, "#,##0.00 €")
TB_PREIS04.Text = Format(TB_PREIS04.Text, "#,##0.00 €")
TB_SUMME04.Text = Format(TB_SUMME04.Text, "#,##0.00 €")
TB_PREIS05.Text = Format(TB_PREIS05.Text, "#,##0.00 €")
TB_SUMME05.Text = Format(TB_SUMME05.Text, "#,##0.00 €")
TB_PREIS06.Text = Format(TB_PREIS06.Text, "#,##0.00 €")
TB_SUMME06.Text = Format(TB_SUMME06.Text, "#,##0.00 €")
TB_PREIS07.Text = Format(TB_PREIS07.Text, "#,##0.00 €")
TB_SUMME07.Text = Format(TB_SUMME07.Text, "#,##0.00 €")
TB_PREIS08.Text = Format(TB_PREIS08.Text, "#,##0.00 €")
TB_SUMME08.Text = Format(TB_SUMME08.Text, "#,##0.00 €")
TB_PREIS09.Text = Format(TB_PREIS09.Text, "#,##0.00 €")
TB_SUMME09.Text = Format(TB_SUMME09.Text, "#,##0.00 €")
TB_PREIS10.Text = Format(TB_PREIS10.Text, "#,##0.00 €")
TB_SUMME10.Text = Format(TB_SUMME10.Text, "#,##0.00 €")
TB_PREIS11.Text = Format(TB_PREIS11.Text, "#,##0.00 €")
TB_SUMME11.Text = Format(TB_SUMME11.Text, "#,##0.00 €")
TB_PREIS12.Text = Format(TB_PREIS12.Text, "#,##0.00 €")
TB_SUMME12.Text = Format(TB_SUMME12.Text, "#,##0.00 €")
TB_ROHMATERIALPREIS.Text = Format(TB_ROHMATERIALPREIS.Text, "#,##0.00 €")
TB_ROHMATERIALEINSATZ.Text = Format(TB_ROHMATERIALEINSATZ.Text, "#,##0.00 €")
TB_AFTG_AG_01.Text = Format(TB_AFTG_AG_01.Text, "#,##0.00 €")
TB_AFTG_AG_1_EINSATZ.Text = Format(TB_AFTG_AG_1_EINSATZ.Text, "#,##0.00 €")
TB_AFTG_AG_02.Text = Format(TB_AFTG_AG_01.Text, "#,##0.00 €")
TB_AFTG_AG_2_EINSATZ.Text = Format(TB_AFTG_AG_2_EINSATZ.Text, "#,##0.00 €")
TB_AFTG_AG_03.Text = Format(TB_AFTG_AG_01.Text, "#,##0.00 €")
TB_AFTG_AG_3_EINSATZ.Text = Format(TB_AFTG_AG_3_EINSATZ.Text, "#,##0.00 €")
TB_VERKAUFSPREIS.Text = Format(TB_VERKAUFSPREIS.Text, "#,##0.00 €")
TB_UMSATZ.Text = Format(TB_UMSATZ.Text, "#,##0.00 €")
End With
If wks.Cells(lngCurRow, 45) = "X" Then
UF_SAETZE_BEARBEITEN.OP_WZ_EINGES_JA.Value = True
If wks.Cells(lngCurRow, 46) = "X" Then
UF_SAETZE_BEARBEITEN.OP_WZ_MASCH_JA.Value = True
If wks.Cells(lngCurRow, 1) = "X" Then
UF_SAETZE_BEARBEITEN.OB_AKTIV.Value = True
End If
End If
End If
End Sub

müsste das so aussehen:
If Not IsError(wks.Cells(lngCurRow, 2)) Then
.TB_TEILEFAMILIE = wks.Cells(lngCurRow, 2)
End If
Weia dann habe ich was zu tun...
jetzt kann ich es mir aussuchen ob ich die =WENN(ISTFEHLER...) Variante nehme oder deine NoNet...
Zeitraubend werden beide sein ;)
Oder gibts vllt doch noch ne Abkürzung? *hoff*
Trotzdem Danke für die Hilfe.
Greetz Gegga
Anzeige
Dann lieber : On Error Resume Next
27.01.2010 13:44:49
NoNet
Hallo Gegga,
bei dieser Anzahl an Textfeldern empfehle ich Dir den Einsatz von "On Error...." :
On Error Resume Next 'Fehler ignorieren
With UF_SAETZE_BEARBEITEN
'...
End With
On Error goto 0 'Fehlerbehandlung wieder aktivieren
Gruß, NoNet
;

Forumthreads zu verwandten Themen

Verzinsung aus Endwert Laufzeit und Barwert
Alex

Hallo Liebes Forum,
ich würde gerne wissen wie ich die Jährliche Verzinsung einer Kapitalanlage aus Endwert(liegt vor) Barwert (0) und der Laufzeit berechnen kann. Dies habe ich bislang mit dem Solver gemacht, wünsche mir aber eine automatische Funktion?
Währe für jede Hilfe Dankbar
...
01.09.2010 21:58:18
Thread-ID: 1175324
4 Beiträge
Laufzeitfehler 9 und wirre Variablenwerte
Alex

Ich beschäftige mich momentan mit verschachtelten Schleifen zur Optimierung von Wegen im Traveling Salesman Problem. Nun habe ich einen Ansatz entwickelt, der so in etwa auch funktionieren könnte, allerdings macht mir ein Laufzeitfehler 9 große Probleme, der mich heute schon mehr als die Hälfte...
06.01.2011 12:13:12
Thread-ID: 1194183
3 Beiträge
Datum /Zeit aus Systemsekundenwert
Climbi

Hallo
ich erhalte von einer externen Einheit die Systemsekunden, welche die Uhrzeit und das Datum angeben.
Leider ist das Startdatum in diesem Fall der 1.1.2000. Bei Excel beginnt die Systemsekunden im Jahr
1900.
Für mich stellt sich nun die Frage wie ich die Systemsekunden ab...
06.03.2012 08:55:19
Thread-ID: 1253797
3 Beiträge
Hilfe: Arbeitszeit und Projektauswertung
Fabien

Hallo,
komme einfach nicht weiter und bräuchte mal eure Hilfe.
Meine Tabelle soll Arbeitszeiten von Mitarbeitern auswerten (funktioniert schon) und die geleistete Arbeitszeit in den einzelnen Projekten (hier komm ich nicht weiter), wobei dies einfach pauschal halbiert werden soll sobald...
27.05.2015 10:49:48
Thread-ID: 1427917
3 Beiträge
Tabelle Zeit und Wertabhängig mit Diagramm auswert
Marco

Hallo,
ich habe folgendes Problem,
Ich habe ein Archiv das in mehreren Diagrammen ausgewertet werden soll.
Die Daten kommen aus dem Sheet CPM Archiv. Dieses wird täglich mit neuen Datensätzen gefüllt.
Störungskategorie steht in Spalte B, Maschine in Spalte C, Datum in Spalte E.<...
23.09.2015 13:15:05
Thread-ID: 1448937
3 Beiträge
Geomittel für Wert- und Zeitmessungen
Elmar

Hallo, ihr Excel-Klugen!
Ich habe eine sehr komplexe Benchmark-Auswertung von HDDs, SSDs und eine von mir entwickelte Hyperfast-Methode mit mehreren 1000 Ergebnissen. Ich habe die ultimative Herausforderung, diese jetzt übersichtlich darzustellen.
Dabei sind überwiegend die höheren Wert...
02.02.2016 02:52:23
Thread-ID: 1472572
20 Beiträge
Anzeige
SUMMENPRODUKT mit Zeit und Werten
Eva-Maria

Hallo zusammen, ich brauche eure Hilfe!
Ich komm da grad nicht drauf:
Ich habe in Spalte A das Datum und in Spalte B Produkte und in Spalte C den Wert.
ZB:
27.01.2016 Banane Fr. 525.00
29.01.2016 Apfel Fr. 180.00
03.02.2016 Banane Fr. 450.00
24.02.2016 22:00:54
Thread-ID: 1477952
3 Beiträge
Zählen von TextWerten und gleichzeitige Auswertung
Werner Berhorst

Bei der Auswertung der Tabelle sollten auch die Werte in der Spalte B1 bis B 93 mit dem Text "Mo, Mi, Fr, Sa" einzeln ausgewertet werden.Habe mit der Formel =ZÄHLENWENN(B1:B93;"Mo") versucht !Klappt leider nicht !! Kann mir jemand helfen ?? Vielen Dank !!
WB 1
NW NW Sa
WB 1

WB...
27.08.2002 15:14:43
Thread-ID: 153324
2 Beiträge
Anzeige
Zellenwerte und Symbole gleichezeitig kopieren
Sait

Hallo zusammen,
ich möchte eigtl. nur die Zellenwerte mit 2 Symbolen gleichzeitig in die Zwischenablage kopieren, um diese in einem Schritt in eine PowerPoint Datei einzufügen.
Aber ich komme einfach nicht weiter, entweder kopiert Excel nur die Zellenwerte oder nur die Symbole. Leider...
22.05.2018 11:35:10
Thread-ID: 1625076
3 Beiträge
Wertevergleich abhängig von ID und Zeitstempel
ID

Erst einmal vielen Dank an alle Foristen, deren Beiträge mir schon mit der einen oder anderen Excel Herausforderung geholfen haben.
Ich habe eine Excel Tabelle mit IDs in Spalte A, Werten in Spalte B und C und eine Zeitangabe in Spalte D.
Nun benötige ich ein Makros das folgendes macht:...
20.03.2019 16:48:26
Thread-ID: 1682397
10 Beiträge
Anzeige
Datum u. Uhrzeit aus Sekundenwert
Dirk Scheffler

Hallo Forumteilnehmer,ich habe folgendes Problem: Eine Anwendung gibt mir in 10 min Abständen Werte aus. Das Problem ist, dass als Zeitstempel (Datum u. Uhrzeit) ein Sekundenwert werwendet wird.
Beginn der Zählung ist der 01.01.1970.
Ich habe schon viel Probiert, aber bekomme keine Form...
10.12.2002 12:41:23
Thread-ID: 191199
5 Beiträge
negative Datumswerte und Zeiten berechnen/anzeigen
Heidi

Hallo an alle Experten,
ich möchte gern meine Arbeitszeiten verwalten und stoße hier an meine Grenzen, da negative Ergebnisse (Minusstunden) immer als #### angezeigt werden.
Hier ein Bsp.
Anfang Pause Ende gearbeitet Tagessoll Differenz
8:00 0:30 17:30 9:00 8:00 1...
11.12.2004 17:17:38
Thread-ID: 531559
5 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