von MT326 » So, 15.09.2024 10:30
Hallo erst mal...
ich bin dabei mir ein Calc Makro zu basteln und komm nicht weiter.
Vielleicht habt ihr eine Idee wie man es lösen kann.
Das Makro soll in der 3. Tabelle im Bereich (B4:B64) nach einem Zahlenwert suchen.
Wenn der Wert vorhanden ist dann zu der Zelle springen.
Wenn der Wert nicht vorhanden ist dann in der ersten freien Zelle im Bereich (B4:B64)
den gesuchten Wert eintragen und zu dieser Zelle springen.
Ich habe beides getrennt von einander hinbekommen.
Ich schaffe es aber nicht es zusammen in ein Makro zu basteln.
Dieses Makro schreibt in die erste freie Zelle in Spalte B ist aber nicht auf den Bereich beschränkt(habs nicht hinbekommen):
Sub Artikelnummer
Dim oZielzelle As Object
sArtikel=Inputbox("Artikelnummer")
oDoc = thisComponent
oView = oDoc.CurrentController
oTab=ThisComponent.Sheets(2)
'Ermittlung der ersten freien Zeile in Spalte b
nZeile=oTab.Columns(1).queryEmptyCells.RangeAddresses(0).startrow
oZielzelle = oTab.getCellByPosition(1,nZeile)
oZielzelle.value = sArtikel
oView.Select(oZielzelle)
End Sub
Diese Makro sucht im gewünschten Bereich und springt wenn vorhanden zu der Zelle mit dem Wert:
Sub Suchen
sArtikel=Inputbox("Artikelnummer")
odoc = thiscomponent
oSheet = oDoc.Sheets(2).getCellRangeByPosition( 1, 3, 1, 63 )
oSearchDescriptor = oSheet.createSearchDescriptor()
oSearchDescriptor.Searchstring = sArtikel
oFound = oSheet.FindFirst(oSearchDescriptor)
odoc.CurrentController.Select(oFound)
End Sub
Hallo erst mal...
ich bin dabei mir ein Calc Makro zu basteln und komm nicht weiter.
Vielleicht habt ihr eine Idee wie man es lösen kann.
Das Makro soll in der 3. Tabelle im Bereich (B4:B64) nach einem Zahlenwert suchen.
Wenn der Wert vorhanden ist dann zu der Zelle springen.
Wenn der Wert nicht vorhanden ist dann in der ersten freien Zelle im Bereich (B4:B64)
den gesuchten Wert eintragen und zu dieser Zelle springen.
Ich habe beides getrennt von einander hinbekommen.
Ich schaffe es aber nicht es zusammen in ein Makro zu basteln.
Dieses Makro schreibt in die erste freie Zelle in Spalte B ist aber nicht auf den Bereich beschränkt(habs nicht hinbekommen):
Sub Artikelnummer
Dim oZielzelle As Object
sArtikel=Inputbox("Artikelnummer")
oDoc = thisComponent
oView = oDoc.CurrentController
oTab=ThisComponent.Sheets(2)
'Ermittlung der ersten freien Zeile in Spalte b
nZeile=oTab.Columns(1).queryEmptyCells.RangeAddresses(0).startrow
oZielzelle = oTab.getCellByPosition(1,nZeile)
oZielzelle.value = sArtikel
oView.Select(oZielzelle)
End Sub
Diese Makro sucht im gewünschten Bereich und springt wenn vorhanden zu der Zelle mit dem Wert:
Sub Suchen
sArtikel=Inputbox("Artikelnummer")
odoc = thiscomponent
oSheet = oDoc.Sheets(2).getCellRangeByPosition( 1, 3, 1, 63 )
oSearchDescriptor = oSheet.createSearchDescriptor()
oSearchDescriptor.Searchstring = sArtikel
oFound = oSheet.FindFirst(oSearchDescriptor)
odoc.CurrentController.Select(oFound)
End Sub