In einem Sheet habe ich eine gewöhnliche ComboBox erstellt mit folgendem Code:
Private Sub ComboBoxObjekte_Change()
Dim strElem As String
strElem = ComboBoxObjekte.Value()
Select Case strElem
Case "Gelöschte Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(2)
Case "Eingefügte Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(1)
Case "Geänderte Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(3)
Case "Alle Objekte"
Call Uebersicht_Sheet.Zeige_Objekte(4)
End Select
End Sub
Wenn ich jedoch nun in einer Funktion versuche neue Worksheets in mein Workbook einzufügen, springt das Makro in oben dargestellte Methode, obwohl sie nicht aufgerufen wird. Code:Private Sub Importiere_Aenderungen()
'Funktion, die die Änderungsdateien einliest
Dim intCount As Integer
Dim strDatPfad As String
Dim strDatName As String
Dim strDatPfadUName As String
Dim strAenderungName As String
Dim strDatArr(4) As String
Dim wkbDatImport As Workbook
Dim wkbMakro As Workbook
Dim wksCount As Worksheet
strDatPfad = wsStart.Cells(7, 2).Value()
Set wkbMakro = ActiveWorkbook
strDatArr(0) = "Datei1"
strDatArr(1) = "Datei2"
strDatArr(2) = "Datei3"
strDatArr(3) = "Datei4"
Call AppFunktionen.eventOf
'Worksheets löschen
For Each wksCount In wkbMakro.sheets
For intCount = 0 To 3
If wksCount.Name = strDatArr(intCount) Then
wksCount.Delete
Exit For
End If
Next intCount
Next wksCount
'Sheets mit den Aenderungen einlesen
For intCount = 0 To 3
strAenderungName = strDatArr(intCount)
strDatName = "/" & strAenderungName & ".csv"
strDatPfadUName = strDatPfad & strDatName
If Dir(strDatPfadUName) vbNullString Then
Workbooks.Open Filename:=strDatPfadUName, Local:=True
Set wkbDatImport = ActiveWorkbook
Worksheets(1).Copy After:=wkbMakro.Worksheets("Bedienung")
wkbDatImport.Close savechanges:=False
Else:
Call AppFunktionen.eventOn
MsgBox (strAenderungName & "-Datei liegt in dem Ordner nicht vor. Bitte zunächst _
die Datei exportieren.")
Call AppFunktionen.eventOf
End If
Next intCount
Call AppFunktionen.eventOn
End Sub
Der Aufruf geschieht in der fett markierten Zeile. Kann mir jemand erklären, wie es dazu kommt?Vielen Dank und Grüße.