Office: (Office 2010) Leere Zelle statt 0

Hallo zusammen,

ich habe ein kleines Problem, das mich aergert. Ich habe Messwerte in einem Tabellenblatt und eine Checkbox mit einem Makro, das die Einheiten der Messwerte in einem bestimmten Bereich zwischen kg/h und g/s umwandelt. Die Messwerte werden in einem Diagramm dargestellt. Jetzt kann es aber vorkommen, dass in manchen Zellen einfach kein Wert steht. Nach der Umwandlung der Einheiten (einfach alles *3,6 bzw. /3,6) wird aus der leeren Zelle eine 0. Das sieht natuerlich in dem Diagramm ziemlich bloed aus und macht alles unuebersichtlich. Ueber Excel Optionen kann man die 0en zwar ausblenden aber dann sind sie nur unsichtbar. Hat jemand eine Idee wie ich die Zellen automatisch wirklich LEER bekomme? Die einzige Idee die ich haette waere alle Zellen nochmal mit einem Makro zu ueberpruefen und eine 0 mit "" zu ersetzen. Aber bei 1000 Zellen rattert das Makro sowieso schon lange genug bei der Umrechnung und dadurch wuerde es ja nur doppelt so lang dauern.
Waere top wenn jemand hier eine Loesung dafuer kennt!
Danke im Vorraus!

FYI

Dim Zelle As Range
For Each Zelle In Range("C5:V36,AQ5:BJ36") 'Change Unit of all Data
Zelle.Value = Zelle.Value / 3.6
Next

 

Ach und wo ich gerade dabei bin. Das gleiche Makro mit Checkbox habe ich auf 3 verschiedenen Tabellenblaettern. Auf 2en laeuft das Makro relativ schnell (ca. 1 Sek.) und auf dem 3. dauert es viel laenger (ca. 5-10 Sek.). Die Tabellenblaetter sind zumindest in meinen Augen identisch (bis auf die Werte natuerlich). Was koennte der Grund dafuer sein?
Danke und Gruss

 

Hallo Adam,

frag doch einfach den Zellzustand gleich im ersten Durchlauf ab. Dann musst du nicht alles zweimal anfassen.

Code:

If Zelle.Value > 0 Then
    Zelle.Value = Zelle.Value / 3.6
Else
    Zelle.Value = ""
End If

Zur Geschwindigkeit können evtl. die Cracks was sagen.

Gruß,
Lutz

 

Hi,

das ginge mit einem Einzeiler:

Code:

    If Zelle.Value <> "" Then Zelle.Value = Zelle.Value / 3.6

Aber - was die Performance angeht: lasse den Code nur die Zellen durchlaufen, die einen Inhalt haben:

Code:

For Each Zelle In Range("C5:V36,AQ5:BJ36").[COLOR=#0000ff]SpecialCells(xlCellTypeConstants)[/COLOR] 'Change Unit of all Data
    Zelle.Value = Zelle.Value / 3.6
Next

Bis später,
Karin

 

Hi Lutz,

die Prüfung auf > 0 würde Zellen ausklammern, in denen der Wert 0 steht - deshalb sollte auf <> "" geprüft werden.

Bis später,
Karin

 

Tiptop, so einfach kann es gehen. Danke!
Das hat die Geschichte zwar nicht schneller gemacht aber auch nicht wesentlich langsamer. Seltsamerweise braucht das Makro nur einen winzigen Bruchteil der Zeit, das erste Mal nachdem ich "frische" Daten reinkopiere. Sind zwar nur ein paar Sekunden aber wenn das jeden Tag 10 Mal fuer die naechsten 10 Jahre benutzt wird geht das evtl. auch schoener.
Gruss, Adam

 

Weshalb sollte der Code langsamer sein, wenn nur bestimmte Zellen und nicht alle abgelaufen werden müssen??

Lösche zuerst alle Zeilen (nicht Zellinhalte!!), speichere die Mappe, schließe und öffne sie erneut. Kopiere die neuen Daten dann in die Mappe - das könnte positiven Einfluss auf die Performance haben.

Bis später,
Karin

 

Die Leeren Zellen machen ca. 2% aus und der Code laeuft sowieso mal schneller und mal langsamer...hat also quasi keinen Einfluss auf die Geschwindigkeit. Das mit dem Zeilen loeschen hat nichts gebracht. Aber naja dann ist das jetzt eben so.
Danke und Gruss, Adam

 

Wenn Geschwindigkeit benötigt wird, lässt man das mit den direkten Einzelzelloperationen in der Tabelle besser bleiben:

a = [C5:V36]: b = [AQ5:BJ36]: For i = 1 to 32: For j = 1 to 20
a(i, j) = a(i, j) / 3.6: b(i, j) = b(i, j) / 3.6
Next: Next: [C5:V36] = a: [AQ5:BJ36] = b