Daten in anderen Tabellenblättern suchen und in Felder eintr

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B4:O4,B8:O8,B12:O12,B16:O16"), Target) Is Nothing Then If Target.Cells(1).Value = "" Then Application.EnableEvents = False Target.Offset(-2).Resize(2, 2).Value = "" Application.EnableEvents = True Exit Sub End If Dim obj, fund Set obj = GetObject(ThisWorkbook.Path & "" & "163550.xlsx") With obj.Worksheets("DPA zulässig").UsedRange.Columns(1) fund = Application.Match(Target.Cells(1).Value, .Value, 0) If IsNumeric(fund) Then Application.EnableEvents = False Target.Offset(-1).Value = .Cells(fund).Offset(, 1).Value Target.Offset(-2).Value = .Cells(fund).Offset(, 2).Value Target.Offset(-2).Cells(1, 2).Value = .Cells(fund).Offset(, 3).Value Application.EnableEvents = True Else MsgBox "Kürzel existiert nicht oder ist nicht zulässig." End If End With End If End Sub

habe die Spalte 4 in der dritte Formel nicht angepasst:
B2 =WENNFEHLER(SVERWEIS(B4;'[163550.xlsx]DPA zulässig'!$A:$E;2;0);SVERWEIS(B4;'[163550.xlsx]DPA unzulässig'!$A:$E;2;0))
C2 =WENNFEHLER(SVERWEIS(B4;'[163550.xlsx]DPA zulässig'!$A:$E;3;0);SVERWEIS(B4;'[163550.xlsx]DPA unzulässig'!$A:$E;3;0))
B3 =WENNFEHLER(SVERWEIS(B4;'[163550.xlsx]DPA zulässig'!$A:$E;4;0);SVERWEIS(B4;'[163550.xlsx]DPA unzulässig'!$A:$E;4;0))

D2 =WENNFEHLER(SVERWEIS(D4;'[163550.xlsx]DPA zulässig'!$A:$E;2;0);SVERWEIS(D4;'[163550.xlsx]DPA unzulässig'!$A:$E;2;0))
E2 =WENNFEHLER(SVERWEIS(D4;'[163550.xlsx]DPA zulässig'!$A:$E;3;0);SVERWEIS(D4;'[163550.xlsx]DPA unzulässig'!$A:$E;3;0))
D3 =WENNFEHLER(SVERWEIS(D4;'[163550.xlsx]DPA zulässig'!$A:$E;4;0);SVERWEIS(D4;'[163550.xlsx]DPA unzulässig'!$A:$E;4;0))

B6 =WENNFEHLER(SVERWEIS(B8;'[163550.xlsx]DPA zulässig'!$A:$E;2;0);SVERWEIS(B8;'[163550.xlsx]DPA unzulässig'!$A:$E;2;0))
C6 =WENNFEHLER(SVERWEIS(B8;'[163550.xlsx]DPA zulässig'!$A:$E;3;0);SVERWEIS(B8;'[163550.xlsx]DPA unzulässig'!$A:$E;3;0))
B7 =WENNFEHLER(SVERWEIS(B8;'[163550.xlsx]DPA zulässig'!$A:$E;4;0);SVERWEIS(B8;'[163550.xlsx]DPA unzulässig'!$A:$E;4;0))
...

VG
Yal

Hallo Piet,

sieht gut aus. Ich habe nur den "> 2" in "%gt;= 2" geändert, ein wiederholten "if" als "else" platziert und den EnableEvents von Anfang bis Ende gebracht (der "Target.Value = Empty" hätte sonst ausgelöst).

Public unzulässig As Integer  'addiert unzulässig



Private Sub Worksheet_Change(ByVal Target As Range)

Dim WbKurz As Workbook  'DPA Kürzel

Dim rFind As Range



    If Target.Cells.Count > 1 Then Exit Sub

    If Target.Value = Empty Or Target.Value = "" Then Exit Sub

    

    If Cells(Target.Row, 1) = "DPA" And Cells(1, Target.Column) = "Start" Then

        Application.EnableEvents = False

        Target.Select

        Set WbKurz = Workbooks("163550.xls")

        Set rFind = WbKurz.Worksheets("DPA zulässig").Columns(1).Find(What:=Target, LookAt:=xlWhole, MatchCase:=False)

        

        If rFind Is Nothing Then

            Set rFind = WbKurz.Worksheets("DPA unzulässig").Columns(1).Find(What:=Target, LookAt:=xlWhole, MatchCase:=False)

            If Not rFind Is Nothing Then

                unzulässig = unzulässig + 1

                If unzulässig >= 2 Then

                    MsgBox "2x unzulässig gewählt - Abbruch!", vbCritical

                    'Target.Value = Empty ' ich würde es drin lassen: sonst sieht man nicht, was man nicht eingeben soll!

                    Exit Sub

                End If

                MsgBox unzulässig & " x 'unzulässig' aufgetreten!"

            Else

                MsgBox "Dieses Kürzel ist nicht bekannt!"

                Exit Sub

            End If

        End If

       

        Application.EnableEvents = False

        Target.Offset(-2, 0).Value = rFind.Offset(0, 1)

        Target.Offset(-1, 0).Value = rFind.Offset(0, 3)

        Target.Offset(-2, 0).Cells(1, 2) = rFind.Offset(0, 2)

        Target.Offset(0, 2).Select

    End If

    Application.EnableEvents = True

End Sub

Beliebteste Forumthreads (12 Monate)

Daten in anderen Tabellenblättern suchen und in Felder eintr

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten in anderen Tabellenblättern suchen und in Felder eintr

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread