Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 12:44:41 AdiDeol
NotSolved
06.12.2018 14:18:19 Gast3578
NotSolved
06.12.2018 15:52:50 Gast3072
NotSolved
06.12.2018 16:59:39 Gast3578
NotSolved
07.12.2018 08:40:34 Gast30418
NotSolved
07.12.2018 08:42:41 Gast21441
NotSolved
Rot Benötige dringend Hilfe - Lagerbestandsliste
 07.12.2018 09:02:29 AdiDeol
NotSolved
07.12.2018 09:20:52 AdiDeol
NotSolved
06.12.2018 17:30:24 Gast3578
NotSolved
07.12.2018 08:41:38 Gast7828
NotSolved

Ansicht des Beitrags:
Von:
AdiDeol		 Datum:
07.12.2018 09:02:29		 Views:
522		 Rating:
     
Antwort:
  Ja
Thema:
Benötige dringend Hilfe - Lagerbestandsliste

Habe was neues ausprobiert, jetzt löscht er zwar, aber nicht den Datensatz den ich gewählt habe.

Private Sub CommandButton6_Click()
Dim a As Integer
Dim msg
Dim letzte_Zeile As Long

On Error GoTo Errorhandler

letzte_Zeile = Worksheets("Daten").Range("A65536").End(xlUp).Row

If Not rngID Is Nothing Then
    a = rngID + 1
Else
    a = Range(rngFind.Address).Row
End If

If MsgBox(" Datensatz wirklich löschen ?", vbYesNo) = vbNo Then
    Exit Sub
Else
    Range(Cells(a, "B"), Cells(a, "M")).Delete shift:=xlShiftUp
    Cells(letzte_Zeile, "A").ClearContents
End If

    ClearAll
    UserForm_Initialize
    ComboBox1.SetFocus
Exit Sub
Errorhandler:
MsgBox "Es wurde kein Datensatz zum Löschen ausgewählt!", vbOKOnly + vbCritical, "Datensatz löschen"
ComboBox1.SetFocus
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
06.12.2018 12:44:41 AdiDeol
NotSolved
06.12.2018 14:18:19 Gast3578
NotSolved
06.12.2018 15:52:50 Gast3072
NotSolved
06.12.2018 16:59:39 Gast3578
NotSolved
07.12.2018 08:40:34 Gast30418
NotSolved
07.12.2018 08:42:41 Gast21441
NotSolved
Rot Benötige dringend Hilfe - Lagerbestandsliste
 07.12.2018 09:02:29 AdiDeol
NotSolved
07.12.2018 09:20:52 AdiDeol
NotSolved
06.12.2018 17:30:24 Gast3578
NotSolved
07.12.2018 08:41:38 Gast7828
NotSolved