Fehlersuche: Einfügen Combobox

Hallo zusammen,
Ich habe ein Problem mit meinem Makro.
Undzwar ist eine Aufgabe meines Makros, eine ausgewählte Anzahl an Comboboxen jeweils in die Zellen untereinander einzufügen. Dies habe ich eigentlich auch schon erfolgreich realiesieren können.
Wenn ich das Makro im Editor starte funktioniert das auch perfekt. Das Makro soll aber nach einem Click auf einen Commandbutton starten. Mache ich dies, fügt das Makro die Erste eingefügte Combobox nicht perfekt ein sondern etwas von der Zelle versetzt. Dadurch sieht das erstmal nicht gut aus und Folgeschritte funktionieren nicht mehr richtig. Die restlichen Comboboxen werden dann korrekt eingefügt.
Ich kann mir nicht erklären, warum das manuelle Starten des Makros zum gewünschten Ergebnis führt, wenn ich aber jedoch den Commandbutton betätige das Makro fehler macht.
Ich füge die Datei ein, damit ihr euch das besser vorstellen könnt. Nachdem Klicken auf den Grünen OK-Button passiert der Fehler und die erste eingefügte Combobox (Combobox8) ist nicht an der richtigen Position.
https://www.herber.de/bbs/user/135431.xlsm
Vielen Dank schonmal,
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus,
teste mal:

Private Sub CommandButton1_Click()

    Dim A As Integer
    Dim B As Integer
    Dim C As Integer
    Dim D As Integer
    Dim i As Integer
    Dim obj1 As OLEObject

    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    '------------------------Berechnung elektrische Energie------------------------------------------------------------------------

    Worksheets("Eingabe").Cells(21, 8).Value = Worksheets("Eingabe").Cells(15, 8) * Worksheets("Eingabe").Cells(12, 5) * 0.0000036
    Worksheets("Eingabe").Cells(22, 8).Value = Worksheets("Eingabe").Cells(15, 8) * Worksheets("Eingabe").Cells(13, 5) * 0.0000036
    Worksheets("Eingabe").Cells(23, 8).Value = Worksheets("Eingabe").Cells(15, 8) * Worksheets("Eingabe").Cells(14, 5) * 0.0000036
    Worksheets("Eingabe").Cells(24, 8).Value = Worksheets("Eingabe").Cells(15, 8) * Worksheets("Eingabe").Cells(15, 5) * 0.0000036
    Worksheets("Eingabe").Cells(25, 8).Value = Worksheets("Eingabe").Cells(15, 8) * Worksheets("Eingabe").Cells(16, 5) * 0.0000036


    '------------------------Generieren von Spaltenzahl und entsprechender Anzahl DropDowns für ANzahl von Emissionen------------

    A = Application.WorksheetFunction.Max(Range("B40:B42"))

    Worksheets("Eingabe").Range("A6").Value = A

    'Einfügen der Spalten in Tabellenblatt
    For i = 2 To A
        Worksheets("Eingabe").Range(Worksheets("Eingabe").Cells(20, 7), Worksheets("Eingabe").Cells(20, 12)).Insert Shift:=xlDown
    Next i

    B = Worksheets("Eingabe").Cells(40, 2).Value - 1
    C = Worksheets("Eingabe").Cells(41, 2).Value - 1
    D = Worksheets("Eingabe").Cells(42, 2).Value - 1

    'Einfügen der entsprechenden Anzahl von Dropdowns für jede Emission
    Call OLEObjects("ComboBox5").Copy
    For i = 1 To B
        Call Paste(Destination:=Cells(19 + i, 7))
    Next i

    Call OLEObjects("ComboBox6").Copy
    For i = 1 To C
        Call Paste(Destination:=Cells(19 + i, 9))
    Next i

    Call OLEObjects("ComboBox7").Copy
    For i = 1 To D
        Call Paste(Destination:=Cells(19 + i, 11))
    Next i

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehlersuche: Einfügen Combobox

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread