Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Laufzeitfehler '438' bei Treeview Zuweisung
zurück: Formel über VBA in Zellen einpflegen weiter: Blatt bis auf ein paar Zellen Sperren und Entsperren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Jens1977
Gast


Verfasst am:
29. Jul 2010, 12:22
Rufname:

Laufzeitfehler '438' bei Treeview Zuweisung - Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Hallo Zusammen,

wie im Titel beschrieben taucht bei mir der Laufzeitfehler '438' (Objekt unterstützt diese Eigenschaft oder Methode nicht) bei folgender Zuweisung auf:

Code:
Dim tv1 As TreeView

Set tv1 = Sheets("Hierarchie").tv1   --->>> hier tritt der Laufzeitfehler auf



Was ich überhaupt nicht verstehe ist, das es bis vor kurzen alles lief und plötzlich gestern dieser Laufzeitfehler auftaucht ohne das etwas am VBA geändert wurde.

Den Code habe ich von jemand anderen übernommen, deshalb weis ich z.B. nicht was das .tv1 am ende der Anweisung für einen Sinn hat. Ich hatte das auch schon entfernt, aber es hat am Problem selber nichts geändert.

Hat jemand einen Tipp für mich, was ich verändern muss um den Laufzeitfehler zu beseitigen?

Danke Euch.

Gruß
Jens
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 12:57
Rufname: Phelan


AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Code:
Dim tvw As TreeView

Set tvw = Sheets("Hierarchie").tv1

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Jens1977
Gast


Verfasst am:
29. Jul 2010, 13:37
Rufname:

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Hab ich so geändert, der Fehler tritt aber nach wie vor auf.

Gruß
Jens
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 13:58
Rufname: Phelan

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

...dan zeig mal mehr von deinem Code
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Jens1977
Gast


Verfasst am:
29. Jul 2010, 14:05
Rufname:


AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Hier der komplett Code zum bauen eines Treeviews:

Code:

Private Sub Make_tv1()
    Dim Zeile As Object
    Dim Z As Double
    Dim tvw As TreeView
    Dim NN As String
    Dim Par As String
    Dim EBENE As String
    Set tvw = Sheets("Hierarchie").tv1
    'tvw.shownodestooltips = True
    Z = 1
    tvw.Nodes.Clear
    For Each Zeile In Sheets("Hierarchie_1").UsedRange.Rows
        If Z = 1 Then
            Rem tvw.Nodes.Add()
            NN = "A" & Sheets("Hierarchie_1").Cells(Z, 1) & Sheets("Hierarchie_1").Cells(Z, 5)
            'Debug.Print "Root   " & Z & NN
            tvw.Nodes.Add , , NN, Sheets("Hierarchie_1").Cells(Z, 1)
            tvw.Nodes(NN).EnsureVisible
            NN = "A" & Sheets("Hierarchie_1").Cells(Z, 2) & Sheets("Hierarchie_1").Cells(Z, 5)
            Par = "A" & Sheets("Hierarchie_1").Cells(Z, 1) & Sheets("Hierarchie_1").Cells(Z, 5)
            tvw.Nodes.Add Par, tvwChild, NN, Sheets("Hierarchie_1").Cells(Z, 4)
            tvw.Nodes(NN).EnsureVisible
            'Debug.Print "2.er   " & NN & "  /  " & Par
        Else
            NN = "A" & Sheets("Hierarchie_1").Cells(Z, 2) & Sheets("Hierarchie_1").Cells(Z, 5)
            EBENE = LTrim(STR(Val(Sheets("Hierarchie_1").Cells(Z, 5)) - 1))
            'Debug.Print EBENE
            If Len(EBENE) < 2 Then
                EBENE = "0" & EBENE
            End If
            Par = "A" & Sheets("Hierarchie_1").Cells(Z, 6) & EBENE
            'Debug.Print EBENE & " -  " & NN & "  /  " & Par
            tvw.Nodes.Add Par, tvwChild, NN, Sheets("Hierarchie_1").Cells(Z, 4) & " / " & Sheets("Hierarchie_1").Cells(Z, 3)
            'tvw.Nodes(NN).TooltipText = Str(Z) & " - " & Sheets("Hierarchie_1").cell(Z, 9)
            If Sheets("Hierarchie_1").Cells(Z, 5) < "04" Then
                tvw.Nodes(NN).EnsureVisible
            End If
        End If
        'DoEvents
        Z = Z + 1
        If Sheets("Hierarchie_1").Cells(Z, 1) = "" Then
            Exit For
        End If
    Next
    DoEvents
    tvw.Visible = True
    Sheets("Hierarchie").Visible = True
    DoEvents
    Sheets("Hierarchie").Activate
End Sub
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 14:20
Rufname: Phelan

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Heißt das Treeview denn auch tv1?

Das hört sich wie ne Zelle an. Nimm stattdessen tvx und bennene das
Treeview auch in tvx um.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Jens1977
Gast


Verfasst am:
29. Jul 2010, 14:47
Rufname:

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Der Fehler verschwindet leider nicht.

Wie gesagt, der VBA lief bis vor kurzen noch ohne Probleme. Irgendwas muss sich in der Excelumgebung geändert haben. Vielleicht ein Patch oder so etwas.

Ich kann es mir nicht erklären.
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 14:52
Rufname: Phelan

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Lad es mal irgendwo hoch. Mir fällt auch nix weiter ein.
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Jens1977
Gast


Verfasst am:
29. Jul 2010, 15:00
Rufname:

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

ping mich doch bitte einmal auf der Mail-Adresse

{maninweb: E-Mail Adresse entfernt, auch zum eigenen Schutz des Users, z.B.
vor SPAM usw.. Bitte keine E-Mail Adressen posten.}


an. Kann dir leider keine PM schicken.

Dann schick ich dir die Datei zu.

Gruß
Jens
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Jul 2010, 15:02
Rufname: Phelan

AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Posten von E-Mail-Adressen sind verboten.
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Jens1977
Gast


Verfasst am:
02. Aug 2010, 12:10
Rufname:


AW: Laufzeitfehler '438' bei Treeview Zuweisung - AW: Laufzeitfehler '438' bei Treeview Zuweisung

Nach oben
       Version: Office 2003

Habe nun herausgefunden woran es liegt!

Das Problem wird durch ein Sicherheitsupdate von Microsoft verursacht. (Updatekennung KB982133)

Das Update muss deinstalliert werden, dann gehts wieder.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zuweisung von Ressorcen 1 Pablo123 88 14. Jun 2012, 14:41
WF Zuweisung von Ressorcen
Keine neuen Beiträge Excel Formeln: zuweisung von platzierung 8 Feedback1000 297 07. Mai 2012, 15:03
Feedback1000 zuweisung von platzierung
Keine neuen Beiträge Excel Formeln: Zuweisung von Werten mit Vernichtung leerer Zellen 10 Maesthro 202 15. Apr 2012, 14:50
Guenter_Steiner Zuweisung von Werten mit Vernichtung leerer Zellen
Keine neuen Beiträge Excel Formeln: Vergleich von zwei Ergebnissen + Zuweisung von Werten 4 Cerosine 305 09. Nov 2011, 23:20
Cerosine Vergleich von zwei Ergebnissen + Zuweisung von Werten
Keine neuen Beiträge Excel Formeln: Formel für Zuweisung Artikelnr. und Lieferanten 3 Marcus1121 188 17. Okt 2011, 10:11
Marcus1121 Formel für Zuweisung Artikelnr. und Lieferanten
Keine neuen Beiträge Excel Formeln: Zuweisung von Artikeln nach bestimmten Kriterien 2 Alex_Richter 200 17. Feb 2011, 11:48
Alex_Richter Zuweisung von Artikeln nach bestimmten Kriterien
Keine neuen Beiträge Excel Formeln: Matrix Zuweisung beim SVERWEIS über eine Zelle 2 BB spider 1221 28. Sep 2010, 10:01
Gast Matrix Zuweisung beim SVERWEIS über eine Zelle
Keine neuen Beiträge Excel Formeln: Vergleich zweier Listen und Zuweisung einer Kategorie 2 Gast 299 06. Jul 2009, 22:51
Gast Vergleich zweier Listen und Zuweisung einer Kategorie
Keine neuen Beiträge Excel Formeln: Zuweisung eines "Formelfiles" zur Datentabelle 2 Martinosch 300 04. Feb 2009, 15:43
Martinosch Zuweisung eines "Formelfiles" zur Datentabelle
Keine neuen Beiträge Excel Formeln: automatische Zuweisung von eindeutiger Identikikationsnummer 2 Eule 916 13. Jan 2008, 13:44
Eule automatische Zuweisung von eindeutiger Identikikationsnummer
Keine neuen Beiträge Excel VBA (Makros): Laufzeitfehler 1004 - Makro tut nicht wenn Blattschutz 2 Gast 2033 08. Mai 2006, 16:55
Gast Laufzeitfehler 1004 - Makro tut nicht wenn Blattschutz
Keine neuen Beiträge Excel VBA (Makros): VBA-Skript ---> läuft, aber Laufzeitfehler beim Abspeiche 1 TobiC 697 07. Apr 2006, 16:28
tommyy VBA-Skript ---> läuft, aber Laufzeitfehler beim Abspeiche
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln