Habe da n kleines Problem.
Und zwar gehts um diese Mappe hier.
http://www.topdog24-7.de/hochladen2.xls
Private Sub cmdArtikelBestellt_Click()
Dim lngR As Long
Dim durchsuchen
bAction = False
With Sheets("BPF")
Set durchsuchen = .Range("A:A").Find(what:=txtLfdNr.Text, lookat:=xlWhole)
If Not durchsuchen Is Nothing Then
lngR = durchsuchen.Row
.Cells(lngR, 1) = txtLfdNr
.Cells(lngR, 2) = txtStatus
.Cells(lngR, 3) = txtLieferant
.Cells(lngR, 4) = txtLieferantennr
.Cells(lngR, 5) = txtHersteller
.Cells(lngR, 6) = txtArtikelbezeichnung
.Cells(lngR, 7) = txtArtikelnummer
.Cells(lngR, 8) = txtGröße
.Cells(lngR, 9) = txtSystemnr
.Cells(lngR, 10) = txtMenge
End If
Dim i As Long
With Sheets("Bestellen")
For i = .Cells(65536, 1).End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Text = Me.txtLfdNr.Text Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End With
bAction = True
Set durchsuchen = Nothing
End Sub
Mit diesem Code ändere ich in meiner Mappe bestimmte Zeilen im Sheet BPF. Diese werden zum ändern über eine Listbox in ein UF gebracht. Dann wird zurückgeschrieben, und in der "BehelfsTabelle" namens Bestellen (diese bringt mir die betreffenden Zeillen in meine Listbox) die geänderte Zeile gelöscht.
Funktioniert bestens.
Nur wenn die Zeile in Sheet "Bestellen" gelöscht wurde bleiben die Werte noch in dem UF stehen.
Wie bringe ich die UF oder Listbox jetzt dazu, den nächsten Datensatz gleich in dem UF anzuzeigen?
Desweiteren soll wenn das Sheet "Bestellen" wenn keine Datensätze mehr ausser der Überschrift in Zeile 1 enthält gelöscht werden und eine MsgBox öffen mit dem Text "Keine weiteren Bestellungen mehr vorhanden" - Speichern und zurück zu UF Übersicht.
Ich weiss is n büschen viel, aber das wenn ich nun habe kann ich die Mappe vollends alleine Beenden.
Gruß Gerhard