|
Wie kann ich aus folgendem Code eine Function machen?
Könnt ihr das bitte zu einer Funktion machen?
Sub ArchivierungDerDaten4()
Dim rngKopie As Range
Dim rngPruefung As Range
Set rngKopie = Tabelle1.Rows(3)
Set rngPruefung = Tabelle1.Cells(3, 12)
If rngPruefung <> "" Then
rngKopie.Copy Destination:=Tabelle5.UsedRange.Rows.Offset(1).EntireRow
End If
End Sub
|