Pflichtfelder über mehrere Arbeitsblätter

Hallo Ihr,
Ich soll in einer Excel Datei (Excel2010) die aus 6 Arbeitsblätten besteht vor dem Schließen einige Felder überprüfen lassen. Falls eines der Felder nicht ausgefüllt ist, soll es einen Hinweis geben.
Für Tabelle 1 (name des ersten Arbeitsblatts) habe ich das auch geschafft und es funktioniert auch. Wie kann ich das Verändern, sodass alle Tabellen (Tabelle1-6) überprüft werden?
Kann ich die Tabellen mit der Namens Definition alle zusammen ansprechen?
hier mein bisheriger Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As Range
For Each c In Worksheets("Tabelle_1").Range("CheckAbfrage") 'Pflichtfelder aus Tabelle 1 -->  _
soll auf alle Tabellen erweitert werden,
If c = "" Then
MsgBox c.Address & " muss noch ausgefüllt werden"
c.Parent.Select
c.Activate
Exit For
End If
Next
End Sub

Vielen Dank schonmal!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Namenloser,
Zitat:Kann ich die Tabellen mit der Namens Definition alle zusammen ansprechen? Nein, kannst du nicht. Per Definitionem kann sich ein Name nicht auf Zellen/Bereich mehrerer Blättter beziehen. Du kannst aber in jedem Blatt ein Name "CheckAbfrage" haben, der sich auf die jeweiligen Zellen/Bereiche in dem Blatt bezieht, in dem der Name definiert ist.
Zitat::Wie kann ich das Verändern, sodass alle Tabellen (Tabelle1-6) überprüft werden?
Indem du um den ersten For Each c einen zweiten baust, der sich auf alle Blätter bezieht:

Dim ws As Worksheet
Dim c As Range
For Each ws In ThisWorkbook.Worksheets
For Each c In ws.Range("CheckAbfrage")
If c = "" Then
End If
Next c
Next ws

Gruess Hansueli

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet Dim c As Range For Each ws In ThisWorkbook.Worksheets For Each c In ws.Range("CheckAbfrage") If c = "" Then MsgBox c.Address & " muss noch ausgefüllt werden" c.Parent.Select c.Activate Exit For End If Next c Next ws End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet Dim c As Range For Each ws In ThisWorkbook.Worksheets For Each c In ws.Range("A1") If c = "" Then MsgBox ws.Name & " " & c.Address(False, False) & " muss noch ausgefüllt werden" c.Parent.Select c.Activate Exit For End If Next c Next ws End Sub

Beliebteste Forumthreads (12 Monate)

Pflichtfelder über mehrere Arbeitsblätter

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pflichtfelder über mehrere Arbeitsblätter

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread