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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen