Seite 1 von 1

Hilfe bei Copy+Paste Makro

Verfasst: Di, 10.07.2018 11:08
von drhauws
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

Re: Hilfe bei Copy+Paste Makro

Verfasst: Di, 10.07.2018 14:46
von nikki
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