Thema Datum  Von Nutzer Rating
Antwort
Rot .Delete Befehl funktioniert nicht
26.08.2015 08:36:13 VBAProblem
NotSolved
26.08.2015 08:47:54 Gast80399
NotSolved

Ansicht des Beitrags:
Von:
VBAProblem
Datum:
26.08.2015 08:36:13
Views:
1327
Rating: Antwort:
  Ja
Thema:
.Delete Befehl funktioniert nicht

Guten Morgen,

ich habe folgendes Problem:

wenn ich auf den Button 'Löschen klicke', sollte der bereits vorher ausgewählte Datensatz gelöscht werden. Gelöscht wird allerdingsgar nicht, es kommt: Typen unverträglich. Bin VBA neuling und hoffe ihr könnt mir helfen.

Code:

Private Sub CommandButton4_Click()
  Dim löschen As Excel.Range

  With Tabelle1
     
    Set löschen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set löschen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then
    
      .Cells(löschen.Row, "A").Delete
      .Cells(löschen.Row, "B").Delete
      .Cells(löschen.Row, "C").Delete
      .Cells(löschen.Row, "D").Delete
      .Cells(löschen.Row, "E").Delete
    Else
      Call MsgBox("Kein Datensatz zum Löschen ausgewählt")
    End If
End With
    
End Sub

MfG


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
Rot .Delete Befehl funktioniert nicht
26.08.2015 08:36:13 VBAProblem
NotSolved
26.08.2015 08:47:54 Gast80399
NotSolved