Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlerwerte in Mappe mit VBA auflisten

Fehlerwerte in Mappe mit VBA auflisten
31.07.2015 14:57:34
Michael
Hallo Zusammen,
ist es mit einem kleinen Makro möglich, alle Fehlerwerte mit Adresse innerhalb einer Arbeitsmappe in einem separaten Tabellenblatt aufzulisten [am Anfang via Makro einzufügen]?
Vielen Dank für Eure Unterstützung
Michael

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

Betreff
Datum
Anwender
Anzeige
war doch erst Thema?
31.07.2015 16:47:26
Michael
Hi (auch) Michael,
vor zwei, drei Wochen gab es im Forum einen Thread zum Thema, der richtig zur Sache ging, aber ich habe ihn leider nicht mehr gefunden.
Aber weil das Thema mich auch interessiert, habe ich ein bißchen recherchiert und was Simples zusammegestöpselt:
Sub fehler()
' Recherche: excel vba if cell error
' Treffer u.a. stackoverflow
Dim c As Range
Dim i As Long
For Each c In Selection
' die dumme Methode:
If Mid(c.Text, 1, 1) = "#" Then MsgBox "Fehler " & c.Address & c.Text
' die gescheitere Methode:
If VarType(c.Value) = vbError Then MsgBox "VarType" & c.Address & c.Text
Next
i = 0
For Each c In Selection
If VarType(c.Value) = vbError Then
i = i + 1
Sheets("Fehler").Range("A" & i).Value = c.Address
Sheets("Fehler").Range("B" & i).Value = c.Text
Sheets("Fehler").Range("c" & i).Value = "'" & c.FormulaLocal
End If
Next
MsgBox "Anzahl Fehler: " & i
End Sub
Du markierst einen fehlerbehafteten Bereich und drückst Strg-Shift-M; die Fehler werden in das Blatt "Fehler" [das *musst* Du bitte händisch anlegen] in drei Spalten geschrieben: Adresse, Typ, Formel.
Ach, was soll's. Hier die Datei incl. Blatt "Fehler": https://www.herber.de/bbs/user/99219.xls
Das Ding kann man nach Gusto aufbohren für for each blatt in workbook (außer "Fehler") und statt des selektierten Bereichs auf for each c in blatt.usedrange oder so.
Schöne Grüße,
Michael

Anzeige
noch anpassen
31.07.2015 20:16:39
Michael
Hallo Michael,
Vielen Dank für die Datei.
Ich will damit umfangreiche Mappen überprüfen, ob sich Fehlerwerte darin befinden. Eine Auflistung in einem Tabellenblatt mit Adresse ist daher unverzichtbar. Da ich jedoch von VBA keine Ahnung habe, kann ich das Teil leider selber kaum anpassen.
Kannst Du mich dabei etwas unterstützen?
Vielen Dank für Deine Hilfe!
Gruß
Michael

Fehler in Formeln auflisten in separaten Blatt
31.07.2015 23:44:03
Matthias
Hallo
Schicke einfach eine Schleife über nur die Zellen, welche einen Fehler zurückgeben.
Also ganz ohne Selection.
https://www.herber.de/bbs/user/99230.xlsm
Gruß Matthias

Anzeige
Prima! ... geht das auch mit Blatt anlegen?
02.08.2015 13:41:03
Michael
Hallo Mattias,
vielen Dank auch. Läuft funktionell super!
Da ich das für alle meine Dateien verwenden möchte, speichere ich das Makro in der Personal.xlsb ab.
Dazu wäre es jedoch notwendig, dass das Makro vorab prüft, ob ein Tabellenblatt Fehler existiert und falls nicht, ein Blatt anlegt(am besten als erstes Blatt. MIt den Recorder habe ich das nicht hinbekommen.
... kannst Du nochmal eingreifen?
Vielenb Dan und Gruß
Michael

AW: Prima! ... geht das auch mit Blatt anlegen?
02.08.2015 14:14:40
Matthias
Hallo
Option Explicit
Sub MyNewWorksheet()
Dim x&
For x = 1 To Worksheets.Count
If Worksheets(x).Name = "Fehler" Then
MsgBox "Ein Registerblatt mit Namen:(Fehler) existiert schon", vbCritical
Exit Sub
End If
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = "Fehler"
.Move Before:=Sheets(1)
End With
Next
End Sub
Gruß Matthias

Anzeige
DANKE! owT
02.08.2015 14:18:50
Michael

311 Forumthreads zu ähnlichen Themen

mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 Beiträge
Dateien suchen im Laufwerk zwischen 2 Datums
chris

Hallo VB experten ich komme ich weiter und bitte euch um Hilfe.
ich habe in einem Laufwerk Dateien mit folgenden Namen in der art von diesen hier.
"ScanHistory_test_4226_2008_04.Log" jetzt möchte ich in einer userForm(habe sie bereits erstelt mit zwei feldern für Datum (Datum_von - D...
14.11.2008 10:21:22
Thread-ID: 1024451
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
7
2
2
4
1
3
25
3
5
15
8
4
2
11
4
7
6
9
15
4
5
2
4