Spalte m. Faktor multipl., leere Zellen ignorieren
19.04.2015 14:17:15
Katinka
Hallo ihr lieben Excel-Könner,
leider habe ich bisher nicht die Lösung für mein Problem gefunden, deshalb hier die Frage.
Um die bedingte Formatierung anzuwenden, müssen etliche Zahlen einer Tabelle, die aus einer .txt-Datei kommen, erst noch mit 1 multipliziert werden. Das soll folgender Code erledigen:
Sub vorbereiten_bedingte_Formatierung()
Dim Bereich As Range
Dim Zelle As Range
Dim Faktor As Variant
Faktor = 1
Set Bereich = ActiveSheet.Range("G3:G300,I3:I300,J3:J300,K3:K300,L3:L300,M3:M300,N3:N300,O3: _
O300,P3:P300,Q3:Q300,R3:R300")
For Each Zelle In Bereich
If IsNumeric(Zelle.Value) Then
Zelle.Formula = Zelle.Value * Faktor
End If
Next Zelle
End Sub
Der Code funktioniert, aber in den Spalten sind oft auch weniger als 300 Werte und dann stehen in diesen eigentlich leeren Zellen plötzlich Nullen.Die vorher leeren Zellen sollten also leer bleiben. Kann man das in diesen Code irgendwie einbauen?
Vielleicht sind die angeblich leeren Zellen auch nicht wirkich leer, da sie von If IsNumeric ignoriert werden. Auch hierfür die Frage ob man diesen Code anpassen kann?
Leider kann ich nicht im Nachhinein alle Nullen entfernen lassen, da auch im Wertebereich Nullen stehen, die aber gebraucht werden und bleiben müssen.
Ich hoffe, das ist irgendwie verständlich.
Grüße und noch einen schönen Sonntag
Katinka