Dim wkb As Workbook: Set wks = ThisWorkbook
Dim wks As Worksheet
Dim anzahlTB As Integer
anzahlTB = 0
Dim FGS As String
FGS = "FGS "
Dim zeileDatum As Integer
zeileDatum = 1
Dim jahrSpalte As Integer
jahrSpalte = letzteSpalte - 1
Dim monatSpalte As Integer
monatSpalte = letzteSpalte - 2
Dim tagSpalte As Integer
tagSpalte = letzteSpalte - 3
While anzahlTB <> letzteZeile
Dim Gutschriftsnummer As String
Gutschriftsnummer = InputBox("FGS eingeben")
Dim Tag As String
Tag = Cells(zeileDatum, 5).Value
Dim Monat As String
Monat = Cells(zeileDatum, 6).Value
Dim Jahr As String
Jahr = Cells(zeileDatum, 7).Value
Dim DatumDatei As String
DatumDatei = Tag & "." & Monat & "." & Jahr
With wkb
Set wks = .Worksheets.Add(after:=.Worksheets(.Worksheets.Count))
.Name = FGS & " " & Gutschriftsnummer & "_" & Tag & "." & Monat & "." & Jahr
Set wks = Nothing
End With
zeileDatum = zeileDatum + 1
anzahlTB = anzahlTB + 1
Wend