AW: Auflisten alle CommandBarCommands
12.02.2018 09:06:56
Dieter(Drummer)
Danke Mullit für deine Rückmeldung.
Der Code ist unverändert und ist bisher ohne Probleme gelaufen.
Inzwischen ahne ich, woher neuerdigs der Code inzwischen abbricht.
Ich hatte einige ID's aus der Originaldatei aufgerufen. Welche im einzelnen kann ich jetzt nicht mehr sagen und deshalb werde ich alle ID's nochmal einzeln aufrufen müssen. Nach jedem Einzelaufruf lasse ich dann das Makro laufen und sehe ob es klappt. Eine andere Möglichkeit, wo in meinem Excel eine Einstellung jetzt anders ist, sehe ich ich nicht.
Mit diesem Makro von "ransi", kann ich die einzelnen ID's ansprechen, die in den Zellen B5:B5263 als Zahl sind. Einfacher wäre wohl, wenn ich mit Klick in die einzelne Zelle (B5:5263) des aktiven Sheets, das Makro aufrufen könnte und die Zahl aus der angeklickten Zelle direkt in die Inputbox eingetragen würde. Aber man konn wohl nicht alles haben.
Desweiteren ist mir aufgefallen, dass ich, wenn ich mit der rechten Maustaste etwas einfügen möchte, NUR Formatierungen zur Verfügung stehen und nicht mehr alles bisherige der rechten Maustaste, z.B., das Einfügen!
Es wird nicht einfach sein, den Fehler zu finden, aber ich gebe nicht auf und evtl. kann mir ja noch jemand weiter helfen.
Gruß, Dieter(Drummer)
Code:
'von ransi am 06.11.2015
Sub IDeingeben()
Dim myVariable As Long
myVariable = Application.InputBox("Bitte die ID eingeben.", "Control aufrufen", , , , , , 1) _
If Not CommandBars.FindControl(ID:=myVariable) Is Nothing Then
CommandBars.FindControl(ID:=myVariable).Execute
Else:
MsgBox "Fehler"
End If
End Sub