Supportnet / Forum / Tabellenkalkulation

Hallo Ich habe eine Tabelle (Kalkulation), wo ich in einer Spalte in die entsprechenden Zeilen verschiedene Zahlen von 1 bis ca. 20 eingebe. Ich möchte nun diese Zahlen alle auf einmal zurück auf Null setzten. Die Funktion ersetzen geht nicht, da gewisse Zeilen mit Formeln versehen sind. Gibt es eine andere Möglichkeit? Danke für die Hilfe und Gruss

Hallo,

Spalte im Spaltenkopf markieren und dann mit "Entf" alles löschen

Gruß

Helmut

Hallo,

als Ergänzung, das ganze als Makro aufzeichnen und dann mit Steuercode unter "Makro""Optionen" versehen und entsprechend automatisch starten.

Gruß

Helmut

Hallo Helmut

sorry, habe mich nicht präzis ausgedrückt. Die Lösung mit "Entf" passt nicht.
Es sind 300 Zeilen und nur ca. jede 7. ist mit einer Null versehen. Wenn ich einfach alle entferne habe ich grosse Mühe bein jeweils nächsten Durchgang.
Ich springe jeweils von "Null zu Null."

Zwischen den Zeilen hat es Formeln. Ich habe ein Makro aufgezeichnet mit der Funktion "Ersetzen." Dieses bringt leider die Formeln durcheinender.

Vielleicht kennst Du noch eine andere Möglichkeit.

Gruss
Schano

Hallo

Hiermit könnte es gehen....

Private Sub CommandButton1_Click()
ActiveSheet.Range("B1:B300").SpecialCells(xlCellTypeConstants) = 0
End Sub

Gruß

Hallo @ Event,

das war im Endeffekt mein Vorschlag, aber @schano will nur

und da liegt das Problem. Jede 7. Zeile ist noch einfach aber ca. jede 7. etwas schwieriger.

@schano, sind in der Zelle immer Zahlen oder sind es immer genau 7 zeilen?

Gruß

Helmut

Hallo zusammen

7 ist ein geschätzter Mittelwert. Es kann von 0 leeren bis mehreren (>10) leeren Zeile gehen. Dazwischen hat es Zeilen mit Untertilel und dieser Formel: [=WENN(SUMME(E15:E17)<>0;"k";"")].
So kann ich mit dem Autofilter die Untertiltel im Zusammenzug darstellen.

Weitere Infos:
Ich springe die Nullen an und ersetzte beispielsweise 25 Nullen durch Zahlen von 1 bis 20. (Jedesmal andere Nullen). In den Spalten rechts davon wird meine Zahl mal irgendein Preis gerechnet.
Am Schluss starte ich den Autofilter. Das Resultat ist, dass nun alle Zeilen sowie die entsprechenden Untertiltel auf 2 Seiten zusammengefassst sind.

Bevor ich nun neu beginne kann muss ich alle Zahlen auf Null setzen.

Grüsse und Danke für die Mühe
Schano

Hallo Helmut

In der von mir vorgeschlagen Variante, werden nur mit Konstanten gefüllte Zellen auf Null gesetzt. Also nur die mit eingegebenen Zahlen - Formel- und Leer-Zellen bleiben unberührt.
Insofern unterscheiden sich die Vorschläge doch erheblich...

Gruß

Nachtrag

diese Version läßt auch TEXT-Konstanten bestehen:

Private Sub CommandButton1_Click()
ActiveSheet.Range("B1:B300").SpecialCells(xlCellTypeConstants, xlNumbers) = 0
End Sub

Gruß

Hallo probiere am Weekend

Gruss
Schano

Hallo

Tausend Dank. Der code funktioniert einwandfrei.

Gruss
Schano

• Sonderzeichen automatisch ersetzen, hilfe!
• uchen und Ersetzen
• Zahlenvervollständigen geht das ????
• Tiefstellen von Zahlen in MS Excel
• Excel Formel im Text verwenden