Supportnet / Forum / Tabellenkalkulation
Zeilen mit #BEZUG# löschen
Frage
Hallo Zusammen,
gibt es eine Möglichkeit Excel zu sagen das es wenn in der 1. Zelle einer Zeile ein ungültiger Bezug steht das es dann die gesamte Zeile Löschen soll?
Also zum Beispiel:
A1: #Bezug# -->Zeile A wird gelöscht!
Vielen Dank für eure Hilfe
LG
Trudi
Antwort 1 von Skipper1
ja die Möglichkeit gibt es. Z.B mit einem Makro.
Ich würde es auf diese Weise lösen. Nimm ein Macro auf. ev. musst du es noch leicht anpassen.
Den Macro Recorder findest du unter
Tools-->Macro-->Record a New Macro
Hoffe ich konnte dir helfen!
Gruss
Ich würde es auf diese Weise lösen. Nimm ein Macro auf. ev. musst du es noch leicht anpassen.
Den Macro Recorder findest du unter
Tools-->Macro-->Record a New Macro
Hoffe ich konnte dir helfen!
Gruss
Antwort 2 von Trudi
Hallo Skipper
also ein makro aufzeichnen ist ja kein problem
aber es ist ja nicht immer die zeile A die er löschen soll
Ich brauch das wirklich in der Abhängigkeit das in einer Zelle der Zeile #Bezug# steht. Nur dann soll er die Zeile löschen.
Danke trotzdem!
Vielleicht weis ja jemand wie so ein Makro aussehen muss.
Ach ja: und es ist nicht nur eine Zeile die zu löschen ist. Das makro müste allso eine schleife enthalten um alle Zeilen einer Tabelle durch zu gehen
gruß und Danke schon mal.
Trudi
also ein makro aufzeichnen ist ja kein problem
aber es ist ja nicht immer die zeile A die er löschen soll
Ich brauch das wirklich in der Abhängigkeit das in einer Zelle der Zeile #Bezug# steht. Nur dann soll er die Zeile löschen.
Danke trotzdem!
Vielleicht weis ja jemand wie so ein Makro aussehen muss.
Ach ja: und es ist nicht nur eine Zeile die zu löschen ist. Das makro müste allso eine schleife enthalten um alle Zeilen einer Tabelle durch zu gehen
gruß und Danke schon mal.
Trudi
Antwort 3 von rainberg
Hallo Trudi,
so müsste es funktionieren.
Option Explicit
Sub test()
Dim lngI As Long, lngEnde As Long
lngEnde = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For lngI = lngEnde To 1 Step -1
If IsError(Cells(lngI, 1).Value) Then
Rows(lngI).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rainer
so müsste es funktionieren.
Option Explicit
Sub test()
Dim lngI As Long, lngEnde As Long
lngEnde = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For lngI = lngEnde To 1 Step -1
If IsError(Cells(lngI, 1).Value) Then
Rows(lngI).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
Gruß
Rainer
Antwort 4 von Trudi
Hallo Rainer,
leider haut das nicht ganz so hin. scheinbar erkennt das Makro denn Fehler nicht
noch mal zur Ergänzung: der Fehler in der Zelle sieht so aus: =#BEZUG!A28
Diese fehlenden Bezüge entstehen wenn ich Blätter aus meiner Vorlage löschen. Also steht da auch nicht immer A28 sondern immer ein anderer Zellbezug.
Ausserdem hatte ich den eindruck das er auch nict in die nächste Zeitl rutscht um die zu prüfen, sondern immer in der 1. Zeile festhing... zumindest ist die Makeirung der Zelle nicht verrutscht.
Aber vielen Dank trotzdem schon mal, vielleicht gibt es ja noch eine Lösung
LG
Trudi
leider haut das nicht ganz so hin. scheinbar erkennt das Makro denn Fehler nicht
noch mal zur Ergänzung: der Fehler in der Zelle sieht so aus: =#BEZUG!A28
Diese fehlenden Bezüge entstehen wenn ich Blätter aus meiner Vorlage löschen. Also steht da auch nicht immer A28 sondern immer ein anderer Zellbezug.
Ausserdem hatte ich den eindruck das er auch nict in die nächste Zeitl rutscht um die zu prüfen, sondern immer in der 1. Zeile festhing... zumindest ist die Makeirung der Zelle nicht verrutscht.
Aber vielen Dank trotzdem schon mal, vielleicht gibt es ja noch eine Lösung
LG
Trudi
Antwort 5 von rainberg
Hallo Trudi,
wenn eine Tabelle gelöscht wird, auf die eine Formel in einer anderen Tabelle Bezug nimmt, erscheint in der betreffenden Zelle die Fehlermeldung #BEZUG!
Mein Makro löscht alle Zeilen bei denen in Spalte A diese (und auch andere) Fehlermeldung steht.
Gruß
Rainer
wenn eine Tabelle gelöscht wird, auf die eine Formel in einer anderen Tabelle Bezug nimmt, erscheint in der betreffenden Zelle die Fehlermeldung #BEZUG!
Mein Makro löscht alle Zeilen bei denen in Spalte A diese (und auch andere) Fehlermeldung steht.
Gruß
Rainer
Antwort 6 von Trudi
Hallo Rainer,
ich habs versucht
aber dummer weise macht er das bei mir nicht
worann kann das liegen?
kann ich dir eventuell eine Beispieldatei mailen?
LG
Trudi
ich habs versucht
aber dummer weise macht er das bei mir nicht
worann kann das liegen?
kann ich dir eventuell eine Beispieldatei mailen?
LG
Trudi
Antwort 7 von rainberg
Hallo Trudi,
schau mal in den Pager, dort findest Du meine Mailadresse
Gruß
Rainer
schau mal in den Pager, dort findest Du meine Mailadresse
Gruß
Rainer
Antwort 8 von Trudi
Hallo Rainer!
Du hast Post!
Achtung sind leider 8 MB
aber ich habe meinen Fehler inzwischen auch gefunden.
Die Aktive Zelle muss A1 sein, dann klapts auch mit dem Makro!
Klasse wäre es wenn du mir sagen könntest wass ich ändern muss um das Makro auch für spalten anwenden zu können
Die refferenz wäre dann die Zeile 8
Vielen Dank nochmal!
Trudi
Du hast Post!
Achtung sind leider 8 MB
aber ich habe meinen Fehler inzwischen auch gefunden.
Die Aktive Zelle muss A1 sein, dann klapts auch mit dem Makro!
Klasse wäre es wenn du mir sagen könntest wass ich ändern muss um das Makro auch für spalten anwenden zu können
Die refferenz wäre dann die Zeile 8
Vielen Dank nochmal!
Trudi