X in gefundene Zelle schreiben
04.09.2015 10:47:19
Shawn
Ich brauche Hilfe
Ich suche mit TextBox eine Nummer in den Daten und würde gerne ein X in die gefundene
Zeile,Spalte schreiben
Bei Spalte G funktioniert alles bestens aber sobald ich bei Spalte H den auftrag fertig melde löscht er mir das x in spalte G (Soll aber stehenbleiben)
Ich kriegs einfach nicht hin
Der Code:
Private Sub CommandButton1_Click()
Dim C As Range
Dim rngBereich As Range
Dim i As Integer
With Worksheets("Erfassung")
Set rngBereich = .Range("B10:B9999")
Set C = rngBereich.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
If .Cells(C.Row, "G").Value = "" Then 'Hier hätt ich gern wenn in "G" ein _
X dann "Packauftrag wurde schon rückgemeldet
? 'Hier hätt ich gern wenn in "H" ein X dann "Packauftrag wurde schon rückgemeldet
.Cells(C.Row, "G").Value = TextBox2.Value 'Ankreuzen mit X
.Cells(C.Row, "H").Value = TextBox3.Value 'Ankreuzen mit X
MsgBox "Packauftrag wurde Ausgebucht"
For i = 1 To 2
Controls("Textbox" & i).Value = ""
Next
Else
MsgBox "Packauftrag wurde schon Rückgemeldet"
End If
Else
MsgBox "Packauftrag nicht gefunden"
End If
End With
Unload Me
End Sub
Vielen Dank