Office: (Office 2016) Fehler weil vorhandener Zellname "kein Bezug"

dreamar · 9. Dezember 2019

Hallo,

ich habe ein kleines Problem. Ich lasse eine Datei öffnen und möchte mir den Wert eines Zellnamen rüber in eine andere Datei holen. Das funktioniert auch alles wunderbar, solange der Zellname auch einen gültigen Bezug hat. Jetzt kommt es aber hin und wieder vor das die Zelle gelöscht wird und dadurch der Zellbezug fehlt. Wie kann ich das abfangen? Das heißt ich möchte fragen

Wenn Zellname(Angebotsstunden) = Bezugfehler dann = 0

Dieser Code wird verwendet und funktioniert auch, solange kein Bezugfehler ist.

Code:

If NameVorhanden("Kalkulation!Angebotsstunden", oSourceBook) = True Then
Einsatzzeit = oSourceBook.Sheets("Kalkulation").Range("Angebotsstunden")
Einsatzzeit = Application.WorksheetFunction.Round(Einsatzzeit, 0)
If Einsatzzeit Einsatzzeit_Alt Then
oTargetBook.Sheets("Projektblatt").Range("Einsatzzeit").Value = Einsatzzeit
oTargetBook.Save
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

aloys78 · 11. Dezember 2019

Hallo,

Das funktioniert auch alles wunderbar, solange der Zellname auch einen gültigen Bezug hat.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was spricht dagegen, diese Zelle zu sperren ?

Gruß
Aloys

dreamar · 11. Dezember 2019

Hallo,

was meinen sie mit sperren? Es kann durchaus sinnvoll sein diese Zelle zu löschen, daher wäre eine Abfrage ob es einen Wert gibt schön.

hary · 11. Dezember 2019

Moin
Mal ins blaue geschossen.
Code:

MsgBox IsError(oSourceBook.Sheets("Kalkulation").Range("Angebotsstunden"))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

dreamar · 11. Dezember 2019

Hallo Hary,

danke, aber das hatte ich auch schon versucht. Es kommt dann immer eine Fehlermeldung

Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler

hary · 11. Dezember 2019

Moin
Ist noch zu frueh. ;-)) Hab ich falsch gelesen.
Du musst alle benannten Bereiche im Workbook abklappern.
"oSourceBook" ist doch das akitve Workbook?
Evtl."oSourceBook" aendern in activeworkbook.
Code:

Dim ZellenName As Name
For Each ZellenName In oSourceBook.Names'--klappert alle Namen ab
If ZellenName.Name = "Angebotsstunden" Then'--Wenn benannter Bereich "Angebotsstunden" heisst
If InStr(ZellenName.RefersTo, "#REF!") > 0 Then'--prueft Fehler
MsgBox "Fehler im Bereichsnamen: " & ZellenName.Name'--Box bei Fehler
End If
Exit For
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

dreamar · 11. Dezember 2019

Nicht ganz. Ich habe es so festgelegt. Ich befinde mich in der Zieldatei mit dem Makro.

Code:

'Schritt 1: Zieldatei festlegen
Set oTargetBook = ActiveWorkbook

'Schritt 2: Datei festlegen, öffnen und Daten übertragen
sDatei = "F:AAA Projekte20" & Jahr & "" & Projektnummer & "" & Range("Angebotsnummer").Value & "*.xlsx"
Set oSourceBook = Workbooks.Open(sDatei, False, True) 'nur lesend öffnen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary · 11. Dezember 2019

Moin
So, mit 2 Testmappen, klappt es. Benannter Bereich in Mappe2.
In welcher Mappe liegt der benannte Bereich?
Code:

Dim ZellenName As Name
Dim oSourceBook As Workbook
Set oSourceBook = Workbooks("Mappe2") '-- als Bsp. Mappe2
For Each ZellenName In oSourceBook.Names '--klappert alle Namen ab
If ZellenName.Name = "Angebotsstunden" Then '--Wenn benannter Bereich "Angebotsstunden" heisst
If InStr(ZellenName.RefersTo, "#REF!") > 0 Then '--prueft Fehler
MsgBox "Fehler im Bereichsnamen: " & ZellenName.Name '--Box bei Fehler
End If
Exit For
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sollte dann auch so, bei dir, klappen:
Code:

Set oTargetBook = ActiveWorkbook
'Schritt 2: Datei festlegen, öffnen und Daten übertragen
sDatei = "F:AAA Projekte20" & Jahr & "" & Projektnummer & "" & Range("Angebotsnummer").Value & "*.xlsx"
Set oSourceBook = Workbooks.Open(sDatei, False, True) 'nur lesend öffnen
For Each ZellenName In oSourceBook.Names '--klappert alle Namen ab
If ZellenName.Name = "Angebotsstunden" Then '--Wenn benannter Bereich "Angebotsstunden" heisst
If InStr(ZellenName.RefersTo, "#REF!") > 0 Then '--prueft Fehler
MsgBox "Fehler im Bereichsnamen: " & ZellenName.Name '--Box bei Fehler
End If
Exit For
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

aloys78 · 12. Dezember 2019

Hallo,

was meinen sie mit sperren? Es kann durchaus sinnvoll sein diese Zelle zu löschen, daher wäre eine Abfrage ob es einen Wert gibt schön.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich ging davon aus, dass
- die Zellen mit Namen Formeln enthalten, und
- es um eine unbeabsichtige Löschung von Zeilen/Spalten geht.

Da aber eine Löschung möglich sein soll, erübrigt sich mein Vorschlag.

Gruß
Aloys

dreamar · 13. Dezember 2019

Die Lösung von Hary war es. Vielen Dank es hat geklappt.

Office: (Office 2016) Fehler weil vorhandener Zellname "kein Bezug"

Fehler weil vorhandener Zellname "kein Bezug"

Fehler weil vorhandener Zellname "kein Bezug"

Fehler weil vorhandener Zellname "kein Bezug"

Fehler weil vorhandener Zellname "kein Bezug"

Fehler weil vorhandener Zellname "kein Bezug" - Similar Threads - Fehler vorhandener Zellname

Wert Fehler

Outlook Fehlermeldung 0x800CCC78, Nachricht kann nicht gesendet werden ...

Fehler beim Zugriff auf Pfad/Datei

WeekdayName erzeugt Fehler

Zeilen in Excel automatisch alle paar Zeilen einfügen

Konten-Konfiguration schlägt fehl

GetNamespace: Fehler-Meldung, Verweis vorhanden