LibreOffice-Forum

Hallo,

ich werde mich mehr dem Libre (freie Software für freie User) widmen.

Ein Makro aus Excel, welches ich mal irgendwie zusammengebastelt hatte, möchte ich nun in Libre einbinden.

Kann mir bitte bitte wer beim Umschreiben helfen? Ich bin beim Programmieren so schlecht, dass ich mich jetzt noch wundere, dass ich Folgendes überhaupt mal geschafft hatte

Makro:
* Öffnet MsgBox
* Eingabe des EANCodes durch Handscanner (gibt Code ein und setzt am Ende automatisch ein Enter)
* Suche in einem definierten Zellenbereich (SPALTE AC wäre toll)
* Wenn gefunden dann Sprung zu einer benachbarten Zelle (SPALTE AE in gleicher Zeile wie gefunden)
* wenn nicht gefunden dann Msg "nicht gefunden".

Code: Alles auswählen

Option Explicit
Dim EanEingabe
Dim RangeObj

Sub EanSuche()
   EanEingabe = InputBox("EAN:")
    If StrPtr(EanEingabe) = 0 Then Exit Sub
    Set RangeObj = Cells.Find(EanEingabe, LookAt:=xlWhole)
    If RangeObj Is Nothing Then MsgBox "Not Found" Else Cells.Find(EanEingabe, LookAt:=xlWhole).Activate
    ActiveCell.Offset(0, 2).Range("A1").Select
End Sub

Bitte um Hilfe

Hi,
du hast Glück gehabt, hatte einen guten Tag, das nächste Mal wird's teuer

Code: Alles auswählen

Sub EanSuche()
    EanEingabe = InputBox("EAN:","Search EAN")
    If EanEingabe = "" Then 
        msgbox "Input required"
        Exit Sub
    endif
    oRange = ThisComponent.NamedRanges.getbyname("xlwhole")
    oSearchDescriptor = oRange.ReferredCells.createSearchDescriptor
    oSearchDescriptor.SearchString = EanEingabe
    oResult = oRange.ReferredCells.findFirst(oSearchDescriptor)
    if isNull(oResult) then
        Msgbox ("EAN-Number " & EanEingabe & " was not found",16,"Error")
    else
        oController = ThisComponent.CurrentController
        nSheet =  oResult.CellAddress.sheet
        nRow = oResult.CellAddress.row
        ocell = thiscomponent.sheets(nSheet).getCellbyposition(30, nRow)'Spalte 30 entspricht AE
        oController.select(oCell)    
    endif
End Sub

Beispiel anbei

Gruß R

Lieber/e F3K Total,
ich danke dir viel viel viel mal für deine Arbeit und weiß das sehr zu schätzen!

Danke vielmals!

LibreOffice-Forum

Makro aus Excel für Libre

Makro aus Excel für Libre

Re: Makro aus Excel für Libre

Re: Makro aus Excel für Libre