Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox Multiselect Automatisierungsfehler

Forumthread: Listbox Multiselect Automatisierungsfehler

Listbox Multiselect Automatisierungsfehler
16.02.2009 21:24:00
Leon
Hallo
Ich habe ein kleines Problem:
Wenn ich keines der Blätter ausgewählt habe in der Listbox Multiselect und ungewollt auf den Commandbutton komme, bringt er mir den Fehler= Automatisierungsfehler, das Objekt wurde vom Clients getrennt.
Wie kann ich das verhindern?

Private Sub Commandbutton1_Click()
Dim varPrintTable() As String
Dim iTable As Integer, iVar As Integer
iVar = 1
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
ReDim Preserve varPrintTable(iVar)
varPrintTable(iVar) = ListBox1.List(iTable)
iVar = iVar + 1
End If
Next iTable
Sheets(varPrintTable).PrintOut
End Sub


Für Hilfestellungen danke ich
Gruß
Leon

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox Multiselect Automatisierungsfehler
16.02.2009 21:37:00
fcs
Hallo Leon,
eine Prüfung, ob der Array-Zähler noch auf 1 steht sollte das Problem bereinigen.
Gruß
Franz

Private Sub Commandbutton1_Click()
Dim varPrintTable() As String
Dim iTable As Integer, iVar As Integer
iVar = 1
For iTable = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iTable) Then
ReDim Preserve varPrintTable(iVar)
varPrintTable(iVar) = ListBox1.List(iTable)
iVar = iVar + 1
End If
Next iTable
If iVar = 1 Then
MsgBox "Es ist kein Tabellenblatt zum Drucken gewählt!"
Else
Sheets(varPrintTable).PrintOut
End If
End Sub


Anzeige
AW: Listbox Multiselect Automatisierungsfehler
16.02.2009 21:43:00
Josef
Hallo Leon,
eine Möglichkeit.
' **********************************************************************
' Modul: Modul5 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
Private Declare Sub GetSafeArrayPointer Lib "msvbvm60.dll" Alias "GetMem4" _
    (pArray() As Any, sfaPtr As Long)



Private Sub Commandbutton1_Click()
    Dim varPrintTable() As String
    Dim iTable As Integer, iVar As Integer
    Dim sfaPtr As Long
    
    iVar = 1
    For iTable = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(iTable) Then
            Redim Preserve varPrintTable(iVar)
            varPrintTable(iVar) = ListBox1.List(iTable)
            iVar = iVar + 1
        End If
    Next iTable
    
    GetSafeArrayPointer varPrintTable, sfaPtr
    
    If sfaPtr > 0 Then Sheets(varPrintTable).PrintOut
    
End Sub
Gruß Sepp

Anzeige
AW: Fehler ist durch Euch beide gelöst. Danke
16.02.2009 23:18:00
Leon
Hallo Franz, hallo Sepp
Beide Varianten sind einfach spitze. Wie kann ich Euch danken?
Möchte mich nochmals für Eure Hilfe bedanken.
danke an Euch beide
Gruß
Leon
;

Forumthreads zu verwandten Themen

Automatisierungsfehler - Function
Manemann

Hallo,
ich habe in eine Excel-Tabelle die folgende Funktion eingebaut.
Private Function DINKW(dat As Date) As Integer Dim dbl As Double dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1) DINKW = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1 End Function
und ru...
27.08.2008 21:35:17
Thread-ID: 1005204
7 Beiträge
Automatisierungsfehler bei ADO.Connection
Lars

Hallo zusammen,
ich habe ein Problem mit der Herstellung einer Connection.
Beim Debuggen bekomme ich in der Zeile "Set cn = New ADODB.Connection"
einen Laufzeitfehler -2147024769 (8007007F):
Automatisierungsfehler
angegebene Prozedur wurde nicht gefunden
Ich habe überal...
18.11.2008 15:52:29
Thread-ID: 1025681
3 Beiträge
Automatisierungsfehler -> AutoFilter?
Markus

Hi!
Ich habe folgendes Problem:
Nach Aufruf einer bestimmten/zufälligen Kombination aus Makro/Prozeduren bekomme ich einen Automatisierungsfehler. Gehe ich in der Fehlermeldung auf in den Debugmodus steht der Cursor immer vor einer Zeile wie dieser: Selection.AutoFilter Field:=17, Crite...
10.12.2008 11:17:00
Thread-ID: 1031629
2 Beiträge
Fehler im Code Userform - Automatisierungsfehler
a_ke

Hallo,
ich erhalte beim Aufruf einer Userform immer die Fehlermeldung " Excel hat einen schwerwiegenden Fehler
entdeckt und muss beendet werden". Laut dem dann erscheinenden Hinweis handelt es sich um
einen Automatisierungsfehler.
Komisch dabei ist, dass der Aufruf der Userform...
02.05.2009 13:29:38
Thread-ID: 1072413
3 Beiträge
Automatisierungsfehler
Lorenz

Hallo werte Vba´ler
Folgender Code löst einen Automatisierungsfehler aus (vom Client getrennt). Was ist daran falsch?.
Bei Rechtsklick schaltet sich zwar die UF.Textbox ein, als weiterer Schritt (wo der Fehler eintritt) ist der Ablauf zwar in derselben UF aber in einem ganz anderen Ste...
29.05.2011 15:53:08
Thread-ID: 1216579
3 Beiträge
Automatisierungsfehler
Rudi

Hallo
Ich habe eine Excel-Anwendung erstellt, die seit neustem nicht mehr läuft. Die Fehlermeldung beim Start lautet: "Fehler beim Kompilieren - Automatisierungsfehler".
Dabei wird die folgende Stelle im Coding markiert:
Global sheetfind as Worksheet
Habe VBA Version 6.5.
Wo...
11.09.2012 15:48:17
Thread-ID: 1278163
3 Beiträge
Automatisierungsfehler
Andreasser

Guten Tag Zusammen
Habe heute ein Problem mit einer Zeiterfassung, welche ich in Excel erstellt habe, und zwar kommt wenn ich das File öffne gleich eine Meldung: "Automatisierungsfehler"
Das File hat Makros, und wenn ich diese deaktiviere, dann kommt die Meldung auch nicht.
Als erst...
11.01.2013 16:21:46
Thread-ID: 1293875
7 Beiträge
Automatisierungsfehler Unbekannter Fehler
Juergen

Hallo Leute!
Ich habe ein Excel-VBA die mit mdb Datenbanken arbeitet und einiges anstellt.
In der Arbeit läuft sie einwandfrei.
Auch hier daheim läuft sie... solange man die VAB (die Passwort geschützt) so lässt.
Sobald man das Passwort eingibt kommt
"Automatisierungsfehler...
17.01.2013 22:17:57
Thread-ID: 1294847
2 Beiträge
Automatisierungsfehler b. Übergabe WSheet-Variable
Peter

Guten Tag
Ich möchte eine Spalte in einem Tabellenblatt verschieben.
Das Tabellenblatt habe ich der Variable aSheet übergeben:
Set aBook = ThisWorkbook
Set aSheet = aBook.Sheets("Buchungen")
Innerhalb meines codes rufe ich nachfolgenden Code auf:
Call ShiftColumnInWorksh...
06.03.2013 16:56:46
Thread-ID: 1302569
4 Beiträge
Automatisierungsfehler - unbekannter Fehler
Sentel

Hallo Zusammen,
ich habe hier mal wieder ein (kleines?) Problem mit meiner Excel-Datei.
Ich habe nun nach wochenlanger Arbeit (und natürlich auch mit eurer Unterstützung) meine Datei fertiggestellt und sie läuft einwandfrei inklusive aller Makros und Codes. Nun habe ich diese an mehrere...
06.01.2014 11:52:57
Thread-ID: 1344222
5 Beiträge
Automatisierungsfehler Tic Tac Toe
aggrolite

Hallo liebes Forum!
Nachdem ich hier einige hunderte hilfreiche Beiträge gefunden habe in der Vergangenheit, gibt's heute meinen ersten selbst verfassten Beitrag.
Ich bin noch nicht sehr lange in der VBA-Welt unterwegs, habe aber schon die ein oder anderen Sachen hinbekommen - nicht zu...
26.05.2014 18:48:23
Thread-ID: 1363526
5 Beiträge
Anzeige
Automatisierungsfehler
Chris

Hallo zusammen,
per Autofilter möchte ich von einem Sheet Werte in ein anderes kopieren, ohne das beide Sheets aktiviert sind.
Excel "flackert" zwischen den beiden Sheets, danach kommt der Hinweis auf einen Automatiserungsfehler und Excel stürzt ab.
Dieses Makro steht bei im Sheet "...
08.09.2014 22:18:23
Thread-ID: 1380535
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige