Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Excel vba Fehlermeldung
Normale Version: Excel vba Fehlermeldung
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

sharky51

16.04.2019, 13:30
Hallo zusammen,

vielleicht könnt Ihr mir mal wieder helfen denn ich stehe gerade auf dem Schlauch.

In einer sehr alten Arbeitsmappe wollte ich einige Änderungen durchführen und u.a. den Tabellennamen auslesen und zwar so:

Code:
Sub ZeigeTabellenblattname()
MsgBox ActiveWorkbook.ActiveSheet.Name
End Sub

Leider bekomme ich den Laufzeitfehler "400036" Anwendungs- oder objektdefinierter Fehler angezeigt...und ich weiß nicht woran es liegen könnte.
Als Versuch habe ich das mal mit einer neuen Mappe die unter Office365 erstellt wurde probiert und siehe da es funktioniert alles.

Woran könnte das Problem denn liegen? Unter Verweise ist ja Microsoft Office 16.0 Objekt Library eingefügt.

Vielen Dank schon mal!

snb

16.04.2019, 13:47
zuviel Pleonasmus:


Code:
Sub ZeigeTabellenblattname()
  MsgBox ActiveSheet.Name
End Sub

Fang mal an ein VBA Buch für Anfänger zu lesen.

sharky51

16.04.2019, 13:57
Danke für die Antwort... aber genau so geht es nicht

Code:
Sub ZeigeTabellenblattname()

MsgBox ActiveSheet.Name
End Sub

snb

16.04.2019, 14:17
Arbeitest du in Excel ?

sharky51

17.04.2019, 08:30
Ja ich arbeite in Excel.

Case

17.04.2019, 08:51
Hallo Erich, :19:

da fallen mit zwei Fehlerquellen ein.
  • Hast Du "gebrochene Verweise - NICHT VORHANDEN..." drin (im VBA Editor unter Extras - Verweise...)?
  • Kannst du mal im VBA Editor auf "Debuggen - Kompilieren von VBAProject...) klicken - läuft das sauber durch? Es könnte an einer ganz anderen Sub liegen.

sharky51

17.04.2019, 10:06
Hallo Case,

hab Deinen Rat mal befolgt und folgendes festgestellt.
In dieser Sub steigt das Teil bei ".lstWerte" aus.

Code:
Private Sub CommandButton1_Click()
UserForm1.Show
 If ActiveSheet.Name = "DiveList1 Work" Then
   OptionButton1.Caption = "Standard-Ausrüstung"
   Me.lstWerte.RowSource = "U9:U40"
 ElseIf ActiveSheet.Name = "TravelList" Then
   OptionButton1.Caption = "Allgemein"
   Me.lstWerte.RowSource = "Q6:Q16"
 End If
End Sub

snb

17.04.2019, 11:32
Benütze Userform_Initialize

sharky51

17.04.2019, 22:07
Danke für Eure Tipps!

Ich musste das Tabellenblatt neu aufbauen....jetzt funktioniert alles wieder.... ohne dass ich den vba-code geändert hatte.

Trotzdem die Frage an Euch Super-Excelianer: Kann es vorkommen dass ein Tabellenblatt so eine Macke hat dass unter Umständen irgendwelche unerklärbaren Fehler auftreten?

Case

18.04.2019, 05:20
Hallo, :19:

wenn du das mal in einer Suchmaschine deiner Wahl eingibst, wirst du feststellen, dass es da viele Ergebnisse gibt. Insbesondere ältere Mappen (die dann in neueren Excelversionen genutzt werden), an denen viel "rumgespielt" wurde (viel kopiert, viel gelöscht, viele Formate, übergroße Formelbereiche, und, und...)  sind da überproportional betroffen. :21:
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > Excel vba Fehlermeldung