Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle leer -> Wert Null wird übertragen

Betrifft: Zelle leer -> Wert Null wird übertragen von: Fabienne
Geschrieben am: 20.09.2004 09:27:17

Hallo zusammen!

Ich habe ein Makro, das Werte aus einer Tabelle liest und diese auflistet. Falls in der Tabelle ein Kästchen leer bleibt, schreibt das Makro einfach eine Null als Wert. Dies möchte ich aber nicht! Wenn in der Tabelle ein Kästchen leer ist, so soll auch in der Auflistung dort nichts stehen!
Kann mir jemand helfen mit dem Code? Vielen Dank!


Ausschnitt aus meinem Auflistungsmakro:

Sub Riinforsd_pläi()

'Daten der Ply i einfüllen

Windows(Mein_Export1).Activate
Range("A" & (i - 1) * 140 + 4).Select
ActiveCell.FormulaR1C1 = "t = "
Range("B" & (i - 1) * 140 + 4).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R23C4/1000"

Range("A" & (i - 1) * 140 + 6).Select
ActiveCell.FormulaR1C1 = "m_A = "
Range("B" & (i - 1) * 140 + 6).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R24C4/1000"

Range("A" & (i - 1) * 140 + 7).Select
ActiveCell.FormulaR1C1 = "E_1 = "
Range("B" & (i - 1) * 140 + 7).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R39C4*1000000"


Range("A" & (i - 1) * 140 + 8).Select
ActiveCell.FormulaR1C1 = "E_2 = "
Range("B" & (i - 1) * 140 + 8).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R40C4*1000000"


Range("A" & (i - 1) * 140 + 9).Select
ActiveCell.FormulaR1C1 = "E_3 = "
Range("B" & (i - 1) * 140 + 9).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R44C4*1000000"


Range("A" & (i - 1) * 140 + 10).Select
ActiveCell.FormulaR1C1 = "G_12 = "
Range("B" & (i - 1) * 140 + 10).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R41C4*1000000"


Range("A" & (i - 1) * 140 + 11).Select
ActiveCell.FormulaR1C1 = "G_31 = "
Range("B" & (i - 1) * 140 + 11).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R45C4*1000000"


Range("A" & (i - 1) * 140 + 12).Select
ActiveCell.FormulaR1C1 = "G_23 = "
Range("B" & (i - 1) * 140 + 12).Select
ActiveCell.FormulaR1C1 = "='[" & Meine_Datei & "]" & Mein_Blatt & "'!R46C4*1000000"

  


Betrifft: AW: Zelle leer -> Wert Null wird übertragen von: Dr.
Geschrieben am: 20.09.2004 09:28:20

Wenn es Dir nur um die Ansicht geht, aktiviere doch die Nullunterdrückung in den Extras.


  


Betrifft: AW: Zelle leer -> Wert Null wird übertragen von: Fabienne
Geschrieben am: 20.09.2004 09:33:36

Aber ich möcht es so machen, dass wenn man eine Null eingibt, die Null übernommen wird und falls nichts eingegeben wird (Kästchen leer) in der Auflistung eine Zelle leer bleibt!

Geht das mit deinem Vorschlag? Wenn ja, wo finde ichh das genau?