Null weg bei leerer Zelle
20.09.2004 14:14:16
Nicole
Ich habe ein Makro, welches aus einer Exceltabelle verschiedene Werte liest und diese in einem Textfile speichert.
Steht in der Tabelle in einer Zelle ein Wert, so wird er so ins Textfile geschrieben. Steht aber in einer Zelle die übertragen werden soll nichts (leere Zelle), dann wird eine 0 ins Textfile geschrieben. Wie bring ich diese Null weg? Ich möchte dass dann diese Stelle imn Textfile auch leer bleibt?
Kann mir jemand mit dem Code helfen? Grüsse und Dankeschön!
Ausschnitt aus meinem Makro:
Sub Riinforsd_pläi()
'Daten der Ply i einfüllen
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"