Herbers Excel-Forum - das Archiv

Meldung bei identischen Einträgen in 2 Spalten

Bild

Betrifft: Meldung bei identischen Einträgen in 2 Spalten
von: Werner

Geschrieben am: 14.02.2005 17:25:13
Hallo Forum,
ich habe für eine untere Fussball-Spielklasse eine Tabelle erstellt,in der ich u.a. auch die Begegnungen von Hand eingeben muss.Um Fehler (speziell Doppeleingaben) zu vermeiden,suche ich die Möglichkeit eine entsprechende Meldung einzubauen.
Zur Verdeutlichung:
https://www.herber.de/bbs/user/18065.xls
Wie kann man das gestalten?
Gruß Werner
Bild

Betrifft: AW: Meldung bei identischen Einträgen in 2 Spalten
von: ChrisL

Geschrieben am: 14.02.2005 20:46:50
Hi Werner
Alt + F11, Doppelklick auf Tabelle, Code einfügen.
Tabellenaufbau und Spalten müssen identisch mit Beispiel sein.
Gruss
Chris
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 7 Then
Dim iZeile As Long
Dim ManschaftA As String, ManschaftB As String
Dim Spieltag As String
ManschaftA = Cells(Target.Row, 4)
ManschaftB = Cells(Target.Row, 7)
For iZeile = 1 To Cells(65536, Target.Column).End(xlUp).Row
If iZeile <> Target.Row Then
If Cells(iZeile, 4) = ManschaftA And Cells(iZeile, 7) = ManschaftB Then
Spieltag = Cells(iZeile, 4).End(xlUp)
MsgBox "Die " & Vor_oder_Rück(Spieltag) & "rundenbegegnung " & ManschaftA & " / " & ManschaftB & " fand bereits am " & Spieltag & " statt!", _
vbExclamation, "Warnung"
Target = ""
Exit Sub
End If
End If
Next iZeile
End If
End Sub

Function Vor_oder_Rück(Spieltag As String) As String
Dim Tag As Byte
Tag = Left(Spieltag, InStr(Spieltag, ".") - 1)
If Tag <= 17 Then
Vor_oder_Rück = "Vor"
Else
Vor_oder_Rück = "Rück"
End If
End Function
Bild

Betrifft: AW: Meldung bei identischen Einträgen in 2 Spalten
von: Cardexperte

Geschrieben am: 14.02.2005 22:12:09
Hello Werner,
also mit der Funktion zählenwenn kannst du z.B. in der Nebenzelle die Ausgabe wie du sie willst ganz ohne VBA lösen, anbei dein Beispiel zurück, muss noch weiter ausgebaut werden, sollte aber ohne Probleme gehen, sieh es dir an, auch das Problem mit dden unterschiedlichen Texten wird so gelöst und es bleibt flexibel für alle Zeilen, bei der VBA-Lösung wirst du immer Probleme haben, jedenfalls mit der Zuordnung, geht aber auch wird jedoch ziemlich umfangreich, hier deine Datei https://www.herber.de/bbs/user/18083.xls
Gruss WS
Bild

Betrifft: AW: Meldung bei identischen Einträgen in 2 Spalten
von: Werner

Geschrieben am: 15.02.2005 16:09:27
Hallo,
möchte euch beiden danken,finde beide Lösungen haben was...
werde mal beides probieren,schon aus Neugierde.
Danke nochmal dass ihr euch so selbstlos solcher Arbeiten annehmt.
Viele Grüße Werner
 Bild
Excel-Beispiele zum Thema "Meldung bei identischen Einträgen in 2 Spalten"
Fehlermeldung #NV ausblenden Fehlermeldung abfangen
Fehlermeldung #DIV/0! verhindern Fehlermeldung abfangen und in sequentielle Datei schreiben
Meldung bei Werteänderung Geburtstagsmeldung bei Öffnen der Arbeitsmappe
VBA-Fehlermeldungen auflisten Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen
Zahlenstring mit Formel auslesen und Fehlermeldung verhindern Bei Stundeneintrag Meldung bei Grenzüberschreitung