Makro zur Überprüfung einer Nummer

Forumthread: Makro zur Überprüfung einer Nummer
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro zur Überprüfung einer Nummer

07.08.2024 14:26:44

Marco

Hallo,

gibt eine Formel oder ein Makro, welches überprüfen kann, ob z.B. eine Artikelnummer, welche sich im Arbeitsblatt 2 befinden, sich auch in Arbeitsblatt 3 befindet und diese, sofern sich die Artikelnummer nicht in Arbeitsblatt 3 befinden in einer bestimmten Zelle auf Arbeitsblatt 1 auflistet.

Hoffe ich konnte es verständlich formulieren.

Vielen Dank

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro zur Überprüfung einer Nummer

07.08.2024 14:47:21

daniel
AW: Makro zur Überprüfung einer Nummer

07.08.2024 15:44:17

Uduuh
AW: Makro zur Überprüfung einer Nummer

07.08.2024 15:59:01

GerdL
AW: Makro zur Überprüfung einer Nummer

07.08.2024 15:23:48

Marco

AW: Makro zur Überprüfung einer Nummer

07.08.2024 14:47:21

daniel

hi
immer nur für eine einzelne nummer oder für mehrere?

für eine Einzelnummer, die sich in Arbeitsblatt2 in einer bestimmten Zelle befindet, mit dieser Formel in der bestimmten Zelle im Arbeitsblatt 1

=Wenn(ZählenWenn(Arbeitsblatt3!Zellbereich_in_dem_die_Artikelnummer_stehen_könnte;Arbeitsblatt2!Zelle_mit_Artikelnummer)=0;Arbeitsblatt2!Zelle_mit_Artikelnummer;"")

Gruß Daniel

AW: Makro zur Überprüfung einer Nummer

07.08.2024 15:44:17

Uduuh

Hallo,
=FILTER(Tabelle2!A:A;(ZÄHLENWENN(Tabelle2!A:A;Tabelle3!A:A)=0)*(Tabelle2!A:A>""))

Gruß aus'm Pott
Udo

AW: Makro zur Überprüfung einer Nummer

07.08.2024 15:59:01

GerdL

Hallo Marco!

Sub Unit()



    Dim Suchbegriffe As Variant

    Dim Suchbereich As Range

    Dim bestimmteZelle As Range

    Dim Begriff As Variant

    Dim Fehlende As String

    

    Suchbegriffe = Worksheets("Tabelle2").Range("A2:A5").Value

    Set Suchbereich = Worksheets("Tabelle3").Range("A2:C2")

    Set bestimmteZelle = Worksheets("Tabelle1").Range("A2")

    

    For Each Begriff In Suchbegriffe

    

        If WorksheetFunction.CountIf(Suchbereich, Begriff) = 0 Then

            Fehlende = Fehlende & " ," & CStr(Begriff)

        End If

    

    Next

    

    If Len(Fehlende) > 0 Then bestimmteZelle = Mid(Fehlende, 3)



End Sub

Die Zellen- u. Bereichsangaben bitte anpassen.

Gruß Gerd

AW: Makro zur Überprüfung einer Nummer

07.08.2024 15:23:48

Marco

Hallo Daniel,

schonmal vielen Dank für die Antwort.
Das hat mir schonmal etwas weitergeholfen.

Jetzt habe ich aber das Problem, dass ich mehrerer Artikel in Arbeitsblatt 2 habe, welche ich in Arbeitsblatt 3 überprüfen möchte und er mir nur die Artikelnummern in Arbeitsblatt 1 auflistet, die nicht in Arbeitsblatt 3 sondern nur in Arbeitsblatt stehen überträgt.