Hallo zusammen,
kann mir einer bei zwei simplen MS-Office Makros helfen um die in Libreoffice lauffähig zu machen?
Hab den Rekorder und auch bisschen selbst rumprobieren anhand des Ergebnisses versucht aber iwie bringt das einen nichtmal ansatzweise weiter.
Makro1: kopieren einer Zelle mit Formelinhalt und anschließend kleine Änderungen an der Formel
Sub Calc()
zeilenIndex = 1
''''' Zu ändernde Werte'''''
copyCellRowNumber = 12
pasteCellRowNumber = 13
''''''''''''''''''''''''''''
While zeilenIndex < 30
zeilenIndexAlsString = Format(zeilenIndex, "")
If Cells(zeilenIndex, copyCellRowNumber).Value <> "" And Cells(zeilenIndex, pasteCellRowNumber).Value = "" Then
Cells(zeilenIndex, pasteCellRowNumber).Copy
Cells(zeilenIndex, pasteCellNumber).Insert
Cells(zeilenIndex, pasteCellNumber).Replace "/", "-"
Cells(zeilenIndex, pasteCellNumber).Replace "-1", ""
Cells(zeilenIndex, pasteCellNumber).Replace "H", "G"
Cells(zeilenIndex, pasteCellNumber).NumberFormat = "0.00000"
Else
End If
zeilenIndex = zeilenIndex + 1
Wend
Makro2: Z.B. ersten 100 Zeilen durchinterieren und dabei prüfen ob Spalte 4(D) einen der Werte “buy” oder “sell” hat und ob diese Zeile keine Hintergrundfarbe hat. Wenn true und buy dann Zeile Grün färben, wenn true und sell, dann Zeile Rot färben und bei beiden Fällen eine Zelle Orange färben.
Sub faerben()
zeilenIndex = 1
buycellspalte = 4
While zeilenIndex < 100
zeilenIndexAlsString = Format(zeilenIndex, "")
If Cells(zeilenIndex, buycellspalte).Value = "buy" And Cells(zeilenIndex, buycellspalte).Interior.ColorIndex = xlNone Then
' grün
Range("A" + zeilenIndexAlsString + ":k" + zeilenIndexAlsString).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'orange
Range("L" + zeilenIndexAlsString).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ElseIf Cells(zeilenIndex, buycellspalte).Value = "sell" And Cells(zeilenIndex, buycellspalte).Interior.ColorIndex = xlNone Then
'rot
Range("A" + zeilenIndexAlsString + ":K" + zeilenIndexAlsString).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'orange
Range("L" + zeilenIndexAlsString).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
End If
zeilenIndex = zeilenIndex + 1
Wend