Hilfe bei Copy+Paste Makro

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

drhauws
Beiträge: 1
Registriert: Di, 22.08.2017 14:26

Hilfe bei Copy+Paste Makro

Beitrag 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

nikki
******
Beiträge: 637
Registriert: Do, 05.03.2015 10:42

Re: Hilfe bei Copy+Paste Makro

Beitrag von nikki » Di, 10.07.2018 14:46

Hallo,
Makros werden im Forumsbereich Makros und allgemeine Programmierung behandelt.
drhauws hat geschrieben:
Di, 10.07.2018 11:08
Falls jemand einen Link hat der mir weiterhelfen könnte
http://www.dannenhoefer.de/faqstarbasic/index.html
Gruß

---------------------------------------------------------
Win.10 Prof. 64-bit, AOO 4.1.5, LO 6.1.2 (x64)

Antworten