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"