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
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 11:53:29	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 14:27:26	Gast44194
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:07:09	Gast41657
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 14:29:50	Gast41265
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:08:12	Gast28375
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:22:57	Gast43468
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:28:22	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:30:41	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 17:09:15	Gast87129
die delete methode des range objektes konnte nicht ausgeführt werden	25.09.2016 14:46:04	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	25.09.2016 22:11:39	Gast76254
die delete methode des range objektes konnte nicht ausgeführt werden	28.09.2016 19:34:20	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	29.09.2016 01:27:01	Gast77881
die delete methode des range objektes konnte nicht ausgeführt werden	29.09.2016 07:50:32	Roger

Ansicht des Beitrags:

Von:
Gast87129

Datum:
24.09.2016 17:09:15

Views:
1097

Rating:

Antwort:

Thema:
die delete methode des range objektes konnte nicht ausgeführt werden

Hallo,

Dein Zellformat in der IdNrSpalte der Projektleiter-Tabelle haut nicht hin, das mußt Du auf Standard setzen, dann löscht Du Deinen Bereichsnamen Projektleiter aus dem Namensmanger und benennst Deine Tabelle genau mit diesem Namen ('Projektleiter')< das gleiche dann mit den übrigen Tabellen >, dann folgender Code:

Private Sub BtnDel_Click()
    ' :::::::::::::::::::::::::
    ' LÖSCHEN EINES PL
    ' :::::::::::::::::::::::::
         
             
            ' IN DER FUNCIOT WIRD DIE ERSTE SPALTE GESUCHT DES BEREICHES "PROJEKTLEITER"
            'FirstColumn = fncFind_ErsteSpalte_in_Bereich(rngBereich:=Worksheets("Db").Range("Projektleiter "))
             
            Dim objCell As Range
            Dim Suchbegriff As Long
             
            Suchbegriff = TxBIDNR.Value          ' in der Tabelle "Projektleiter" wird der Name gesucht der in dem Textfeld (nach ID Nummer wird gesucht) steht
             
            Set objCell = Worksheets("DB").ListObjects("Projektleiter").Range.Find(What:=Suchbegriff, _
                  LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
                 
            If objCell Is Nothing Then
               Call MsgBox("Nichts gefunden")
            Else
              Call Worksheets("DB").ListObjects("Projektleiter").ListRows(objCell.Row - 1).Delete
              Call BtnEmpty_Click
              TxBIDNR.Enabled = False
              Set objCell = Nothing
            End If
                   
End Sub

Außerdem sind mehrere Variablen bei Dir nicht deklariert, setz in allen Modulen in die erste Zeile die Anweisung Option Explicit, klick auf Debugging und deklarier diese nach...

Gruß,

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:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 11:53:29	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 14:27:26	Gast44194
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:07:09	Gast41657
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 14:29:50	Gast41265
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:08:12	Gast28375
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:22:57	Gast43468
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:28:22	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 15:30:41	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	24.09.2016 17:09:15	Gast87129
die delete methode des range objektes konnte nicht ausgeführt werden	25.09.2016 14:46:04	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	25.09.2016 22:11:39	Gast76254
die delete methode des range objektes konnte nicht ausgeführt werden	28.09.2016 19:34:20	Roger
die delete methode des range objektes konnte nicht ausgeführt werden	29.09.2016 01:27:01	Gast77881
die delete methode des range objektes konnte nicht ausgeführt werden	29.09.2016 07:50:32	Roger