AW: Hinweis wenn gleicher Eintrag
03.03.2022 16:23:08
Oberschlumpf
Hi Steffi,
da würde ich einen extra-Button, z Bsp "OK" empfehlen.
So würde nach Klick auf den Button die TxtBox geprüft werden.
Ins Klick-Ereignis vom Button schreibst du...
Private Sub CommandButton1_Click()
Dim lloRowStartInSh2 As Long, lloRow As Long
If TextBox10.Text = "" Then Exit Sub 'wenn nix drin is in txtbox10, passiert hier auch nix weiter
lloRowStartInSh2 = 1
With Sheets("Tabelle2")
For lloRow = lloRowStartInSh2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If LCase(TextBox10.Text) = LCase(.Range("A" & lloRow).Value) Then
If MsgBox(TextBox10.Text & " auch in Tabelle2, Spalte Agefunden." & vbCrLf & "Soll " & TextBox10.Text & " in Tabelle2, Spalte A gelöscht werden", vbQuestion + vbYesNo , "Frage") = vbYes Then
.Range("A" & lloRow).ClearContents 'löscht nur den Inhalt in Tabelle2, Spalte A
'oder
'.Range("A" & lloRow).Delete Shift:=xlUp 'löscht in Tabelle2, Spalte A die Zeile (nur in A), die unteren Zeilen in A werden um 1 nach oben geschoben
End If
End If
Next
End With
End Sub
So wie zuvor bei der ComboBox wäre bei der TextBox das Change-Ereignis keine gute Wahl, weil...
...ComboBox-Auswahl = Change = Code starten
...TextBox-Eintrag - bei jedem! Buchstaben - = Change = Code bei jedem Buchstaben ausführen
Deswegen würd ich hier besser einen extra-Button empfehlen, der den Textbox-Inhalt "kontrolliert".
Ciao
Thorsten
...kleine Bitte: wenn das wieder funktioniert, freuts mich natürlich :-), wenn es das nich tut, frag mich gerne erneut
Aber...wenn du (wieder) eine ganz andere Frage zu deinen Daten hast, die hier das Thema sind, erstell bitte einen neuen Beitrag, weil snst die Gefahr ist, dass nur ich dir antworte.... = auf Dauer nich so dolle ;-)