Code: Alles auswählen
Range("B9").Select
Selection.Copy
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Range("B13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B7").Select
Application.CutCopyMode = False
Selection.Cut
Range("C13").Select
ActiveSheet.Paste
Range("B8").Select
Selection.Cut
Range("D13").Select
ActiveSheet.Paste
Range("B7:B8").Select
Selection.NumberFormat = "#,##0.00 $"
Rows("13:13").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B13:D13").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B6").Select
Code: Alles auswählen
Sub CopyKontoCell
Dim bezeichnung as Variant
oSheet1 = ThisComponent.Sheets.getByIndex(0) 'ThisComponent = ActiveWorkbook
REM Get the range to copy and the rang to copy to.
oRangeOrg = oSheet1.getCellRangeByName("B5").RangeAddress
oRangeCpy = oSheet1.getCellRangeByName("B19").RangeAddress
REM Do the copy
oSheet1.CopyRange(oCellCpy, oRangeOrg)
End Sub
Sub CopyDatumCell
Dim inp as Variant
oSheet1 = ThisComponent.Sheets.getByIndex(0)
REM Get the range to copy and the rang to copy to.
oRangeOrg = oSheet1.getCellRangeByName("B8").RangeAddress
oRangeCpy = oSheet1.getCellRangeByName("A19").RangeAddress
inp = oRangeCpy
inp = CDate(inp)
REM Do the copy
oSheet1.CopyRange(oCellCpy, inp)
End Sub
Sub CopyEinnahmeCell
Dim einnahme@
oSheet1 = ThisComponent.Sheets.getByIndex(0)
REM Get the range to copy and the rang to copy to.
oRangeOrg = oSheet1.getCellRangeByName("B6").RangeAddress
oRangeCpy = oSheet1.getCellRangeByName("C19").RangeAddress
einnahme@ = oRangeCpy
REM Do the copy
oSheet1.CopyRange(oCellCpy, oRangeOrg)
End Sub
Sub CopyAusgabeCell
oSheet1 = ThisComponent.Sheets.getByIndex(0)
REM Get the range to copy and the rang to copy to.
oRangeOrg = oSheet1.getCellRangeByName("B7").RangeAddress
oRangeCpy = oSheet1.getCellRangeByName("D19").RangeAddress
REM Do the copy
oSheet1.CopyRange(oCellCpy, oRangeOrg)
End Sub