Zelle leer -> Wert Null wird übertragen
20.09.2004 09:27:17
Fabienne
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"