ist es möglich während einer Makroaufzeichnung die erstellte Schaltfläche zu benutzen?
Liebe Grüße
Sub Paste()
Dim wks As Worksheet
Dim strWks As String
strWks = InputBox("Bitte Wochentag (Tabellenblatt) eingeben:")
Workbooks.Open "C:\Users\Mex\Desktop\Test\Blatt - Test 2"
If strWks "" Then
On Error Resume Next
Err.Clear
Set wks = Worksheets(strWks)
If Err.Number > 0 Then
Beep
MsgBox "Blatt nicht gefunden!"
Else
wks.Select
Set wks = Nothing
End If
End If
End Sub
Sub prcPaste()
Dim wks As Worksheet, wkb As Workbook
Dim strWks As String
Dim rng As Range
Set rng = Sheets("chute").Range("A1:F1")
strWks = InputBox("Bitte Wochentag (Tabellenblatt) eingeben:")
If strWks "" Then
Set wkb = Workbooks.Open("C:\Users\Mex\Desktop\Test\Blatt - Test 2.xlsx")
On Error Resume Next
Set wks = Worksheets(strWks)
On Error GoTo 0
If wks Is Nothing Then
Beep
MsgBox "Blatt nicht gefunden!"
'wkb.close false
Else
rng.Copy wks.Range("A1")
End If
End If
End Sub