VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
If Boolean true wird ignoriert	24.12.2018 11:43:58	Robin
If Boolean true wird ignoriert	24.12.2018 12:05:36	Crazy Tom
If Boolean true wird ignoriert	25.12.2018 17:10:26	Gast81301
If Boolean true wird ignoriert	25.12.2018 18:00:35	Gast70117
If Boolean true wird ignoriert	25.12.2018 17:47:14	Mackie
If Boolean true wird ignoriert	25.12.2018 17:58:04	Gast80697

Ansicht des Beitrags:

Von:
Robin

Datum:
24.12.2018 11:43:58

Views:
746

Rating:

Antwort:

Thema:
If Boolean true wird ignoriert

Hallo zusammen,

habe hier eine Excel Liste mit zwei Spalten. Die Einträge der ersten Spalte sollen mit neuen verglichen werden. Dafür habe ich über einen ActivX-Button, eine Userform mit zwei Textboxen und einen Button gebaut.

Wenn ich in der TextBox1 einen Wert eingebe und dieser bereits vorhanden ist, soll er in der Tabelle eingefärbt werden (das funktioniert) und eine Msgbox erscheinen (das funktioniert nicht). Falls der Wert noch nicht in der ersten Spalte ist, soll er als letzter Wert in der Spalte eingetragen werden mit dem Wert aus TextBox2 in die zweite Spalte. Das funktioniert soweit auch, allerdings trägt auch den Wert ein, wenn er bereits in der Spalte vorkommt.

Kann mir da jemand weiter helfen?

Grüße Robin

Private Sub suchBoxBttn_Click()

Dim zeLL
Dim strSN As String
Dim strN As String
Dim rngXX As Range
Dim intEnd
Dim blnFound As Boolean

strSN = CStr(Me.TextBox1)
strN = CStr(Me.TextBox2)

' !!! Eingegrenzte Suche für eine schnellere Laufzeit !!!
Set rngXX = Tabelle1.Range("A2:A100")

'Sucht nach Eintrag
For Each zeLL In rngXX.Cells

    If CStr(zeLL.Value) = strSN Then
        zeLL.Interior.ColorIndex = 6
        blnFound = True
    Else
        zeLL.Interior.ColorIndex = xlColorIndexNone
        blnFound = False
    End If
Next zeLL
    
If blnFound = True Then
    MsgBox "Serienummer bereits vorhanden"
Else
    intEnd = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(intEnd, 1).Value = strSN
    Cells(intEnd, 2).Value = strN
End If

       
Worksheets("Tabelle1").Activate
'Formular schließen
Unload Me
SuchenBox.Hide

End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
If Boolean true wird ignoriert	24.12.2018 11:43:58	Robin
If Boolean true wird ignoriert	24.12.2018 12:05:36	Crazy Tom
If Boolean true wird ignoriert	25.12.2018 17:10:26	Gast81301
If Boolean true wird ignoriert	25.12.2018 18:00:35	Gast70117
If Boolean true wird ignoriert	25.12.2018 17:47:14	Mackie
If Boolean true wird ignoriert	25.12.2018 17:58:04	Gast80697