Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Makro Zeilen löschen - #BEZUG!

Forumthread: Mit Makro Zeilen löschen - #BEZUG!

Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 11:12:33
Daniel
Hallo,
ich habe in einem Tabellenblatt mehrere Formeln stehen.
Wenn nun eine dieser Formeln in der Spalte A #BEZUG! auswirft, so soll ein Makro automatisch die komplette Zeile löschen.
Wie geht das per Makro?
Für Hilfe wäre ich dankbar,
Daniel
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 11:34:47
regina 

Sub ZeilenLoeschen()
Hallo,
Dim lR%, i%
Worksheets(1).Select
lR = Cells(Rows.Count, 1).End(xlUp).Row
For i = lR To 1 Step -1
If Cells(i, 1)="#Bezug" then
Rows(i).Delete                         'Ganze Zeile löschen
End If
Next i
End Sub

Probier das mal
Gruß Regina
Anzeige
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 11:37:03
Daniel
Hallo,
das klappt nicht. Das #BEZUG" ergibt sich ja aus einer Formel. Vielleicht liegt es daran.
Das Makro müsste auch immer im Hintergrund ablaufen.
Danke,
Daniel
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 11:43:15
regina
Hallo,
Zeig doch mal die Formel, die den 'Bezug erzeugt, vielleicht kann man das ja umgehen.
Gruß
Regina
Anzeige
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 11:45:06
Daniel
Im Prinzip ist die Formel =Blatt1! A2.
Der Fehler entsteht dadurch, dass im Blatt1 diese Zellen gelöscht werden. Dies lässt sich aber nicht umgehen. Und da es sich um zig Zeilen handelt, ist das per Hand zu löschen sehr schlecht.
Gruß
Daniel
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 11:44:27
Harald
Hi Daniel,
das Ganze per Call wechdamit einem selbstgewählten Sheet-Ereignis (z.B. Worksheet_Calculate)zuordnen
(nicht vergessen, die Bereiche korrekt anzugeben, ggf Ausstiegparameter definieren)

Sub wechdamit()
For i = 1 To 5
If IsError(Cells(i, 3)) Then
Rows(i).Delete
End If
Next i
End Sub

Anzeige
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 12:00:17
Daniel
Ok, wwelches Sheet-Ereignis muss ich benutzen, dass das komplett im Hintergrund ausgeführt wird ohne das ich in das Blatt reinklicken muss?
Grüße,
Daniel
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 12:27:25
Harald
Z.B. ins erste Blatt.
Bei jeder Rechenoperation (nicht bei einer normalen Eingabe) läuft der Code los und löscht ggf. in Blatt 2

Private Sub Worksheet_Calculate()
For i = 5 To 1 Step -1
If IsError(Sheets(2).Cells(i, 3)) Then
Sheets(2).Rows(i).Delete
End If
Next i
End Sub

Gruß
Harald
Anzeige
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 13:25:29
Daniel
Verstehe leider nicht wie ich das nun anpasse, wenn Blatt 1 "Auswertung" und Blatt 2 "Bericht" heißt. Wie sieht der Code dann aus?
Danke für die Hilfe,
Daniel
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 13:42:25
Harald
Daniel,
Sheets(1)..oder...Sheets("Auswertung")
Beides hat Vor- und Nachteile
Wenn der Code im Blattmodul steht, gilt er grundsätzlich nur für dieses Blatt.
Sollen Werte oder Bedingungen aus anderen Sheets gelten bzw. Aktionen in anderen Sheets durchgeführt werden, muss das explizit vor jeder !!! Range-Angabe angegeben werden.
Hier ein Bsp, wenn Du den Code ins Blattmodul von Sheet("Auswertung") schreibst.

Private Sub Worksheet_Calculate()
For i = 5 To 1 Step -1
If IsError(Sheets("Bericht").Cells(i, 3)) Then
Sheets("Bericht").Rows(i).Delete
End If
Next i
End Sub

Viel Erfolg
Harald
Anzeige
Danke! o.T.
26.10.2005 13:51:03
Daniel
..
Doch noch etwas
26.10.2005 14:06:29
Daniel
Da ist doch noch ein Fehler:
Wenn ich eine andere Datei geöffnet habe, dann wird der Code trotzdem ausgeführt. Entsprechend verursacht das Makro dann einen Fehler.
Das Makro soll also nur ausgeführt werden, wenn die Datei auch aktiv geöffnet ist.
Kannst du mir das auch noch zeigen?
Danke,
Daniel
Anzeige
AW: Mit Makro Zeilen löschen - #BEZUG!
26.10.2005 14:38:44
Harald
if activeworkbook.name "DeineArbeitsmappe.xls" then exit sub
Dank Dir! o.T.
26.10.2005 14:42:39
Daniel
...
gerne ;-)) o.T.
26.10.2005 15:13:51
Harald
Anzeige
;

Forumthreads zu verwandten Themen

Fehlermeldung #BEZUG evtl. umgehen?
Josef_T

Hallo zusammen,
brauche mal einen Rat (oder Lösung) von einem Formelspezialisten, der mir evtl. eine Möglichkeit erklärt, wie ich folgendes Prob. lösen kann.
Die Quelldatenblätter, mussen in jedem Quartal gelöscht und wieder neu erstellt werden. Die neuen Quelldatenblätter sind alle P...
18.08.2008 16:49:00
Thread-ID: 1002685
3 Beiträge
Problem mit #Bezug!
ray

Hallo,
ich habe folgende Fomel in meiner Tabelle
=SVERWEIS(A2;[VeList.xls]häuser!$A$1:$J$32;6;FALSCH)
in der Zelle, wo diese Formel steht, steht: #BEZUG!
Wenn ich aber in der Bearbeitungsleiste auf fx klicke dann ist in dem Fenster alles iO.
Suchkriterium, Matrix, Sp...
17.11.2008 15:17:00
Thread-ID: 1025250
5 Beiträge
Prbblem mit #BEZUG nach Löschen sheets
ray

Hallo,
ich habe in einer Zelle der Datei VeList.xls folgende Formel:
=SUMMEWENN(wohnungen!A:A;häuser!A2;wohnungen!H:H)
Die Datei VeList.xls wird von anderen Programmen bearbeitet. Und zwar wird das sheet "wohnungen" aus der Datei entfernt, veränderungen vorgenommen und dann wieder...
18.11.2008 08:21:00
Thread-ID: 1025476
4 Beiträge
Ersetzen in Formel von #Bezug! durch Tabellenblatt
#Bezug!

Hallo Zusammen
ich krieg die Krise. VBA kann meine Gedankengänge nicht umsetzen.
Mit folgendem Makro versuche ich einen bestimmten Bereich im Tabellenblatt zu bearbeiten. Es soll jeweils der "#BEZUG!" Wert durch den folgenden Wert ersetzt werden "HIS_Werte!"
Hier mein netter Versuch...
14.04.2009 15:15:29
Thread-ID: 1068669
9 Beiträge
=<Bereichsname> ==> #BEZUG! ???
t4z

Hallo Leute,
es ist doch immer wieder erstaunlich, dass einem nach mehr als 3 1/2 Jahre tagein tagaus Excel und VBA immer wieder unbekannte Sache begegnen.
In einem Workbook habe ich einen Zell-/Bereichsnamen definiert, z.b. BEREICH_01
Diesen Bereichsnamen verwende ich vielfach in d...
19.05.2009 13:17:52
Thread-ID: 1076125
3 Beiträge
INDIREKT liefert #BEZUG
Lorenz

Hallo werte Excelgemeinde!
Mit der Originalformel "=SUMME(Jänner:Februar!H2:H32)" funktioniert die 3D Formel.
Mit "=SUMME(INDIREKT("Jänner:"&C16&"!H2:H32"))" bring ich`s nicht hin!. In C16 steht der Jeweilige Blattname in einer "Textformatierten Zelle.
Hat jemand ne Idee was...
14.06.2009 18:32:54
Thread-ID: 1081421
4 Beiträge
Anzeige
#BEZUG! per Makro finden
Gordon

Moin,
mal wieder eine (wohl einfache) Frage:
Wie kann ich mich auf den Zelleninhalt #BEZUG! in einem Code beziehen?
Z.B. bei einer If-Anweidung. Folgendes hat leider nicht geklappt:
If .Range("C16").Value = "#BEZUG!" Then Hat da jemand einen kurzen Rat?
Gruß
Gordon
29.07.2009 11:39:35
Thread-ID: 1092195
13 Beiträge
#Bezug - was mach ich hier falsch??
Volker

Hallo Zusammen,
ich bekomme aus meiner Formel den Bezug nicht heraus. Was mache ich hier falsch?
Ich habe die Formel lediglich aus einer vorhandenen Excel- Liste in eine neue eingefügt und entsprechend geändert.
Für eure Hilfe bedanke ich mich im Voraus.
Gruß
Volker
http...
03.08.2009 15:11:36
Thread-ID: 1093253
4 Beiträge
#BEZUGS-Fehler umgehen?
Larsinator

Hallo,
ich habe 2 Sheets:

Tabelle1, A1: "Text1"
Tabelle1, A2: "Text2"
Tabelle1, A3: "Text3"
Im zweiten Sheet verweise ich darauf:

Tabelle2, A1: "=Tabelle1!A1"
Tabelle2, A2: "=Tabelle1!A2"
Tabelle2, A3: "=Tabelle1!A3"
Wenn ich jetzt in Tabelle1...
26.01.2010 11:54:48
Thread-ID: 1133013
3 Beiträge
"#BEZUG!" bei Funktionsname "Fkt1"
Reinhard

Hallo Wissende,
Bei der Funktion "Fkt1" kommt die Bezug-Fehlermeldung in Excel2007.
In Excel2003 soll es nicht sein und auch in Excel2000 klappt es problemlos.
Benennt man in Excel die Funktion "Fkt1" irgendwie um, so klappt es auch da.
Auffällig ist auch daß man in Excel im Ein...
06.02.2010 12:11:39
Thread-ID: 1136375
10 Beiträge
#Bezug!-Fehler im Vorfeld abfangen?
Dagmar

Hallo
möchte gerne einen #Bezug!-Fehler im Vorfeld abfangen.
A1: Anfangsdatum
A2: Enddatum
D1: Ergebniszelle Formel
=SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(A1&":"&A2));2)<6)*1)-SUMMENPRODUKT((X10:X20>=A1) ~f~*(X10:X20<=A2)*(WOCHENTAG(X10:X20;2)<6))
11.03.2010 14:30:06
Thread-ID: 1145131
3 Beiträge
Mittelwert Wenn (#BEZUG!)
Karl

Hallo zusammen,
brauche dringend Hilfe,
Mein Mittelwert (für den Jahresdurchschnitt der einzelnen Monate) soll den Fehler "BEZUG!" ignorieren.
Habe Spalten (A-L) für die einzelnen Monate (+ Jahresdurchschnitt in Spalte M), die sich aus anderen Dateien Daten holen. Alle Monate in der...
17.06.2010 10:45:07
Thread-ID: 1162402
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige