OpenOffice.info

Hallo,
Makros werden im Forumsbereich [url=https://de.openoffice.info/viewforum.php?f=18]Makros und allgemeine Programmierung[/url] behandelt.

[quote=drhauws post_id=276277 time=1531213729 user_id=59680]
Falls jemand einen Link hat der mir weiterhelfen könnte
[/quote]
http://www.dannenhoefer.de/faqstarbasic/index.html

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

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