Entwurf Niedersächsisches Kultusministerium Einheitliche ...

Einheitliche Prüfungsanforderungen für das Unterrichtsfach Informationsverarbeitung im Fachgymnasium
Musterlösung zu Agrarwirtschaft Aufgabe 2.2
Beispiel für die Gestaltung des Formulars und der Schaltflächensteuerung
Sub Makro ()
‘Eingabe des neuen Brunsttermins in das Tabellenblatt „Brunstdaten“
‘ Tastenkombination: Strg+c
‘
Range("c24").Select
Selection.Copy
Dim Zeile As Integer
Zeile = Cells(21, 5) – 1
Dim Spalte As Integer
Spalte = Cells(25, 5) – 1
Sheets("Brunstdaten").Select
ActiveCell. Offset (Spalte, Zeile) Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(-Spalte, -Zeile).Select
Sheets("Formular").Select
Application.CutCopyMode = False
End Sub
-44-