anzeigen wenn schon vorhanden

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

Betrifft: anzeigen wenn schon vorhanden
von: Dietmar
Geschrieben am: 08.10.2015 13:18:57

Hallo an alle,
ich komme wieder mit einem Problem auf euch zu.
Folgendes :
Ich habe eine Tabelle Spalte A2 bis I10000. In der Spalte D werden immer Referenzen und in Spalte E immer Container-Nr. eingetragen.
Ich hätte gern, dass mir angezeigt wird wenn ich bereits die gleiche Referenz bzw. die
gleiche Container-Nr. eingetragen habe und in welcher Zelle diese steht.
Hoffentlich ist mein Problem zu lösen.
Jedenfalls schon mal vielen Dank im voraus
Gruß vom windigen, regnerischen Niederrhein

Dietmar

Bild

Betrifft: AW: anzeigen wenn schon vorhanden
von: Sepp
Geschrieben am: 08.10.2015 20:41:31
Hallo Dietmar,
in das Modul der entsprechenden Tabelle.

' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

With Target
  If .Count = 1 Then
    If .Column = 4 Or .Column = 5 Then
      If Application.CountIf(Columns(.Column), .Value) > 1 Then
        Set rng = Columns(.Column).Find(What:=.Value, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False)
        Do While rng.Row = .Row
          Set rng = Columns(.Column).FindNext(rng)
        Loop
        If Not rng Is Nothing Then
          If MsgBox("Der Eintrag '" & .Text & "' ist bereits in Zeile " & rng.Row & " vorhanden!" _
            & vbLf & vbLf & "Zu Zeile wechseln?", 308) = vbYes Then
            Application.Goto rng
          End If
        End If
      End If
    End If
  End If
End With
End Sub

Gruß Sepp


Bild

Betrifft: AW: anzeigen wenn schon vorhanden
von: Dietmar
Geschrieben am: 10.10.2015 11:12:37
Hallo Sepp,
vielen Dank für deine Antwort - funktioniert tadellos.
Bitte entschuldige meine späte Antwort, war jedoch dienstlich unterwegs
schönes Wochenende
Gruß
Dietmar

 Bild

Beiträge aus den Excel-Beispielen zum Thema "anzeigen wenn schon vorhanden"