Inhalt der aktiven Zelle in der Arbeitsm. suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Inhalt der aktiven Zelle in der Arbeitsm. suchen
von: Robert B.
Geschrieben am: 14.06.2002 - 19:41:38

Hallo zusammen,

ich komme mit diesem Problem einfach nicht weiter.

Der Wert der in die aktive Zelle der Spalte B eingetragen wird, soll automatisch in allen vorhandenen Tabellen auch in Spalte B gesucht werden.

Mit dem folgenden Makro funktioniert dies aber nur in einer
Tabelle.


If Target.Column <> 2 Or IsEmpty(Target) Then Exit Sub
On Error GoTo err
If Application.CountIf(Range("B:B"), Target) - 1 Then
        Beep
        MsgBox "Achtung:" + Chr(10) & _
        Chr(10) & _
        "Die Nr. " & Range(Target.Address) & " ist schon vorhanden!", Chr(13) & _
        vbCritical, Title:="Nr. Überprüfung"
        Target.ClearContents
    End If
    Exit Sub
err:
End Sub

Ich bin für alle Vorschläge dankbar.

Gruß Robert B.

nach oben   nach unten

Re: Inhalt der aktiven Zelle in der Arbeitsm. suchen
von: jinx
Geschrieben am: 15.06.2002 - 08:42:43

Moin, Robert,

wenn das gepostete der gesamte Code ist, fehlt die Schleife für die Blätter in der Mappe, etwa For Each Sh In Worksheets...

cu
jinx


nach oben   nach unten

Re: Inhalt der aktiven Zelle in der Arbeitsm. suchen
von: Robert B.
Geschrieben am: 15.06.2002 - 10:46:52

Danke für den Hinweis

Ganz klar ist mir das mit der Schleife nocht nicht,
wo genau ich die einbauen muß.


Gruß Robert


nach oben   nach unten

Re: Inhalt der aktiven Zelle in der Arbeitsm. suchen
von: jinx
Geschrieben am: 15.06.2002 - 12:26:04

Moin, Robert,

da habe ich mich "verlesen"...

Per Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) wird die Prüfung auf jedem einzelnen Blatt vorgenommen; was Dir vorschwebt, kann IMHO nur über ein von dieser Aktion aufgerufenes Makro erledigt werden...

cu
jinx


nach oben   nach unten

Re: Inhalt der aktiven Zelle in der Arbeitsm. suchen
von: Robert B.
Geschrieben am: 15.06.2002 - 12:48:14

Hallo jinx

irgendwie verstehe ich das nicht.

Ich möchte in Tabell1 Spalte B einen Wert eintragen

dieser Wert soll dann in Tabelle1 und allen anderen
in Spalte B gesucht werden.

Und wenn vorhanden dann über eine MsgBox (oder ähnlichen)angezeigt werden.

Somit macht meiner Meinung nach die Funktion


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 

nur in Tabelle1 Sinn ???

Gruß Robert


nach oben   nach unten

Re: Inhalt der aktiven Zelle in der Arbeitsm. suchen
von: jinx
Geschrieben am: 15.06.2002 - 14:22:17

Moin, Robert,

die beschriebene Prozedur macht schon Sinn, wenn sie in DieseArbetismappe geschrieben wird - sie führt den Code aber immer nur auf einem (dem zu dem Zeitpunkt aktiven) Blatt aus, hierzu das Zitat Objektkatalog: "Tritt ein, wenn ein beliebiges Tabellenblatt durch den Benutzer oder durch eine externe Verknüpfung geändert wird."

Nach meinem Kenntnisstand wirst Du ein Makro aus der If-Schleife aufrufen müssen, um den Inhalt in Spalte B auf den anderen Blättern zu überprüfen und ggf. den Eintrag auf der Seite zu entfernen.

cu
jinx


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Inhalt der aktiven Zelle in der Arbeitsm. suchen"