Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA, "IF" Fehlermeldung

Forumthread: VBA, "IF" Fehlermeldung

VBA, "IF" Fehlermeldung
25.05.2023 15:03:22
Fred


Hallo Excel Profis,
ich habe ein Makro geschrieben, welches mir Daten von Sheet "Hz2" nach Sheet "Depot" kopieren soll,- wenn in Zelle "Cy2" (eine Formel) nicht "#DIV/0!" ausgegeben wird.

Sub nach_Depot()
    If Worksheets("Hz2").Range("CY2").Value > CVErr(xlErrDiv0) Then
       
        Application.ScreenUpdating = False
        ENDE_Depot = Sheets("Depot").Cells(Rows.count, 8).End(xlUp).Row + 1
        Worksheets("Hz2").Range("AI2:DB2").Copy
        Worksheets("Depot").Range("A" & ENDE_Depot).PasteSpecial xlPasteValues
        Worksheets("Depot").Range("A" & ENDE_Depot).PasteSpecial xlFormats
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
        
    End If
End Sub

Wenn der Fehlerwert in "Cy2" vorhanden ist, wird wie gewünscht nicht kopiert.
Steht allerdings kein "Fehlerwert" drin, kommt die Fehlermeldung 13: "Typen unverträglich"
Meine Frage:
Wie ändere ich das Makro entsprechend?

Gruss
Fred

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA, "IF" Fehlermeldung
25.05.2023 15:06:33
Pierre
Hallo Fred,

schreib mal unter Sub noch "Dim ENDE_Depot As Long"

Vielleicht reicht das schon.

Gruß Pierre

PS: Variablendeklaration erforderlich anhaken ;-) Bzw. ganz oben Option Explicit.


AW: VBA, "IF" Fehlermeldung
25.05.2023 15:23:52
Fred
Hallo Sheldon und Pierre,
dies kopiert ohne Fehlermeldung, wenn kein Fehlerwert in CY2:
If Worksheets("Hz2").Range("CY2").Value > "#DIV/0!" Then
wenn aber in CY2 ein Fehlerwert, dann Fehlermeldung.

Gruss
Fred


Anzeige
AW: VBA, "IF" Fehlermeldung
25.05.2023 15:15:00
Sheldon
Hallo Fred,

du solltest zunächst prüfen, ob überhaupt ein Fehler in der Zelle ist. Bspw. so:


Sub nach_Depot()
    If IsError(Worksheets("Hz2").Range("CY2").Value) then
            If Worksheets("Hz2").Range("CY2").Value > CVErr(xlErrDiv0) Then
       
                Application.ScreenUpdating = False
                ENDE_Depot = Sheets("Depot").Cells(Rows.count, 8).End(xlUp).Row + 1
                Worksheets("Hz2").Range("AI2:DB2").Copy
                Worksheets("Depot").Range("A" & ENDE_Depot).PasteSpecial xlPasteValues
                Worksheets("Depot").Range("A" & ENDE_Depot).PasteSpecial xlFormats
                Application.CutCopyMode = False
                Application.ScreenUpdating = True
        
            End If
        End If
End Sub
Gruß
Sheldon


Anzeige
AW: VBA, "IF" Fehlermeldung
25.05.2023 15:19:20
Daniel
Hi
Fehlerwerte sind in VBA etwas komisch.
du kannst zwar zwei Fehlerwerte miteinander vergleichen, aber nicht einen Fehlerwert mit einem normalen Wert.

probiers mal so:

If CStr(Worksheets("Hz2").Range("CY2").Value) > CStr(CVErr(xlErrDiv0)) Then

Gruß Daniel


Anzeige
Daniel: Klasse!
25.05.2023 15:28:06
Fred
Hallo Daniel,
If CStr(Worksheets("Hz2").Range("CY2").Value) > CStr(CVErr(xlErrDiv0)) Then
ist in dem Fall die richtige Lösung.
Vielen Dank für deine Unterstützung und bereitgestellte Kompetenz!

Gruss
Fred

Forumthreads zu verwandten Themen

VBA Tool
Marco


Hallo zusammen habe folgendes VBA programm geschrieben siehe unten.
Leider gibt es noch Fehler.
Sinn und zweck ist es zwei unterschiedliche tabellen mit einander zu vergleichen wobei die einzelnen parameter nicht auf der gleichen position liegen.
Darüberhinaus gibt es keinen e...
18.09.2013 16:43:17
Thread-ID: 1331359
1 Beitrag
VBA If-Schleife nächste leere Zeile
Gesa

Hallo zusammen,
ich habe mir mit Hilfe dieses Forums schon viel beigebracht, aber aktuell komme ich nicht weiter.
Ich habe im Hintergrund ein userform programmiert und möchte nun das, wenn bestimmte Checkboxen/Textboxen/Optionsbutton ausgewählt/gefüllt sind, mein Wert aus dem Sheet "Pre...
28.01.2018 19:59:55
Thread-ID: 1605459
7 Beiträge
Bedingtes selektieren einzelner Zellen via VBA
Adrian

Hallo!
Ich habe eine Frage zur Realisierung der folgenden Aufgabenstellung.
In einem mit Namen versehenen einspaltigen Zellbereich variabler Größe sollen alle Zellen deren Zellinhalt einen vorgegebenen Text enthalten selektiert und anschließend ausgeblendet bzw. eingeblendet werden.
...
20.09.2007 14:42:40
Thread-ID: 909093
3 Beiträge
VBA OR und AND Operatoren priorisieren
ganzir
Hallo, gibt es ein Möglichkeit, den OR-Operator dazu zu bewegen, den Wahrheitswert anderer Statement als ganzes zu evaluieren?


If Worksheets("Tabelle1").Range("A2").Value = 30 And Worksheets("Tabelle1").Range("B2").Value > 22 Or Worksheets("Tabelle1").Range("A2").Value = 30 And Work...
02.06.2025 20:32:18
Thread-ID: 2013684
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum