mit folgendem Makro, möchte ich nicht mehr das Tabellenblatt "Uebersicht",sondern alle Tabellenblätter die mit einem "B" beginnen übertragen. Diese Tabellen sind beispielhaft wie folgt benannt: B196377 oder B196379 oder B196381.
Nun finde ich keine Lösung für diese Aufgabe und benötige Eure Hilfe. Vielen Dank.
Sub SuchenImport()
Dim objWB As Workbook
Dim vntFile As Variant
Dim StrStreername As String
vntFile = Application.GetOpenFilename("Excel Datei (*.xls; *.xlsx; *.xlsm; *.xlsb), " & "*.xls; _
*.xlsx; *.xlsm; *.xlsb")
If vntFile False Then
Set objWB = Workbooks.Open(vntFile)
objWB.Sheets("Uebersicht").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set objWB = Nothing
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "NEUE DATEI"
strSheetname = InputBox("Bitte geben Sie den Namen ein!", "Neuer Blattname")
If StrPtr(strSheetname) = 0 Then
MsgBox "Eingabe wurde abgeborchen!", vbExclamation, "Neuer Blattname"
ElseIf strSheetname = vbNullString Then
MsgBox "Keine Eingabe vorgenommen!", vbExclamation, "Neuer Blattname"
Else
With ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
.Name = strSheetname
End With
MsgBox "Import abgeschlossen", vbInformation, "Daten Import"
End If
End If
End Sub