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

0 entfernen

Forumthread: 0 entfernen

0 entfernen
21.05.2003 14:25:31
Josef
Hallo!

Wenn ich z.B. Die Zellen F3:H25 markiert habe, so sollen alle Zellen, wo nur eine Null enthalten ist, geleert werden.Gäbe es hier bitte eine Lösung mittels VBA?

Danke

Josef

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: 0 entfernen
21.05.2003 14:31:54
Otto Ecker

Hallo Josef,

Sub a()
Dim zelle As Range
For Each zelle In Range("a1:a3")
If zelle.Value = 0 Then zelle.ClearContents
Next
End Sub


Gruß Otto

Re: 0 entfernen
21.05.2003 14:39:11
Josef

Hallo Otto!
Danke für Deine schnelle Antwort.
Bei Zahlen funktioniert alles bestens.
Ich habe jedoch in der Spalte von G3:G25 folgendes stehen:

Scannotrast
Scannotrast
Scannotrast
Scanlux
Scanlux
Scanlux
Scanlux
Scanlux
Scanlux
Scanlux
Scanlux
Scanlux
Scanlux
Jopamiro
Jopamiro
Jopamiro
0
0
0
0
0
0
0

Hier gehören ebenfalls alle Nullen weg.Nur hier zeigt das Makro dann einen Fehler an.

Josef

Anzeige
Re: 0 entfernen
21.05.2003 14:45:39
Otto Ecker

Hallo Josef,

welchen Fehler ? Durchlaufe mal im Einzelschritt den MAkro.

Gruß Otto

PS bei mir geht's, auch wenn die Zelle als Text formatiert wurde

Re: 0 entfernen
21.05.2003 14:48:45
Josef

Hallo Otto!
Wenn ich den Eoinzelschritt mache dann stoppt das Makro mit der Fehlermeldung:
Laufzeitfehler 13 Typen unvberträglich

In der Zeile If zelle.Value = 0 Then zelle.ClearContents

Josef

Anzeige
Re: 0 entfernen
21.05.2003 14:52:31
Otto Ecker

Hallo Josef,

kann ich so nicht nachvollziehen. Wenn Du möchtest, dann sende mir die Datei. Ich antworte dann hier im Forum.

Gruß Otto

Re: 0 entfernen
21.05.2003 14:56:00
Josef

Hallo Otto!

Danke!
Wie lautet Deine E-Mail:

Meine Email in der Fa.:
Josef.Loicht@sva.sozvers.at

Re: 0 entfernen
21.05.2003 14:59:17
Josef

Hallo Otto!

Alles bereits erledigt.

Danke

Josef

Anzeige
Re: 0 entfernen
21.05.2003 15:14:45
Otto Ecker

Hallo Josef,

ich hatte unter Ex 2000 getestet da läuft alles ohne Probleme. Bei Ex 97 sollte es laufen wenn:

Dim zelle As Range
For Each zelle In Range("A1:A23")
If IsNumeric(zelle) Then
If zelle.Value = 0 Then zelle.ClearContents
End If

Next

Gruß Otto

Anzeige
Re: 0 entfernen
21.05.2003 15:17:35
Josef

Besten Dank für Deine Unterstützung und Hilfe

Schönen Tag noch

Josef

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