Verschiebung Makro-Button
26.04.2020 10:21:20
Dursun
ich habe vor einer Woche eine Anfrage bezüglich einer Datenübertragung gestellt. Mir wurde geholfen und das vorgeschlagene Makro hat super funktioniert. Nun möchte ich das Makro als Button in einem anderen Reiter verschieben. Das bedeutet, dass es ich es vorher als Button in dem aktiven Worksheet Reitername Packaging EW platziert habe und es dort auch seine Arbeit verrichtet. Nun möchte ich es von Reiter (Packaging EW) auf Reiter (Input Anfrage) verschieben. Dabei soll sich nur der Ort des Buttons verändern. Das Makro soll weiterhin seine Arbeit im Reiter Packaging EW vollbringen. Im Folgenden sieht ihr die Makro-Programmierung. Welchen Zusatz muss ich im Makro-Programm hinzufügen?
Sub Schaltfläche5_Klicken()
Dim arr
Dim Erg As String
Dim z As Long
arr = Cells(3, 2).CurrentRegion
Erg = " "
For z = 5 To UBound(arr, 1)
If arr(z, 13) = "Ja" Then
If InStr(Erg, " " & arr(z, 5) & " ") = 0 Then
Erg = Erg & arr(z, 5) & " "
End If
End If
Next
If Erg " " Then
Erg = Trim(Erg)
arr = Split(Erg, " ")
Cells(4, 20).Resize(UBound(arr) + 1) = WorksheetFunction.Transpose(arr)
End If
End Sub
Viele Grüße
Dursun