Ich habe ein Voting erstellt, welches über eine UserForm in Tabelle 1 (2 Eingabemöglichkeiten: Vor- und Zuname) die Eingaben in Tabelle 2 Speichert.
Private Sub Button_Voten_Click()
'Erste Zeile finden
last = Tabelle2.Cells(Rows.Count, 4).End(xlUp).Row + 1
'Vorname
Tabelle2.Cells(last, 2).Value = TextBox_Vorname
'Name
Tabelle2.Cells(last, 3).Value = TextBox_Nachname
'Windows Kennung
Tabelle2.Cells(last, 4).Value = Application.UserName
'Datum
Tabelle2.Cells(last, 5).Value = Format(Now, "DD.MM.YYYY HH:MM:SS")
Unload Me
MsgBox ("Danke fürs Voten, die Datei schließt jetzt von alleine!")
ActiveWorkbook.Close Savechanges:=True
End Sub
Nun möchte ich verhindern, dass eine Person zwei mal Voten kann, bzw. die letzte abgegebene Stimme zählt.Dazu habe ich folgenden Code versucht, welcher jedoch nicht funktioniert.
Private Sub Button_Voten_Click()
'Erste Zeile finden
last = Tabelle2.Cells(Rows.Count, 4).End(xlUp).Row + 1
Dim Wert As Long
Dim Zelle As Range
Dim Bereich As Range
Dim last1 As Integer
Set Bereich = Tabelle2.Range("D3:D35")
With Tabelle2
Wert = Range("A1").Value
For Each Zelle In Bereich
If Zelle.Value = Wert Then
last = Zelle.Row
End If
Next
End With
Darum bin ich nun auf euer Fachwissen angewiesen. Kann mir jemand helfen?Vielen Dank!