Inhalte entfernen

[shadow-c4]

Hallo Excelfreunde
habe wieder einmal eine Frage zu Excel.
Ich habe in einen Blatt in den Zellen AJ5:AJ500 und AL5:AL500 eine Formel die den Inhalt von 2 anderen Zellen (AQ+AP) verketten und dazwischen ein "/" setzen.
Nun möchte ich die Formeln nach der letzen benutzten Zelle nur in den Spalten AJ und AL über ein Makro löschen , wenn in AQ+AP keine Werte mehr sind.
In anderen Spalten können mehr Daten stehen.
Das Problem ist, das wenn die Formel weiter steht dann nur ein "/" angezeigt wird, was nicht sein darf.
gibt es da eine einfache Lösung?
Habe mal eine Datei angehängt .

[RPP63]

Moin!
Das einfachste dürfte diese Formel ab AL6 sein:
=WENN(ANZAHL2(AP6:AQ6)<2;"";AQ6&"/"&AP6)

Gruß Ralf

[vatifant]

Hallo Ralf,
müsste die Formel nicht lauten:

=WENN(ANZAHL2(AP6:AQ6)<1;"";AP6&"/"&AQ6)  ??

Ansonsten wird nichts angezeigt, obwohl zum Beispiel in einer Reihe was steht (siehe Zeile 16)

Gruß

Michael

[RPP63]

Moin Michael!
Ist Auslegungssache.

wenn in AQ+AP keine Werte mehr sind.

Das + ist "eigentlich" ein logisches UND, dann wäre Deine Formel korrekt.
Ich habe mich für ein ODER entschieden. ;)

Gruß Ralf

[coemm]

Nun möchte ich die Formeln nach der letzen benutzten Zelle nur in den Spalten AJ und AL über ein Makro löschen , wenn in AQ+AP keine Werte mehr sind.

Hallo Michael und Ralf,

=WENN(ANZAHL2(AP6:AQ6)<1;"";AP6&"/"&AQ6)

ist die Formellösung für alle leeren Zellen. Ich habe shadow-c4 aber so verstanden, dass in den "mittleren" Zelle das "/" stehen bleiben soll.

[vatifant]

Hallo coemm,
also ich lese es anders :21:

"Das Problem ist, das wenn die Formel weiter steht dann nur ein "/" angezeigt wird, was nicht sein darf."

Vor allem, was nicht sein darf und deswegen in unseren Formeln ""

Hallo Ralf,
Auslegungssache mit dem +
So hat shadow-c4 beide Lösungen :19:

Gruß

Michael

[coemm]

Hallo coemm,
also ich lese es anders

Hallo Michael,

was richtig ist kann nur shadow-c4 beantworten!

[shadow-c4]

Hallo
erst einmal vielen Dank für die Vorschläge.
Also ich möchte es nicht mitels Formel machen, sonder per Makro.
Das Makro soll die Formeln Löschen die nach der letzten Zelle  AQ +AP ohne Werte ist. Im Beispiel ist es nach Zeile 36.
Das Problem ist, das zwischendurch auch leere Zeilen sein können, bei der die Formel bleiben muß (z.Bsp Zeile 16).
Da beim bearbeiten sowieso ein Makro läuft, will ich dies mit einfügen.

In meinen Beispiel sollte also die Formel aus AJ37:AP500 gelöscht werden

[Rabe]

Hi,

In meinen Beispiel sollte also die Formel aus AJ37:AP500 gelöscht werden

Dann nimm für die Feststellung der letzten belegten Zeile in Spalte AQ folgenden Code:
loLetzte = WorkSheets("Original").Cells(Rows.Count, 43).End(xlUp).Row
oder für AP und AQ:
loLetzte = MAX(WorkSheets("Original").Cells(Rows.Count, 42).End(xlUp).Row,WorkSheets("Original").Cells(Rows.Count, 43).End(xlUp).Row)

Und zum löschen:
WorkSheets("Original").Range("AJ" & loLetzte + 1 & ":AP500").ClearContents

[RPP63]

Moin!
Wenn Du ein ListObject (Einfügen, Tabelle oder Strg+L oder Strg+t) nimmst, hast Du diese Probleme erst gar nicht.
Formeln sollten niemals "auf Vorrat" erstellt werden!
Wenn Du nun unterhalb der Tabelle einen neuen Eintrag machst, schreibt Excel die Formel(n) selbständig weiter.

Gruß Ralf