von drhauws » Di, 10.07.2018 11:08
Hallo Zusammen,
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
Falls jemand einen Link hat der mir weiterhelfen könnte oder mir das sogar schnell umschreiben könnte wäre ich wirklich sehr froh.
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
Hallo Zusammen,
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]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[/code]
Falls jemand einen Link hat der mir weiterhelfen könnte oder mir das sogar schnell umschreiben könnte wäre ich wirklich sehr froh.
Vielen Dank schonmal im Voraus.
_________________
[color=#FF0066][b]Moderation:[/b][/color] Thema verschoben von [url=http://de.openoffice.info/viewforum.php?f=2]OOo Calc[/url] nach [url=http://de.openoffice.info/viewforum.php?f=18]Makros und allgemeine Programmierung[/url], wo alle Themen zur individuellen Programmierung hingehören.
lorbass, Moderator