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

Automatisierungsfehler, Vorschlag anderer Code?

Forumthread: Automatisierungsfehler, Vorschlag anderer Code?

Automatisierungsfehler, Vorschlag anderer Code?
22.09.2023 12:51:47
Matthias
Hallo ins Forum,
ich habe Probleme mit folgendem Code 
Private Sub Worksheet_Change(ByVal Target As Range) 'Nicht SelectionChange !

     Dim rng

     Application.EnableEvents = False

     Set rng = Worksheets("Sonstiges").Range("I3:J200")

     On Error Resume Next

     If Target.Column = 4 Or Target.Column = 5 Then Target = WorksheetFunction.VLookup(Target, rng, 2, False)

     Application.EnableEvents = True

 End Sub

Nach ein paar Tagen habe ich hier einen Automatisierungsfehler. (siehe Screenshots in Datei)
Gibt es eventuell einen alternativen Vorschlag um trotzdem zum gewünschten Ergebnis zu kommen?
Eine nähere Beschreibung ist in der Datei.
https://www.herber.de/bbs/user/163040.xlsm
Vielen Dank für Eure Zeit
Gruß M@tt
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisierungsfehler, Vorschlag anderer Code?
22.09.2023 13:36:16
snb 
Private Sub Worksheet_Change(ByVal Target As Range)

     If (Target.Column = 4 Or Target.Column = 5) and target.count=1 then 

           Application.EnableEvents = False

          target= columns(9).find(target).offset(,1)

         Application.EnableEvents = True

    end if

 End Sub
Anzeige
AW: Automatisierungsfehler, Vorschlag anderer Code?
22.09.2023 13:51:06
onur
Userbild
AW: Automatisierungsfehler, Vorschlag anderer Code?
22.09.2023 23:14:47
Matthias
Hallo Onur und snb,
zunächst Entschuldigung, dass ich so spät erst antworte, leider hatte ich plötzlich andere wichtige Dinge zu erledigen. Die Mailbenachrichtigung funzt auch gerade nicht.
@ snb leider bleibt der Code hier auch hängen und zwar hier "Target = Columns(9).Find(Target).Offset(, 1)"
@ Onur beinahe so sieht es bei mir aus, nur "Bei Bedarf" ist bei mir noch angehakt. Was bedeutet das jedoch, was muß ich tun, dass habe ich noch nicht verstanden?
Anzeige
AW: Automatisierungsfehler, Vorschlag anderer Code?
23.09.2023 00:55:02
onur
Userbild
AW: Automatisierungsfehler, Vorschlag anderer Code?
22.09.2023 13:54:36
onur
Meine Vermutung: Fehlerbehandlung ist deaktiviert. Deswegen gibt es eine Fehlermeldung, wenn du mal was eingibst, was das Makro nicht finden kann. Da Events ausgeschaltet wurden (und ausgeschaltet bleiben), laufen deine beiden Makros danach auch nicht mehr.
Anzeige

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 23:35:17
Thread-ID: 1005204
6 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 16:52:29
Thread-ID: 1025681
2 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 12:17:00
Thread-ID: 1031629
1 Beitrag
Listbox Multiselect Automatisierungsfehler
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 S...
16.02.2009 22:24:00
Thread-ID: 1051312
3 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 15:29:38
Thread-ID: 1072413
2 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 17:53:08
Thread-ID: 1216579
2 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 17:48:17
Thread-ID: 1278163
2 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 17:21:46
Thread-ID: 1293875
6 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 23:17:57
Thread-ID: 1294847
1 Beitrag
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 17:56:46
Thread-ID: 1302569
3 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum