Hallo liebes Forum,
da bin ich schon wieder. Und wieder eine Kleinigkeit. Ich schaffe es nicht, das letzte Tabellenblatt umzubenennen.
Das ist mir noch zu viel.
Würde mich freuen, wenn mir einer helfen könnte. Hab schon alles mögliche versucht.

Grüße
Gruibe

Sub gbu_import()

Dim kd_path As String
Dim wb As Workbook: Set wb = ThisWorkbook
Dim wsDeckblatt As Worksheet: Set wsDeckblatt = wb.Worksheets("0_deckblatt")
Dim ws As Worksheet, i As Long, kd As String
Dim wbQuelle As String
Dim intPos As Integer
Dim strDateiUpdate As String
Dim import As String
kd_path = Environ("userprofile") & "\nextcloud\betriebe\"
kd = wsDeckblatt.Range("D4").Value


'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Pfad prüfen und vorgeben
If Dir(kd_path & kd & "\sicherung\", vbDirectory) = "" Then
Call MsgBox("Bitte zuerst GBU's exportieren", vbCritical, "Fehler")
Exit Sub
Else

End If

ChDrive "C:\"
ChDir kd_path & kd & "\sicherung\"

'Error Handling
On Error Resume Next

'Datei öffnen
MsgBox "Bitte nur eine Datei auswählen"
import = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsm),*.xlsm", , "Bitte Datei zu öffnen auswählen...")

Workbooks.Open FileName:=import


'Tabellennamen auslesen
intPos = InStrRev(ActiveWorkbook.FullName, "\")
strpfadupdate = Left(ActiveWorkbook.FullName, intPos)
strDateiUpdate = Mid(ActiveWorkbook.FullName, intPos + 1)
nameohnexls = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)

Sheets(1).Copy After:=Workbooks("gbu_import_test.xlsm").Sheets(Workbooks("gbu_import_test.xlsm").Sheets.Count)
Workbooks("gbu_import_test.xlsm").Activate

Dim strTMP As Worksheet

strTMP = Sheets(Sheets.Count).Name

Workbooks("gbu_import_test.xlsm").Activate

Sheets(strTMP).Select
Sheets(strTMP).Name = "nameohnexls"

end sub