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

Zellen mit0-Werte in bestimmten Bereich leeren

Forumthread: Zellen mit0-Werte in bestimmten Bereich leeren

Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 12:47:48
tursiops
Hallo!
Ich möchte per VBA Zellen in bestimmten, nicht zusammenhängenden Bereichen leeren, wenn die Zelle eine Null enthält. Ungefähr so:
Sub Cells()
Dim var As Variant
Do While Not IsError(var)
var = Application.Match("0", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).ClearContents
Loop
End Sub
Fall mir jemand helfen könnte, den Code für die Bereiche C3:D7 und P3:S7 umzuschreiben / zu verbessern, wäre ich sehr dankbar.
Gruß tursiops

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 13:05:20
Tino
Hallo,
versuch mal so.
Range("C3:D7,P3:S7").Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Gruß Tino

AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 13:26:17
tursiops
Super! Das sieht gut aus, werde ich gleich mal testen, DANKE!!!

Anzeige
AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 14:25:15
tursiops
Hallo nachmals!
Leider wird beim ausführen des Codes ein Fehler angezeigt:
"Fehler beim Kompilieren.: Das benannte Argument wurde nicht gefunden."
Markiert wird der Bereich SearchFormat:=
Gruß tursiops

stimmt Deine Version xl2010? oT.
22.04.2014 14:49:04
Tino

AW: stimmt Deine Version xl2010? oT.
22.04.2014 14:54:55
tursiops
Hallo! Momentan nicht, ich bin unterwegs und habe auf den MacBook weiter daran gearbeitet, Die Version hier ist 2011 für Mac... Ich teste es heute Abend am PC, allerdings sollte die Datei möglichst auch mobil funktionieren. Gäbe es eine Lösung, die mit beiden Versionen zurechtkommt? Gruß tursiops

Anzeige
AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 15:46:50
fcs
Hallo tursiops,
nachfolgend ein Makro, das jede Zelle im Bereich prüft und 0-Werte löscht.
Funktion auf Mac = ?
Denke aber, dass es keine Probleme gibt.
Gruß
Franz 
'Erstellt unter Excel 2010, Windows Vista
Sub Loeschen_0_werte_C3_D7_und_P3_S7()
Dim Zelle As Range, StatusCalc As Long
'Makrobremsen lösen
With Application
.ScreenUpdating = False
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
For Each Zelle In ActiveSheet.Range("C3:D7,P3:S7")
If Zelle.Value = 0 Then Zelle.ClearContents
Next
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = StatusCalc
End With
End Sub

Anzeige
AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 16:09:15
tursiops
Hallo!
Mit ClearContents kommt der Mac scheinbar nicht klar.
Trotzdem Danke für Eure Hilfe, auf dem PC klappt schon alles, für den Mac finde ich schon noch ne Lösung.
Gruß Frank

AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 16:23:47
Tino
Hallo,
dann veruch mal Zelle.Value = ""
Gruß Tino

AW: Zellen mit0-Werte in bestimmten Bereich leeren
22.04.2014 16:54:37
fcs
Hallo tursiops,
kann ich mir irgendwie nicht vorstellen, dass dieses simple Makro auf dem Mac nicht funktioniert.
Welche Fehlermeldung kommt denn?
hast du schon mal auf dem Mac ein entsprechendes Makro mit dem Makrorecorder aufgezeichnet, um den Inhalt einer Zelle oder besser eines Zellbereichs mit mehreren selektierten Zellbereichen zu löschen?
Sieht unter Windows Vista, Excel 2010, alles deutsch, so aus: 
Sub Test
Range("C3:D7,P3:S7").Select
Range("P3").Activate
Selection.ClearContents
End Sub

Evtl. braucht es auf dem Mac ja andere Trennzeichen.
Dann hast du aber das Problem, dass du im Makro das Betriebssystem prüfen musst, und abhängig davon unterschiedliche Code-Segmente abarbeiten musst. 
Sub Loeschen_0_werte_C3_D7_und_P3_S7()
Dim Zelle As Range, StatusCalc As Long
'Makrobremsen lösen
With Application
.ScreenUpdating = False
.EnableEvents = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
End With
'  If Vba.InStr(1, VBA.Environ("OS"), "Windows") > 0 Then
If VBA.InStr(1, Application.OperatingSystem, "Windows") > 0 Then
'Windows-Vesion
For Each Zelle In ActiveSheet.Range("C3:D7,P3:S7")
If Zelle.Value = 0 Then Zelle.ClearContents
Next
Else
'Mac-Version
End If
'Makrobremsen zurücksetzen
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = StatusCalc
End With
End Sub

Gruß
Franz
Anzeige

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zelle mit 50 stelliger Zahl
Mathias

Hallo guten morgen,
kann mir bitte jemand sagen wie ich eine Zelle so formatieren kann das darin eine ca. Zahl mit 50 Stellen angezeigt wird.
Folgendes Problem,die Zahl sind so auf 350015+28€ d.h. sie wird als Text angezeigt, formatiere ich diese als Zahl bekomme ich zwar etliche Stell...
21.10.2008 08:33:45
Thread-ID: 1017842
3 Beiträge
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Anzeige
Makro Zahlen mit drei 0 löschen
Jeron

Hallo zusammen,
kann mir jemand bitte bei einem Makro helfen ?
Das Makro soll aus einer beliebig langen Tabelle alle Nummern in der ersten Spalte überprüfen.
Wenn die Zahl mit drei Nullen beginnt, soll die gesamte Zeile gelöscht werden.
Vielen Dank für eure Hilfe!!
Beste Grü...
07.04.2009 11:07:59
Thread-ID: 1067314
6 Beiträge
Anzeige
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Zählenwenn mit Teilergeb. bei Suche ">00:20"
manasse

Hallo zusammen,
ich habe eine Tabelle mit Autofilter, in der in einer Spalte Zeiten stehen. Nun möchte ich bei eingeschaltetem Autofilter zählen, wie oft in der Spalte eine Zelle mit einer Zeit größer 20 Minuten vorkommt.
Die Formel
=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("C"&ZE...
13.07.2009 15:24:18
Thread-ID: 1088236
6 Beiträge
Zellen mit Wert 0 löschen
Mario

Hallo zusammen,
zellen mit wert = 0 zu löschen sollte eigentlich kein Problem sein, aber ich weiß bei untenstehendem Code nicht, wo ich dies einfügen soll. Wenn ich nach IsEmpty(rngZelle) noch ein Or not IsNull(rngZelle) hinsetze, dann verschiebt mir das Makro auch die leeren Zellen....und...
10.08.2009 10:42:10
Thread-ID: 1094641
4 Beiträge
Leere Zellen mit Null füllen, Sortierung Spalte A
jo_cindy

Hi, habe in meinem Makro noch 2 Probleme:
1. In den Spalten Z, AA und AB gibt es noch leere Zellen. Diese sollten eigentlich mit einer Null gefüllt werden, da sonst meine Berechnungsformeln in AC bis AG nicht funktionieren.
2. In der Spalte A wird die Überschrift mit sortiert
Könnt...
28.10.2009 02:42:18
Thread-ID: 1112657
13 Beiträge
Zellen löschen die mit 10 oder 11 beginnen
Fenja

Hallo nochmal Excelgemeinde,
ich möchte nur die Zellen (nicht Zeilen) in Spalte K löschen, die mit den Zellinhalt 10 oder 11 beginnen.
Nur auf den Bebinn des Zellinhalts kommt es dabei an, der Rest muss unbedingt stehen bleiben.
Vilen Dank an euch.
Gruß F.
12.02.2010 09:16:24
Thread-ID: 1137963
2 Beiträge
Leere Felder füllen
loisl

Hallo,
ich habe ein kleines Problme, dass ich auf einfache Weise lösen wollte.
Fünf Reihen sind als Datumsfeld formatiert (EUR) Es sind aber nicht alle gefüllt. in manchen ist Blank drin. Ich benötige in disen Feldern aber 01.01.0001
Ich wollte das mit einem Makro lösen . Die Spalt...
03.08.2010 14:04:10
Thread-ID: 1170234
5 Beiträge
Inhalt von Zellen mit 00 ergänzen
Heinz

Hallo,wie kann ich alle Werte in Spalte A mit zwei Nullen auffüllen bzw. die Spalte entsprechend formatieren -> Beispiel:vorher: 045689500
nachher: 00045689500Gruß
Heinz
24.04.2002 19:17:03
Thread-ID: 116074
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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