Ich suche jetzt schon ein bisschen aber finde leider nichts passendes und hoffe nun auf eure Hilfe. Und zwar geht es um ein Excel-Makro, was ich gerne für OO-Calc umschreiben würde.
Code: Alles auswählen
Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Tabelle1
Rem Private Sub Worksheet_Change(ByVal r As Range)
Rem
Rem s = r.Column
Rem rr = r.Row
Rem If s = 5 Then
Rem Cells(rr, s - 3).Value = Str(Date)
Rem Cells(rr, s - 1).Value = Str(Time)
Rem Cells(rr, s + 38).Copy
Rem Cells(rr, s + 39).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks:=False, Transpose:=False
Rem Application.CutCopyMode = False
Rem Cells(rr, s + 31).Copy
Rem Cells(rr, s + 21).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks:=False, Transpose:=False
Rem Application.CutCopyMode = False
Rem End If
Rem End Sub
Rem
End Sub
Vielen Dank schonmal im Voraus.
_________________
Moderation: Thema verschoben von OOo Calc nach Makros und allgemeine Programmierung, wo alle Themen zur individuellen Programmierung hingehören.
lorbass, Moderator