|
Ich nutze schon seit ca. zig Jahren ein Kassenbuch für Excel unter Windows.
Seit 3 Jahren bin ich auf ein Macbook umgestiegen und habe seitdem Excel2007 noch unter Parallels genutzt.
Nun habe ich mir die neue Version für Mac heruntergeladen und musste feststellen das mein KB mit Excel für Mac nicht funktioniert da wohl unter
Visual Basic die ComboBoxen nicht funktionieren.
Kann man da was anderes programieren, oder ein Macro Einfügen ?
Es wird auch nur eine Zeilenauswahl geöffnet (z.B. Tageseinnahme ) und dann mit zugehöriger Kontonummer (in dem Fall 4400 ) eingetragen.
Ich kenne mich da zu wenig aus um das zu verstehen.
Beim debuggen wird unten die rote Zeile markiert.
so sieht der ode aus:
Sub CreateKontenBar()
Dim objKonten As CommandBar
Dim objCbo As CommandBarComboBox
Dim intRow As Integer
On Error Resume Next
CommandBars("xlKonten").Delete
On Error GoTo 0
Set objKonten = CommandBars.Add( _
Name:="xlKonten", _
Position:=msoBarPopup, _
temporary:=True)
Set objCbo = objKonten.Controls.Add(Type:=msoControlComboBox)
objCbo.Width = 200
intRow = 1
With ThisWorkbook.Worksheets("Konten")
Do Until IsEmpty(.Cells(intRow, 1))
objCbo.AddItem .Cells(intRow, 1).Value
intRow = intRow + 1
Loop
End With
objCbo.Caption = "Konten"
objCbo.OnAction = "InsertKonto"
Application.SendKeys "{tab}"
objCbo.ListIndex = 1
objKonten.ShowPopup ActiveCell.Offset(0, 1).Left, ActiveCell.Offset(0, 1).Top + 100
End Sub
|