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

Bereich leer, dann Fehlermeldung

Forumthread: Bereich leer, dann Fehlermeldung

Bereich leer, dann Fehlermeldung
29.01.2008 17:29:50
mtremer
Hallo Excel-Freunde,
das ist bestimmt eine leichte Aufgabe für Euch:
Ich möchte in einen definierten Bereich (A16:I20) prüfen, ob ein Text oder eine Zahl eingetragen ist.
Wenn nicht, soll eine Fehlermeldung erscheinen.
Wie kann ich das machen?
Danke.
Viele Grüße
Marco

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 17:49:00
Horst
Hi,
das kannst du mit der Funtion ANZAHL2() prüfen.
mfg Horst

AW: Bereich leer, dann Fehlermeldung
29.01.2008 17:57:00
mtremer
Hallo Horst,
ich hatte eigentlich gehofft, das in meinen eh schon bestehenden Code einzubauen.
Ist das möglich?
Danke.
Viele Grüße
Marco

AW: Bereich leer, dann Fehlermeldung
29.01.2008 17:56:25
Erich
Hallo Marco,
wenn du Fehlerwerte ausschließen willst, kannst du besser ZÄHLENWENN verwenden:
 ABCDEFGHI
1344FALSCH       
1445WAHR       
15         
1616x#DIV/0!16x16x16x16x16x16x16x
1717x17x17x17x17x17x17x17x17x
1818x18x18x18x18x18x18x18x18x
1919x19x19x19x19x19x19x19x19x
2020x20x20x20x20x20x20x20x20x

Formeln der Tabelle
ZelleFormel
A13=ZÄHLENWENN(A16:I20;"*")
B13=ZÄHLENWENN(A16:I20;"*")=45
A14=ANZAHL2(A16:I20)
B14=ANZAHL2(A16:I20)=45
B16=1/0

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 17:58:00
mtremer
Hallo Erich,
ich hatte eigentlich gehofft, das in meinen eh schon bestehenden Code einzubauen.
Ist das möglich?
Danke.
Viele Grüße
Marco

AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:08:00
Erich
Hi Marco,
meine Formel mit ZÄHLENWENN war Unfug, sie zählt nur Texte, keine Zahlen.
Besser funzt das mit SUMMENPRODUKT:
 ABCDEFGHI
1344FALSCH       
1445WAHR       
15         
1616x#DIV/0!16x16x16x16x16x16x16x
1717x17x17x17x17x17x17x17x17x
18181818181818181818
1919x19x19x19x19x19x19x19x19x
2020x20x20x20x20x20x20x20x20x

Formeln der Tabelle
ZelleFormel
A13=SUMMENPRODUKT(--ISTTEXT(A16:I20))+SUMMENPRODUKT(--ISTZAHL(A16:I20))
B13=SUMMENPRODUKT(--ISTTEXT(A16:I20))+SUMMENPRODUKT(--ISTZAHL(A16:I20))=45
A14=ANZAHL2(A16:I20)
B14=ANZAHL2(A16:I20)=45
B16=1/0

In VBA sieht das so aus: 

Sub Makro2()
If Evaluate("=SUMPRODUCT(--ISTEXT(A16:I20))+SUMPRODUCT(--ISNUMBER(A16:I20))")

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:29:40
mtremer
Hallo Erich,
ich weiß nicht woran es liegt, aber der Code hat bei mir nicht funktioniert.
Der von Horst dagegen klappt...
Trotzdem danke.
Viele Grüße
Marco

AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:35:12
Erich
Hi Marco,
was bedeutet "hat bei mir nicht funktioniert"?
Kommt keine Fehlermeldung, wenn du eine erwartest? Oder umgekehrt?
Oder meldet VBA einen Fehler?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:39:00
mtremer
Sorry.
Er meldet immer "Fehlermeldung", egal, ob der Bereich gefüllt oder leer ist ;-)
Viele Grüße
Marco

AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:44:36
Erich
Hi Marco,
hier mal eine Beispielmappe, neu darin ist nur Makro3:
https://www.herber.de/bbs/user/49505.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 19:01:38
mtremer
aaaah, Dein Code zählt die nicht freien Zellen.
Desswegen kam logischerweise die Fehlermeldung, zumal ich eine Zeile verrutscht bin.
In dieser Zeile sind ja auch die Überschriften drin...
Dann war das wohl mein Fehler.
Danke für Deine Hartnäckigkeit. Ansonsten hätte ich das nicht erkannt ;)
Viele Grüße
Marco

Anzeige
Danke für Rückmeldung - freut mich! (oT)
29.01.2008 19:23:50
Erich

AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:21:00
Daniel
Hi
da anscheinend keiner Versteht, daß du Code haben willst, probier mal das hier, getrennt nach Zahlen und Texten, Formeln werden nicht berücksichtigt:

Sub Zählen()
Dim anzTexte As Long
Dim anzZahlen As Long
Dim Meldung As String
With Range("A16:I20")
On Error Resume Next
anzTexte = .SpecialCells(xlCellTypeConstants, 2).Cells.Count
anzZahlen = .SpecialCells(xlCellTypeConstants, 2).Cells.Count
On Error GoTo 0
Meldung = "Zellen gesamt: " & .Cells.Count & Chr(10)
Meldung = Meldung & "davon Texte: " & anzTexte & Chr(10)
Meldung = Meldung & "davon Zahlen: " & anzZahlen & Chr(10)
End With
MsgBox Meldung
End Sub


Gruß, Daniel

Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:33:00
Erich
Hi Daniel,
bei
anzZahlen = .SpecialCells(xlCellTypeConstants, 2).Cells.Count
müsste statt der 2 eine 1 stehen oder
anzZahlen = .SpecialCells(xlCellTypeConstants, xlNumbers).Cells.Count
Nebenbei: In meinem letzten Beitrag war ein Codebeispiel.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereich leer, dann Fehlermeldung
29.01.2008 19:07:00
Daniel
Danke für die Korrektur.
man sollte doch nicht immer kopieren.
OK, Sorry, ich hatte dein Beispiel nicht vollständig runtergescrollt.
Gruß, Daniel

AW: Bereich leer, dann Fehlermeldung
29.01.2008 18:10:00
Horst
Hi,

Sub t()
If Application.CountA([A16:I20]) = 0 Then
MsgBox "Leer"
Else
MsgBox Application.CountA([A16:I20]) & " Einträge"
End If
End Sub


mfg Horst

Anzeige
;

Forumthreads zu verwandten Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 Beiträge
Wenn istleer
Reuter

Hallo
habe ein kleines problem. Ich muss die "Wenn Istleer" Formel anwenden, aber nur dann wenn 2 bestimmte Zellen leer sind. Bsp:
Wenn(istleer A1 und B2) dann mache gar nichts ansonsten einen Sverweis.
Mfg
Ich hoffe auf baldige Antwort
02.04.2009 10:33:43
Thread-ID: 1066230
4 Beiträge
Anzeige
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Leere Zellen löschen wenn
walli

Hallo Fachfrauen u. Männer,
ich möchte gern zellen löschen wenn beide Spalten Leerzellen sind.
Beispiel:
In an D5 u. E5 stehen zahlen
D6 u. E6 stehen keine zahlen dann bitte beide also d+E nnach oben schieben
siehe Beispiel Mappe:
https://www.herber.de/bbs/user/62422...
14.06.2009 14:16:37
Thread-ID: 1081380
24 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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